[VBA-E]Tronquer une DATE

J'ai pas le fichier EXCEL sur moi.
Je test cela demain matin et je vous tiens au courant

1000 Merci pour votre aide.
Bonne soirée a vous

Laurent

Citation:

---

- ELSTAK ( a qui j'ai envoyé le fichier)

---

T'es vraiment qu'une sale balance :lol:

pour info j'ai rien trouvé de plus jvoulais juste tester ma solution sur son fichier

Et simplement...

Code:

---

1 2	extrac_dates=split(extrac_dates," ")(0)

---

12/05/2006 14:14:54
donnerai ca 12/05/2006
c'est tout ce kil faut

On en est à 63 messages pour un problème simple!

N'aurait-on pas oublié ceci:

Citation:

---

Envoyé par AlainTech

Essaye ça:

Code:

---

1 2 3 4 5

Sub test() Dim extrac_date As Date extrac_date = "12/05/2006 14:14:54" MsgBox Int(extrac_date) End Sub

---

---

???

En VB, une date est exprimée par un nombre. La partie entière détermine le jour et la partie décimale, les portions de jour (h, m et s).
Il suffit de prendre la partie entière pour ne garder que le jour.

Alain ca ne rique pas d'arondir a l'unité sup?

Hello Alain,
Je sais que tu es le meilleur mais ma méthode à moi... elle fonctionne aussi :aie:

Code:

---

1 2 3 4 5 6

Sub MonTestAmoi() Dim extrac_dates extrac_dates = "12/05/2006 14:14:54" MsgBox Format(CDate(extrac_dates), "dd/mm/yyyy") End Sub

---

L'avantage étant que Vesta pourra dormir tranquile :sleep: puisqu'il n'aura plus à poser de question d'arrondi sup ou inf. :langue:

A+ :lol:

N'empêche que Pitoux, il pourrait se manifester qu'on serait tous bien content :bebe:

La mienne aussi lol

une ligne en plus

Code:

---

Split(extractdate, " ")(0)

---

Je sais qu'il y a plein de manière d'y arriver mais celle que je propose est celle qui est la plus optimisée.

Ceci dit, je ne revendique rien mais on oublie souvent qu'une date est un nombre en VB.

De plus, ayant fait le test sur une chaine dont le jour est <= 12, je n'ai pas l'effet "date américaine".

Hello Alain, je me sens visé... Mais je suis d'accord avec toi. C'était juste pour taquiner. Je n'allais pas me déjuger tout de même... :(

Citation:

---

Envoyé par ouskel'n'or

Hello Alain, je me sens visé... (

---

Mais non :calin: