Renommer la feuille avec la date en cours

Bonjour,
Je voudrais renommer la feuille active avec la date en cours pour en faire
une sauvegarde dans le cadre d'un classeur partagé.
La solution actuelle:
ActiveSheet.Name = Day(Date) & Month(Date) & Year(Date) & "-" & Hour(Date)
& Minute(Date)& Second(Date)
...ne rempli pas son office car l'affichage obtenu est le suivant:
1222005-000.
A droite du tiret il n'y a toujours que des zéro (1 pour Hour, 1 pour
Minute, 1 pour Second).
Que puis-je faire pour améliorer cette solution et obtenir au moins HHMM
(sinon HHMMSS?
Merci de votre aide.

Bonjour,
avec ceci peut-être ?
ActiveSheet.Name = Day(Date) & Month(Date) & Year(Date) & "-" &
Format(Time, "hhmmss")

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"ManBas" <nospam-j.ragni@wanadoo.fr> a écrit dans le message de news:
%23TyNsqNEFHA.548@TK2MSFTNGP14.phx.gbl...

Bonjour,
Je voudrais renommer la feuille active avec la date en cours pour en
faire une sauvegarde dans le cadre d'un classeur partagé.
La solution actuelle:
ActiveSheet.Name = Day(Date) & Month(Date) & Year(Date) & "-" &
Hour(Date) & Minute(Date)& Second(Date)
...ne rempli pas son office car l'affichage obtenu est le suivant:
1222005-000.
A droite du tiret il n'y a toujours que des zéro (1 pour Hour, 1 pour
Minute, 1 pour Second).
Que puis-je faire pour améliorer cette solution et obtenir au moins HHMM
(sinon HHMMSS?
Merci de votre aide.