Transformer des dates AAMMJJ format texte en JJ/MM/AA format date

Bonjour,

Après plusieurs heures de recherches infructueuses, je viens solliciter votre aide.

Je crée une macro qui met en forme automatiquement le document excel issu d'une extraction de SAP, afin de gagner du temps à chaque fois que nous faisons cette extract.

Dans ma macro, je souhaite à un moment calculer la durée en jours entre deux dates. Mon problème, c'est que l'extraction d'SAP me remplit les deux colonnes de dates sous la forme AAAAMMJJ et les cellules sont au format texte standard. Je voudrais transformer ces deux colonnes sous la forme JJ/MM/AAAA en format date afin de pouvoir utiliser ensuite la formule JOUR360 dans une autre colonne pour calculer la durée. J'ai réussi à transformer la date dans mon format avec une formule (=CNUM(DROITE(A2;2)&"/"&STXT(A2;5;2)&"/"&GAUCHE(A2;4))) mais excel le reconnaît comme du texte donc je pense que ce n'est pas la solution.

Avez-vous des pistes à me proposer ?

Merci d'avance !

Paul

Code:

---

format (20160121,"0000/00/00")

---

Code:

---

cdate(format (20160121,"0000-00-00"))

---

Bonjour,

Merci de ta réponse, mais vba me retourne une erreur

Voilà la partie de mon code en question :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

For i = 2 To 5000 If wk1.Worksheets("extract").Range("A" & i).Value <> "" Then z = wk1.Worksheets("extract").Range("A" & i).Value zz = wk1.Worksheets("extract").Range("B" & i).Value wk1.Worksheets("extract").Range("A" & i) = CDate(Format(z, "0000-00-00")) wk1.Worksheets("extract").Range("B" & i) = CDate(Format(zz, "0000-00-00")) End If Next i

---

"Erreur 13 : Incompatibilité de type" sur la ligne en gras

Je souhaite récupérer les dates des colonnes A et B de la forme AAAAMMJJ et les mettre en JJ/MM/AAAA

Merci de ton aide

bonjour,
quel valeur ce trouve dans z?

Code:

---

if val(z)>0 then wk1.Worksheets("extract").Range("A" & i) = CDate(Format(z, "0000-00-00"))

---

Re,

Dans z se trouve la date issue de l'extract, sous la forme "20160125" pour le 25/01/2015

J'ai trouvé l'origine de l'erreur, certaines lignes de l'extract avaient un 0 ce qui faisait planter la fonction CDate

Du coup ton code marche parfaitement, merci beaucoup de ton aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

For i = 2 To 5000   If wk1.Worksheets("extract").Range("A" & i).Value <> "" Then   z = wk1.Worksheets("extract").Range("A" & i).Value zz = wk1.Worksheets("extract").Range("B" & i).Value   If z <> "0" Then   wk1.Worksheets("extract").Range("A" & i) = CDate(Format(z, "0000-00-00"))   End If   wk1.Worksheets("extract").Range("B" & i) = CDate(Format(zz, "0000-00-00"))     End If   Next i

---