Discussion :

[Potzo]

Bonjour a tous,

J'essaye d'enregistre un fichier avec l'heure d'enregistrement, mais la fonction Time de fonctionne pas. Voici ce que j'ai code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Nom = "Dokumentenliste_Druck"
  Mois = Format(Month(Now), "0#")
  Dt = Year(Now) & "_" & Mois & "_" & Day(Now)
 
ClasseurSource.SaveAs Chemin & Dt & "_" & Nom & Time & ".xls"

Du coup je voulais savoir si c'etait possible.

[Didier Gonard]

Bonjour,

n'hésites pas à rechercher sur le forum, la FAQ et les tutos

genre ici : http://www.developpez.net/forums/d39...er-date-heure/

cordialement,

Didier

[Potzo]

J'ai rajoute :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Uhr = Format(Time, "hhmm")

dans ma ligne Dt et ca marche tres bien.

EDIT : Je n'avais pas vu ta reponse zyhack. mais merci une fois de plus de t'être penche sur mon probleme.

[le_dilem]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub resultat()
 
chemin = "D:\"
heures = Format(Time, "hhmmss")
 
Nom = "Dokumentenliste_Druck"
  Mois = Format(Month(Now), "0#")
  Dt = Year(Now) & "_" & Mois & "_" & Day(Now)
 
ActiveWorkbook.SaveAs Filename:=chemin & Dt & "-" & Nom & heures & ".xls"
End Sub

[zyhack]

bonjour

la fonction time renvoie l'heure sous forme 16:25:36 hors les : sont des caractères interdits dans un nom de fichier.

essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

replace (time,":","-")