[VB Excel] - créer un filename avec dat Résolu

Question

Bonjour, 
Je souhaiterais créer un petit programme en VB (dans une macro Excel) qui permettrait de nommer un fichier (par "enregistrer sous...") dont le nom serait suffixé par la date du jour. 
Par exemple : fic1_07032007
Ceci dans le seul but de créer des sauvegardes ponctuelles de mon fichier de données. 
D'avance merci de votre aide ! 
Laz

didier09 · Answer

Bonjour,

Essaye le code suivant, et remplace Mes documents par le nom complet de l'emplacement où doit être enregistré ton document.

Private Sub CommandButton1_Click()

  Dim LaDate As String
  Dim NomClasseur As String

  LaDate = Format(Date, "ddmmyyyy")
  NomClasseur = LaDate & ".xls"
    
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Mes documents\fic1_" & NomClasseur _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close

End Sub

Lalence · Answer

Ca marche nickel-chrome !! 

Merci bcp didier09 ;) 


Laz

Jimmy59116 · Answer

Excellent !

Mais pour aller plus loin, est-il possible d'avoir également l'heure après la date ?

Je sais que je suis exigeant sur ce coup là mais qui ne tente rien n'a rien lol

Merci pour votre aide.

[VB Excel] - créer un filename avec dat

3 réponses

Votre réponse