Comment intégrer plusieurs pieces jointes dans mail par macro?

Bonjour,

normalement, il faut autant de lignes

.Attachments.Add Nom_Fichier

que de pièce-jointe

Bonne suite

bonjour et merci de ta réponse,

En tortillant dans tous les sens j'ai fini par trouver une solution fonctionnelle:

Nom_Fichier1 = Application.GetOpenFilename("Classeurs Excel , *.xls")
Nom_Fichier2 = Application.GetOpenFilename("Classeurs Excel , *.xls")

et

.Attachments.Add Nom_Fichier1
.Attachments.Add Nom_Fichier2

En revanche j'ai un autre soucis que je n'arrive pas à résoudre

Je souhaite importer dans mon mail les destinataires de ma feuille situé en "O10:O20"

Le début de ma macro est comme ceci :

Sub Envoyer_Mail_Outlook()
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String

Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)

With oBjMail
.To = "xxxxxxxx@xxxxx.xx" ' le destinataire

J'ai essayé ca mais ca fonctionne pas :

For Each Lescellules In Range("o10:o12")

et

.Dest = Lescellules.Value

Bonjour,

suivez ce lien, vous aurez la reponse:

https://codes-sources.commentcamarche.net/

Bonne suite