bonjour/bonsoir!
j'aurais du mettre mon bout de code ( mon erreur) je crois que cela seras plus claire.
Public Sub CommandButton1_Click() 'copie sauvegarde classeur
Dim Nom As String
Nom = claims & "" & ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\" & Range("N1") & Range("O1") & Range("P1") & ".xls"
With ActiveWorkbook
ActiveWorkbook.Close True
Application.DisplayAlerts = False
Application.Quit
Set ApplicationExcel = Nothing
End With
End Sub
pas très fort hein! a+
allo
oups , la cellule P1 s'increment et la O1 a un tiretbas et No ets la date.
a+