Re: sauvegarde incrémentée
bonjour WocaM , bonjour Salim
cet exemple permet
de copier une des feuilles du classeur contenant la macro ( ici c'est la "Feuil1" )
de compter le nombre de fichiers deja existants dans le repertoire de destination
et d'enregistrer la feuille copiée en incrementant le nom d'une unité
nécéssite d'activer la reference Microsoft Scripting Runtime
dans visual basin Editor (Alt+F11 )
menu Outils
References
cocher la ligne Microsoft Scripting Runtime
cliquer sur "OK" pour valider
Sub ArchivageIncremente()
necessite d'activer la reference Microsoft Scripting Runtime
Dim Chemin As String
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim nbFichiers As Integer
' adapter le chemin du repertoire d'enregistrement
Chemin = "C:\Documents and Settings\michel\dossier\general\excel\repertoire stockage"
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(Chemin)
nbFichiers = SourceFolder.Files.Count + 1
ThisWorkbook.Sheets("Feuil1").Copy ' créée une copie de la feuille à enregistrer
ActiveWorkbook.SaveAs Chemin & "\" & "leNomDuFichier" & nbFichiers & ".xls"
'ActiveWorkbook.Close False ' fermeture du classeur enregistré
End Sub
bonne journée
MichelXld