enregistrer sous et date Résolu

Question

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.

pijaku · Answer

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

Enregistrer sous et date

1 réponse

Discussions similaires

Newsletters