Cells.Value et les dates

Version imprimable

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 8O
Si quelqu'un à une idée ...

Code:

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.

07/12/2010, 10h12
rvtoulon
Bonjour nom,
peux-être serait-il bien de mettre le résultat dans une variable Date comme ceci:
tu déclare la variable au début du code par exemple:

Code:

Dim datefinale As Date

ensuite tu remplace :

Code:

Worksheets("Feuil2").Cells(1, 2).Value = maDate(2) & "/" & tabMois(maDate(3)) & "/" & maDate(4)

par :
Code:

1 2 datefinale = maDate(2) & "/" & tabMois(maDate(3)) & "/" & maDate(4) Worksheets("Feuil2").Cells(1, 2).Value = datefinale
Tiens nous au courant
07/12/2010, 10h13
DonKnacki

En utilisant la fonction DateValue, ça résous mon problème.

Code:

WorkSheets("Feuil2").Cells(1, 2).Value = DateValue(maDate(2) & "/" & tabMois(maDate(3)) & "/" & maDate(4))

Étrange néanmoins ...

EDIT : en réaction avec la réponse de rvtoulon que je n'avais pas vu
Effectivement ta proposition résous également le problème. Merci à toi pour ton aide :)

Bonjour le forum

Je serais tenté de passer par une variable String et de forcer le format ensuite

du style :
Code:

1 2 3 4 Dim LaDate As String LaDate = maDate(2) & "/" & tabMois(maDate(3)) & "/" & maDate(4) Worksheets("Feuil2").Cells(1, 2).Value = Format(CDate(LaDate), "dd/mm/yyyy")
pas testé.

tu dit

bon courage

07/12/2010, 10h19
DonKnacki

Bonjour Jean-Pierre49,
Pour info, avec ta solution, j'ai toujours le problème. Je vais utiliser une variable Date je pense
07/12/2010, 21h35
AlainTech

Bonjour,

J'ai testé une solution toute simple sur un Excel en français:

Code:

[A1] = CDate("6 décembre 2010 09:50")

La cellule A1 contient bien une date.
Par contre, cette solution ne supporte pas qu'on lui ajoute le nom du jour (lundi 6 décembre 2010 09:50).