Enregistrer selon date

M

Michael

Guest
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 :eek:)
 
S

sylsyl

Guest
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.
 
S

sylsyl

Guest
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.
 

Discussions similaires

Réponses
15
Affichages
478

Statistiques des forums

Discussions
312 836
Messages
2 092 650
Membres
105 478
dernier inscrit
tim51