Enregistrement automatique avec date du jour

[legrand.slb]

Bonjour

J'extrais tous les jours des données que je traite par une macro.
A la fin je voudrais enregistrer automatiquement mon fichier sous le nom "Fichier - date du jour" au format AAAA-MM-JJ

Exemple aujourd'hui mon fichier s'appelerait : Fichier - 2011-08-11

Quel code VBA pourrait me donner ce résultat ?

Merci de votre aide

Cdt
Bertrand

 

[Guest]

Re : Enregistrement automatique avec date du jour

Bonjour,

 'Si le fichier a été enregistré au moins une fois
 If ThisWorkbook.Path <> "" Then
    ThisWorkbook.SaveAs ThisWorkbook.Path & "\FICHIER " & Format(Date, "yyyy mm jj")
 Else
   'Le fichier sera enregistrer dans le répertoire par défaut définit dans les options
    ThisWorkbook.SaveAS FICHIER " & Format(Date, "yyyy mm jj")
 End If

A+

 

[legrand.slb]

Re : Enregistrement automatique avec date du jour

Génial
Merci beaucoup
Bertrand

 

[legrand.slb]

Re : Enregistrement automatique avec date du jour

Aie !
Après test le fichier s'enregistre sous le nom : FICHIER 2011 08 JJ
????
Cdt
Bertrand

 

[Guest]

Re : Enregistrement automatique avec date du jour

Re,

Oui, excuses moi, j'ai fait une erreur: remplace jj par dd dans: Format(Date, "yyyy mm jj")

A bientôt

 

[legrand.slb]

Re : Enregistrement automatique avec date du jour

Ca marche. J'aurais du trouver tout seul
Encore merci de ton aide
Bertrand