Discussion :

[peofofo]

Bonjour à tous,

Je cherche à faire ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Sheets("Feuil1").Range("C20") = "06/12/2008"

A chaque fois que j'essaie de copier la date, la cellule C20 prend alors la valeur de "12/06/2008"

Le format prend automatimquement le format Date.
J'ai essayé de remettre standard, il me remet le format Date

[-={-_-}=-]

Bonjour,

essaye de faire plutot comme ca pour les dates, tu verras beaucoup de souci vont disparaitre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Sheets("Feuil1").Range("C20") = DateSerial(2008,12,06)

Pour DateSerial c'est (Année, Mois,Jour)

En espérant que ca va t'aider.

[peofofo]

Merci pour ta réponse

Le problème est que j'ai simplifié l'exemple.
j'ai une variable date qui apparait gràce à le contenu d'une balise.
Mon Code est enfaite celui-ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Sheets("Feuil1").Range("C20") = personneElement.selectSingleNode("date").Text

Et le format dans leqel apparait cette variable est (jj/mm/aaaa)

Ton exemple m'oblige a fragmenter tous les morceaux de la variable.
Il n'y aurait pas un truc plus simple ?

[Krovax]

Bonjour,
Pour ne pas inverser le jour et le mois tu peux essayer ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Format(Date, "dd/mm/yyyy")

[AlainTech]

Utilise CDate:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Sheets("Feuil1").Range("C20") = CDate(personneElement.selectSingleNode("date").Text)

CDATE se sert des paramètres régionnaux de Windows.

[peofofo]

Utilise CDate:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Sheets("Feuil1").Range("C20") = CDate(personneElement.selectSingleNode("date").Text)

CDATE se sert des paramètres régionnaux de Windows.

Merci ça marche