Enregistrer avec nom et date du jour

ThierryAS3C · 29 Octobre 2008

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 · 29 Octobre 2008

Re : Enregistrer avec nom et date du jour

Bonsoir,

Code:

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 · 30 Octobre 2008

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 · 30 Octobre 2008

Re : Enregistrer avec nom et date du jour

Ca fonctionne très bien.

Merci une nouvelle fois

Enregistrer avec nom et date du jour

ThierryAS3C

Guest

BOISGONTIER

XLDnaute Barbatruc

ThierryAS3C

Guest

ThierryAS3C

Guest

Discussions similaires

Enregistrer avec nom et date du jour

ThierryAS3C

Guest

BOISGONTIER

XLDnaute Barbatruc

ThierryAS3C

Guest

ThierryAS3C

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency