Re
en attendant j'ai pu réussir à importer les données extérieures ( sauf le lien direct du mail concerné )
voici capture :
voici code :
Sub InsertionMoi()
Dim OpenOutlk As Object, NS As Object, Inbox As Object
Dim DossierDest As Object ', DossierCible As Object
Dim sDate As String
Dim sText As String
Dim tempo As String
Dim Tableau() As String
Dim mybody() As String
Dim i As Object, x As Long, R As Object
Dim j As Long
Dim t As Long
Dim l As Long
Dim StartAlert As Long
Dim EndAlert As Long
Dim Alert As String
Dim StartAlerteTrouve As Long
Dim EndAlerteTrouve As Long
Set OpenOutlk = CreateObject("Outlook.Application")
Set NS = OpenOutlk.GetNamespace("MAPI")
Set Inbox = NS.GetDefaultFolder(olFolderInbox)
Set DossierSource = Inbox.Folders("a remplir")
' Set DossierDest = Inbox.Folders("à remplir")
'''''traitement des mails du dossier DossierSource
j = 1
For Each i In DossierSource.Items
j = j + 1
'''''Date de réception du mail
sDate = Format(i.SentOn, "MM/dd/yyyy")
ThisWorkbook.Worksheets("mail").Cells(j, 1) = sDate
'''''Nom de l'expéditeur
ThisWorkbook.Worksheets("mail").Cells(j, 2) = i.SenderName
'''''Mail de l'expéditeur
'ThisWorkbook.Worksheets("MailNoe").Cells(j, 3) = i.SenderEmailAddress
tempo = i.SenderEmailAddress
ThisWorkbook.Worksheets("mail").Cells(j, 3).Hyperlinks.Add Anchor:=Cells(j, 3), Address:="mailto:" & tempo, TextToDisplay:=tempo
'''''Objet du mail
ThisWorkbook.Worksheets("mail").Cells(j, 4) = i.Subject
'''''''''''''''''''''En développement
sText = i.Body
Tableau = Split(sText, " ")
MsgBox sText
Range("E2") = sText
''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''Fin partie en Développement
StartAlerteTrouve = 0
EndAlerteTrouve = 0
'i.Move DossierDest
Next i
'''''''''''''''''''''''''
Set NS = Nothing
Set OpenOutlk = Nothing
End Sub
EFFECTIVEMENT, je comprends mieux , tout est dans une ceule cellule et galère de créer recherche sur balises