Ajout de l'heure dans le nom d'un fichier

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.

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

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,":","-")

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.

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