Sub Bouton101_QuandClic()
Dim VPath As String, VNom As String, Ind As Integer
VPath = "J:\..."
' Création du nom du fichier en débutant à 1
Ind = 1
VNom = Format(Ind, "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 supérieur
Ind = Ind + 1
VNom = Format(Ind, "000") & ".xls"
Loop
Cells(6, 3).Value = VNom
' Quand le nom est Ok on sauvegarde
ActiveWorkbook.SaveAs Filename:=VPath & VNom
End Sub