Enregistrer avec nom et date du jour

[ThierryAS3C]

Bonjour,

je rame un peu pour faire une macro pour sauvegarder un fichier avec 3 contraintes :
1 vérifier sur le répertoire qu'il n'y a pas encore de fichier à la date du jour (TOTO_datejour_01.csv)
2 s'il y en a déjà un à la date du jour, le sauvegarder au format mais en faisant +1 par rapport au dernier enregistrement (TOTO_datejour_02.csv)

avec date du jour au format AAAAMMJJ pour permettre des tris.

Si vous pouviez m'aider ça m'arrangerait énormément.

 

[BOISGONTIER]

Re : Enregistrer avec nom et date du jour

Bonsoir,

Sub sauvegardeIndice()
  répertoire = ThisWorkbook.Path
  NomFichier = "toto"
  nf = Dir(répertoire & "\" & NomFichier & Format(Date, "yyyy_mm_dd_") & "*")
  n = 0
  Do While nf <> ""
    nf = Dir
    n = n + 1
  Loop
  ActiveWorkbook.SaveAs _
     Filename:=répertoire & "\" & NomFichier & Format(Date, "yyyy_mm_dd_") & Format(n + 1, "000")
End Sub

JB
Formation Excel VBA JB

 

[ThierryAS3C]

Re : Enregistrer avec nom et date du jour

Bonjour,

Je vous remercie beaucoup de votre réponse. Je vais la tester tout de suite

 

[ThierryAS3C]

Re : Enregistrer avec nom et date du jour

Ca fonctionne très bien.

Merci une nouvelle fois