Mettre date via VBA

C

CPk

XLDnaute Impliqué

• 29 Mars 2016

• #2

Re : Mettre date via VBA

Bonjour, comme ceci ?

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 29 Mars 2016

• #3

Re : Mettre date via VBA

Bonjour,

Dans ThisWorkBook ceci

VB:

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 29 Mars 2016

• #4

Re : Mettre date via VBA

Bonsoir tout le monde,

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


A+ 😎

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 29 Mars 2016

• #5

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.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 29 Mars 2016

• #6

Re : Mettre date via VBA

cathodique à dit:

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

Cliquez pour agrandir...

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+ 😎

 

Vote positif 0 Vote négatif

E

Egruat

XLDnaute Occasionnel

• 30 Mars 2016

• #7

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

 

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 30 Mars 2016

• #8

Re : Mettre date via VBA

Egruat à dit:

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

Très bonne journée !!

Emmanuel

Cliquez pour agrandir...

Peut-être pas pour longtemps... 🙂

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 1 Avril 2016

• #9

Re : Mettre date via VBA

Bonjour CPk

CPk à dit:

Peut-être pas pour longtemps... 🙂

Cliquez pour agrandir...

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

 

Dernière édition: 1 Avril 2016

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 1 Avril 2016

• #10

Re : Mettre date via VBA

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 2 Avril 2016

• #11

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+ 😎

 

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 2 Avril 2016

• #12

Re : Mettre date via VBA

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 2 Avril 2016

• #13

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.

 

Vote positif 0 Vote négatif

D

Docmarti

XLDnaute Occasionnel

• 2 Avril 2016

• #14

Re : Mettre date via VBA

Bonjour.

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

Code:

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

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 2 Avril 2016

• #15

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

 

Dernière édition: 2 Avril 2016

Vote positif 0 Vote négatif