Bonjour le forum,
J'ai un petit problème pour récupérer le nom de mon fichier actif. le sujet à déjà été traité mais je n'arrive pas à mettre la solution en place
voici mon code que je devrai copier coller dans d'autre fichier, j'aimerai que le nom du fichier soit renseigner automatiquement...
Private Sub CommandButton1_Click()
Dim TOTO As String
TOTO = ActiveWorkbook.Name
ActiveWorkbook.SaveAs Filename:= _
"S:\dossier\dossier1\dossier2\dossier3\TOTO" & Format(Now, "dd-mm_hhmm") & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.Quit
End Sub
Merci d'avance !
J'ai un petit problème pour récupérer le nom de mon fichier actif. le sujet à déjà été traité mais je n'arrive pas à mettre la solution en place
voici mon code que je devrai copier coller dans d'autre fichier, j'aimerai que le nom du fichier soit renseigner automatiquement...
Private Sub CommandButton1_Click()
Dim TOTO As String
TOTO = ActiveWorkbook.Name
ActiveWorkbook.SaveAs Filename:= _
"S:\dossier\dossier1\dossier2\dossier3\TOTO" & Format(Now, "dd-mm_hhmm") & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.Quit
End Sub
Merci d'avance !