Enregistrer selon date

[Michael]

Je souhaiterai "enregistrer sous" un fichier d'un nom sous forme "Stat & date1&date2"

les dates 1 & 2 figure dans ce fichier

Si vous pouviez me venir en aide, je vous en serai très reconnaissant )

 

[sylsyl]

Salut Michael,

la reponse est dans la question

Dim Dossier as string
Dossier = "C:\Mes Documents"
activeworkbook.saveas Filename := Dossier & "\" & "Stat" & date1 & "-" & date2 & ".xls"

date1 et date 2 sont les dates qui figurent dans ton fichier.

Ton pb est plus complique ou c'etait juste ca ?

A++, Sylsyl.

 

[Michael]

Merci pour ce premier élément de réponse

par contre je rencontre des problèmes de syntaxe pour aller piocher la date (par ex cellule F5 de la feuil1)

 

[sylsyl]

re,

c'est on ne peut plus simple:

date1 = Sheet(1).Range("F5")

ou date1 = Sheet("feuill1").Range("F5").value '(c'est la meme chose)

.value est optionnel car c'est la methode par default quand tu fais .Range("F5"), Sheet(1) est l'index de la feuille (ou Sheets(1) ?) et sheet("feuill1") est le nom de la feuille (idem).

A++, Sylsyl.

 

[Michael]

Merciiiiiiiiiiiiiiiiiiiiiiiiiiiii