Format date

[Prod]

Bonjour,

J'ai fait une macro qui m'affiche la date du fichier et l'heure lorsque je clique sur un bouton.

Voici mon code:
Range('A1').Select
'A1 étant la cellule où le texte s'inscrit.
ActiveCell.Value = Format(Date, 'dd/mm/yyyy')

Range('A2').Select
'A2 étant la cellule où le texte s'inscrit.
ActiveCell.Value = Format(Time, 'hh:mm:ss')

Mon problème est qu'il m'inverse les jours et les mois:
04/07/2006 (inversion du jour et du mois)
09:40:01 (pas de pb pour l'heure)

POURQUOI ???????

Merci par avance

 

[PascalXLD]

Bonjour

essaies ainsi

Range('A1') = CDate(Format(Date, 'dd/mm/yyyy'))


Bon courage

 

[Bernard_XLD]

Bonjour prod, salut pascal

une autre solution

    With Range('A1')
    .NumberFormat = 'dd/mm/yyyy'
    .Value = Date
    End With

Bien cordialement, A+

 

[Prod]

Merci à vous deux

Je me suis arrêté à la solution de pascal qui marchait très bien, et je testerais aussi la tienne yeahou

@+

 

[Qrieux]

bonjour

Pourquoi ecrire une macro pour plagier la fonction MAINTENANT()
hmy:

 

[PascalXLD]

Re

Et bien le code peut-être imbriqué dans un autre

De plus la fonction maintenant() est volatile tandis que là non

Bon courage