Mettre date via VBA

[Egruat]

Bonjour,
Je fais tourner une macro de consolidation de fichiers. Tout fonctionne bien, mais je souhaiterai connaitre le code pour que cette macro, à la fin de son travail, rajoute, dans une cellule du fichier, la date et l'heure à laquelle elle a effectué son travail. Pourriez-vous m'aider ?

Bien cordialement

 

[CPk]

Re : Mettre date via VBA

Bonjour, comme ceci ?

Feuil1.[A1] = Format(Now, "dddd dd mmmm yyyy hh:mm")

 

[cathodique]

Re : Mettre date via VBA

Bonjour,

Dans ThisWorkBook ceci

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("nomFeuille").Range("A1").FormulaR1C1 = "=NOW()" 'feuille et cellule à adapter
End Sub

 

[Lone-wolf]

Re : Mettre date via VBA

Bonsoir tout le monde,

@cathodique: pourquoi mettre Now en formule; Sheets("nomFeuille").Range("A1") = Now non?


A+

 

[cathodique]

Re : Mettre date via VBA

Salut Lone-wolf,

Comme dit le vieil adage: "bête et discipliné". C'est maître enregistreur qui a donné ça. J'ai transmis en brute.

Merci, on en apprend tous les jours. Et c'est tant mieux pour moi.

Bonne soirée.

 

[Lone-wolf]

Re : Mettre date via VBA

C'est maître enregistreur qui a donné ça

Faut pas trop lui faire confiance, malgré que ce ne soit pas de sa faute; c'est les programmeurs de MIMI qui l'ont programmé comme ça.


A+

 

[Egruat]

Re : Mettre date via VBA

Merci beaucoup à vous tous !
La formule Sheets("nomFeuille").Range("A1") = Now fonctionne très bien.

Très bonne journée !!

Emmanuel

 

[CPk]

Re : Mettre date via VBA

Merci beaucoup à vous tous !
La formule Sheets("nomFeuille").Range("A1") = Now fonctionne très bien.

Très bonne journée !!

Emmanuel

Peut-être pas pour longtemps...

 

[Lone-wolf]

Re : Mettre date via VBA

Bonjour CPk

Peut-être pas pour longtemps...

Une précision peut-être?! Est-ce à cause des parenthèses manquantes??

Et tout bien réfléchi, jaurais dû faire comme ceci

Dim MonHeure

MonHeure = Now()

Sheets("Feuil1").Range("a1") = Format(MonHeure, "dd.mm.yyyy hh:mm")

 

[CPk]

Re : Mettre date via VBA

Nul besoin de précision pour l'instant, le temps dira si je me suis haté ou non

 

[Lone-wolf]

Re : Mettre date via VBA

Re CPk,

apparemment oui, sur la toile tu as des tas d'exemple où l'on utilise Now() et à moi que ce soit un jihadiste caché, je n'est jamais entendu parler qu'il a fait exploser Excel.


A+

 

[CPk]

Re : Mettre date via VBA

Now n'est-il pas assujetis, tout comme date, à l'inversion des jours/mois ?

 

[Lone-wolf]

Re : Mettre date via VBA

Bojour CPk,

si j'ai bien compris ta question, alors non. Mimi (Microsoft) à prévu celà dans les traductions. Sinon nous francophones nous le pourrions pas l'utiliser vu que Now est un mot anglais. Tout comme Date(même si il est semblable au français), Hour, Month, Day etc.

 

[Docmarti]

Re : Mettre date via VBA

Bonjour.

Now est aussi sujet à être interprété comme étant une date américaine par VBA.

Sub tt()

d = Now

Set c = Cells(1, 1)
Columns(c.Column).NumberFormat = "General"
c.Value = d
c.Offset(1).Value = CStr(d)


Set c = Cells(1, 3)
Columns(c.Column).NumberFormat = "@"
c.Value = d
c.Offset(1).Value = CStr(d)

End Sub

Cordialement

Docmarti

 

[eriiic]

Re : Mettre date via VBA

Bonjour,

oui mais bon, dans une cellule au format Standard et en mettant =Now on a la bonne valeur.
On n'est pas obligé de passer par des chaines, en l'occurence c'est plus la conversion inutile qui est cause.
eric