Enregistrer sous et date
Résolu
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.
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
-
ModérateurBonjour,
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
