Bonjour
 
J'ai un soucis que je n'arrive pas à résoudre. une macro va récupérer une date dans l'objet d'un mail outlook, la date est au format dd/mm/yyyy dans l'objet du mail. Cependant quand il la récupere dans vba il l'a met au format mm/dd/yyyy. Je ne sais pas comment récupérer la date sous excel au meme format que dans l'objet du mail
 
est ce qu'il existe un code particulier pour récupérer la  date au meme format que dans l'objet du mail ?  
Sub CheckIsin()
 
'onglet cm blotter
'installer outlook app
Dim outlookApp As Outlook.Application
Dim oOutlook As Outlook.Namespace
Dim oInboxMos As Recipient
Dim oDossier As Outlook.MAPIFolder
Dim myItems As Outlook.Items
Dim myItem As Object
 
'indenter outlook for ged mo
Set outlookApp = New Outlook.Application
Set oOutlook = outlookApp.GetNamespace("MAPI" )
Set oInboxMos = oOutlook.CreateRecipient("GED_MO@***.com" )
Set oDossier = oOutlook.GetSharedDefaultFolder(oInboxMos, olFolderInbox)
'Set oDossier = oOutlook.GetDefaultFolder(olFolderInbox)
Set myItems = oDossier.Items
 
Dim Isin As String
Dim i As Integer
Dim n As Integer
 
myItems.Sort "[SentOn]", True
Range("YorN" ).ClearContents
 
'parcours colonne de ref Isin, important cellule C2 name = Isin
n = Range("Isin", Range("Isin" ).End(xlDown)).Count - 1
 
'parcours mail dans inbox et verifie si dans sujet du mail il y a isin
For i = 0 To n
    Isin = Worksheets("CM Blotter" ).Range("Isin" ).Offset(i, 0).Value
    For Each myItem In myItems
        If myItem.Class = olMail Then
            If InStr(1, myItem.Subject, Isin) > 0 Then
                Range("YorN" ).Offset(i, 0).Value = "Yes"
                Cells(i + 2, 5).Value = Split(Split(myItem.Subject, " - " )(9), " : " )(1)
                Exit For
            Else
                Range("YorN" ).Offset(i, 0).Value = "No"
                Cells(i + 2, 5).Value = "no mail"
            End If
        End If
    Next myItem
Next i
 
End Sub

Bonjour,
 
en utilisant la fonction CDate par exemple …