Envoie de fichier vba

[adr95]

Bonjour,

Je sais que des sujets ont déjà été ouvert mais je ne comprends pas bien comme fonctionne l'envoi de fichier via vba.
J'ai adapté le code suivant :

Set myOlApp = CreateObject("Outlook.Application")
Set myitem = myOlApp.CreateItem(olMailItem)
With myitem
.Recipients.Add ("jeanrene@hotmail.com;atfcrew@yahho.fr")
.Subject = "analyse de données FO"
myitem.Display
End With

Mais j'ai pas réussi à mettre le fichier excel dans le message outlook.

Je vous joints aussi le fichier excel le code est dans l'userform 3.

Merci

 

[MichD]

Re : Envoie de fichier vba

Bonjour,

Un exemple :

Sub test()
Dim MyOlapp As Object, MyItem As Object
Set MyOlapp = CreateObject("Outlook.Application")
Set MyItem = MyOlapp.CreateItem(olMailItem)
With MyItem
    .to = ("jeanrene@hotmail.com;atfcrew@yahho.fr")
    .Subject = "analyse de données FO"
    .Body = "Bonjour" & vbCrLf & vbCrLf & _
           "Voici le fichier promis." & vbCrLf & vbCrLf & _
           "Salutations"
    .Attachments.Add "c:\users\ton profil\Documents\classeur1.xlsm"
    .Display
End With
End Sub

 

[adr95]

Re : Envoie de fichier vba

J'ai finalement trouvé il fallait rajouter :

.Attachments.Add "C:/" '<-Ici le chemin du fichier