Enregistrer sous et date

Résolu
cob71 -  
 cob71 -
Bonjour,



Je travail sur une macro qui doit me permettre de creer des fiches d'intervention, actuellement ca avance doucement mais la je coisse avec la fonction SaveAs Filename:=
En effet a la suite du nom de classeur j'aimerai inserer la date courante.

merci beaucoup pour vos reponses.

1 réponse

pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,
Par exemple :

Sub EnregistrerSous()
Dim Chemin As String, NomFich As String
Chemin = ActiveWorkbook.Path & "\"
NomFich = "Toto " & Format(CDate(Date), "dd mm yyyy") & ".xls"
'Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Chemin & NomFich
'Application.DisplayAlerts = True
End Sub

Pour ne pas avoir le message d'Excel "voulez vous enregistrer blabla", enlevez les ' dans ce code, avant les lignes Application.DisplayAlerts
0
cob71
 
merci beaucoup pour cette reponse rapide, maintenant ma macro à fait un pas en avant.
0