Discussion :

[FrancisZheng]

Bonjour,

J'ai un soucis. L'image explique bien :

Pièce jointe 243409

Quelqu'un saurait pouquoi cela s'est produit?

Merci d'avance.

[joe.levrai]

Bonjour,

l'image n'explique rien, elle montre juste que tu as une différence entre le .Text et le .Value de ta cellule, mais ça ne permet pas d'en définir l'origine

montre nous la partie de ton code :

- qui récupère cette date dans Outlook
- qui l'écrit dans excel

et regarde quel est le format de la cellule qui reçoit cette date pour nous l'indiquer

[Marc-L]

Bonjour,

je confirme : celui ayant créé le format de la cellule s'est bien gaufré ‼

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[FrancisZheng]

Bonjour,

Les cases concernées sont à la colonne A de ma feuille micro_log.
Voici le code :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Sub vbax_58526_retrieve_email_info_after_specific_data_time_add()
 
    Dim i As Long
    Dim it As Object
    Dim lastexec As Date
 
    lastexec = Worksheets("macro_log").Range("A2").Value
 
    On Error Resume Next
 
    i = Worksheets("mail_data").UsedRange.Offset(1).Row
 
    With CreateObject("Outlook.Application").GetNamespace("MAPI").Folders("Mailbox - ZHENG Jianwei OperClmRrdSno").Folders("Inbox")
 
        For Each it In .Items
 
            If it.ReceivedTime > lastexec Then
 
                Select Case TypeName(it)
 
                    Case Is = "MailItem"
 
                        With Worksheets("mail_data")
 
                            .Cells(i, 1).Value = it.SenderName
 
                            .Cells(i, 2).Value = Format(it.ReceivedTime, "mm/dd/yyyy hh:mm:ss")
 
                            .Cells(i, 3).Value = it.Subject
 
                            .Cells(i, 4).Value = it.Categories
 
                        End With
 
                        i = i + 1
 
                End Select
 
            End If
 
        Next it
 
    End With
 
 
 
    With Worksheets("macro_log")
 
        .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Value = Now
 
        .Cells(1).Sort key1:=.Range("A2"), order1:=xlDescending, Header:=xlYes
 
        .Range("A2").NumberFormat = "mm/mm/yyyy hh:mm:ss"
 
    End With
 
 
 
    With Worksheets("mail_data")
 
        .Cells(1).Sort key1:=.Range("B2"), order1:=xlDescending, Header:=xlYes
 
    End With
 
 
 
End Sub

[Marc-L]

Et oui l'erreur est bien dans le code ‼

Qui veut une gaufre ? Fraise, chocolat, sucre ?   Là c'est même Nutella avec Chantilly bien sûr ! …

[joe.levrai]

Le 14 Juillet 1789, ton excel nous indique que c'est le juillet juillet 1789


Nutella sans Chantilly pour moi en ligne 67

[unparia]

Bonjour Marc_L
Il est pourtant bien connu que certaines années (on les appelle les supersusceptibles) les jours restent bloqués et limités à la valeur du mois.

[Marc-L]

Salut Jacques !
Je n'imagine même pas les changements de saisons …

Et faudra pas louper le jour d'ouverture de la pêche !

[Invité]

Bonjour,
Vue que j'ai suivi cz fils sans y participer,je colle mon grain de sel!

Nous sommes tous bénévole, certains arisant,d'autres amateurs éclairés, professionnels,étudiants, chômeurs !

[joe.levrai]

Paraît même qu'il y des retraités fort grincheux mais tout aussi éclairés que souhaitant faire avancer les débutants avec des coup de pieds au cul

[FrancisZheng]

Bravo à vous, sincèrement.