Discussion :

[2lester]

Bonjour à tous,

Je souhaite récupérer dans un fichier excel unique le contenu de plusieurs autres fichiers excel qui sont en PJ de fichiers .msg sauvegardés dans un répertoire sur mon disque dur :

comment est-il possible via une macro exécutée depuis mon fichier excel "centralisateur" d'ouvrir tous les fichiers .msg, d'en extraire les pièces jointes et de les enregistrer dans un répertoire donné ?

Merci par avance pour votre aide et Bonne Année 2013

[Oliv-]

bjr,
il faut passer par Outlook éventuellement en automation.

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
Sub Ouverture_msg(LeFichier As String)
'ouvrir un .msg d'un dossier de l'explorateur
    Set myolApp = Outlook.Application
    shellcommande = """C:\Program Files\Microsoft Office\OFFICE14\OUTLOOK.EXE"" /f """ & LeFichier & """"
    RetVal = Shell(shellcommande, 1)
    DoEvents
    Set myItem = myolApp.ActiveInspector.CurrentItem
    'MsgBox "Sujet: " & myItem.subject & vbCr & "reçu le : " & myItem.ReceivedTime & vbCr & "A: " & myItem.To & vbCr & "Email Exp: " & myItem.SenderEmailAddress & vbCr & "PJ: " & myItem.Attachments.Count
   'ici le traitement à faire 
   ' myItem.attachments ....
 
    On Error Resume Next
    myItem.Close 0
    On Error GoTo 0
End Sub

[2lester]

Bonjour Oliv'
Parfait c'est le maillon qui me manquait...
Merci beaucoup !!!