Discussion :

[Paul312]

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

[Invité]

Code :

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

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

Code :

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

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

[Paul312]

Bonjour,

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

Voilà la partie de mon code en question :

Code :

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

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

[Invité]

bonjour,
quel valeur ce trouve dans z?

Code :

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

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

[Paul312]

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 :

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

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