Re : Nom de fichier et incrémentation
J'ai testé sans succès, je n'arrive pas a copier le classeur. Il est composé de plusieurs feuilles qui contiennent des formules excel, et j'aimerais donc avoir la totalité (ton prog n'a l'air de copier qu'un seule feuille).
De plus ca enregistre sous faux.xls...J'essaie de bidouiller mais je capte pas trop comment ton prog marche
Sub Bouton101_QuandClic()
Dim VPath As String, VNom As String, Ind As Integer
VPath = "J:\..."
' Compilation du nom du fichier
VNom = c = Format(i, "000") & ".xls"
' Vérifie que le fichier n'existe pas déjà
Do While Dir(VPath & VNom) <> ""
' Sinon on créé un nouveau nom avec un indice
i = i + 1
' On récupère la bonne partie du nom de fichier
If i = 1 Then
VNom = Left(VNom, InStr(1, VNom, ".xls") - 1)
Else
VNom = Left(VNom, InStr(1, VNom, ".xls") - 3)
End If
VNom = VNom & "-" & i & ".xls"
Loop
Cells(6, 3).Value = VNom
' Quand le nom est Ok on sauvegarde
ActiveWorkbook.SaveAs Filename:=VPath & VNom
End Sub