Bonjour à tous,
Dans ma feuille1, j'ai un copier un mail dans son intégralité afin de récupérer des informations automatiquement.
J'ai donc entre autre l'heure et la date d'envoi.
Exemple :
Envoyé*: lundi 6 décembre 2010 09:50

Je souhaite récupérer cette date et la mettre sous la forme jj/mm/aaaa dans la feuille 2. A priori rien de compliqué et pourtant, je me heurte à un problème à savoir que le résultat est sous la forme mm/jj/aaaa alors que lorsque je l'affiche pour débugger je l'ai bien dans le bonne ordre
Si quelqu'un à une idée ...

Code vba : 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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub Resa()
    Dim tabMois As New Collection
    tabMois.Add "1", "janvier"
    tabMois.Add "2", "février"
    tabMois.Add "3", "mars"
    tabMois.Add "4", "avril"
    tabMois.Add "5", "mai"
    tabMois.Add "6", "juin"
    tabMois.Add "7", "juillet"
    tabMois.Add "8", "août"
    tabMois.Add "9", "septembre"
    tabMois.Add "10", "octobre"
    tabMois.Add "11", "novembre"
    tabMois.Add "12", "décembre"
    'MsgBox (tabMois("décembre"))
 
    lastLineSheet1 = Worksheets("Feuil1").Range("A1").End(xlDown).Row
 
    For i = 1 To lastLineSheet1
        'date d'envoi
        If InStr(Worksheets("Feuil1").Cells(i, 1).Value, "Envoyé") Then
 
            maDate = Split(Worksheets("Feuil1").Cells(i, 1).Value, " ")
            'maDate : tableau contenant la date :
            'maDate(2) = jour
            'maDate(3) = mois
            'maDate(4) = année
 
            If maDate(2) < 10 Then maDate(2) = "0" & maDate(2)
            Worksheets("Feuil2").Cells(1, 2).Value = maDate(2) & "/" & tabMois(maDate(3)) & "/" & maDate(4) 
            'valeur de la cellule B1 = 12/06/2010 => problème 
            MsgBox ("maDate[2] : " & maDate(2))
            MsgBox ("maDate[3] : " & maDate(3))
            MsgBox ("maDate[4] : " & maDate(4))
            MsgBox ("Date finale : " & maDate(2) & "/" & tabMois(maDate(3)) & "/" & maDate(4))
            'Affiche "Date finale : 06/12/2010 " 
        End If
    Next i
End Sub

Je précise que le format de la cellule est jj/mm/aaaa une fois la macro lancée.