Astuces Excel
  1. Astuces Excel
  3. Enregistrement d'une copy d'un classur Excel existant sans l'écraser
Intereting Posts
Sélectionner les lignes si la valeur dans la colonne A est x L'ouverture des formulaires d'user à partir d'un formulaire d'user à plusieurs resockets – provoque des problèmes d'object Ouvrir plusieurs documents Word Excel: Quel est le meilleur moyen de produire un nombre basé sur sa place dans une gamme? Où placer le file .csv dans l'application de console C # pour y accéder directement? Tirez une troisième valeur sur la base de deux critères utilisant INDEX et MATCH en excel Copier OLEObject d'Excel vers un Powerpoint nouvellement créé VBA Excel Codename non acquis parfois Pourquoi mon résultat est-il vide? Copier une partie des cellules qui varie en longueur et en contenu en utilisant VBA Vider le file sur différents PC C # .NET Add-in Outlook Date de stock dans DD / MM / AAAA dans Excel & Calcul Date Différence Un complément Excel créé pour Excel 2010 fonctionne-t-il dans Excel 2013? Feuillet d'appel à partir d'un livre de travail Comment append un graphique pivot dans Excel en utilisant c #?

Enregistrement d'une copy d'un classur Excel existant sans l'écraser

J'essaie de copyr un classur Excel depuis le dossier X vers le dossier Y et, dans le cas où un file de ce nom existe déjà dans le dossier Y, le file n'est pas écrasé, mais le nouveau file reçoit un suffixe de '- Copier' , '- Copier (2)', etc. – essentiellement en recréant le process manuel pour copyr et coller le même file dans un dossier.

J'aurais pensé qu'il y aurait une fonction qui vous permettra de faire cela, mais rien que j'ai essayé jusqu'ici semble répondre aux exigences exactes:

Il ne serait pas difficile de créer un countur qui augmente en fonction du nombre de files existants dans le dossier sélectionné (.xls (1), .xls (2) etc.), mais j'espérais qu'il pourrait y avoir une approche plus directe que ce.

Quelque chose comme ça peut-être? vous devrez mettre un wrapper autour de celui-ci, en montrant le file save comme boîte de dialog, puis exécutez-le sur le path de file sélectionné. 

 Public Function CUSTOM_SAVECOPYAS(strFilePath As Ssortingng) Dim FSO As Scripting.FileSystemObject Dim fl As Scripting.File Dim intCounter As Integer Dim blnNotFound As Boolean Dim arrSplit As Variant Dim strNewFileName As Ssortingng Dim strFileName As Ssortingng Dim strFileNameNoExt As Ssortingng Dim strExtension As Ssortingng arrSplit = Split(strFilePath, "\") strFileName = arrSplit(UBound(arrSplit)) strFileNameNoExt = Split(strFileName, ".")(0) strExtension = Split(strFileName, ".")(1) Set FSO = New Scripting.FileSystemObject intCounter = 1 If FSO.FileExists(strFilePath) Then Set fl = FSO.GetFile(strFilePath) strNewFileName = fl.Path & "\" & strFileNameNoExt & " (" & intCounter & ")." & strExtension Do blnNotFound = Not FSO.FileExists(strNewFileName) If Not blnNotFound Then intCounter = intCounter + 1 Loop Until blnNotFound Else strNewFileName = strFilePath End If ThisWorkbook.SaveCopyAs strNewFileName set fso=nothing set fl =nothing End Function