Bonjour,

J'utilise cette macro pour envoyer automatiquement un courriel selon les données qui se trouvent dans mon tableau Excel.
J'aimerai que chaque personne puisse recevoir un pièce jointe personnalisée.
J'ai inséré, dans mon tableau, une colonne avec le chemin, mais je ne sais pas comment appeler le chemin dans le code pour qu' .attachments aille chercher la p.j. qui correspond à chaque ligne...
Une idée?

Merci d'avance

Voici le code que j'utilise :
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
16
17
18
19
20
21
22
 
Option Explicit
 
Sub EnvoiCourriel()
 
Dim LeMail As Variant
Dim ligne As Integer
 
Set LeMail = CreateObject("Outlook.Application")
 
For ligne = 2 To 5
 
  With LeMail.CreateItem(olMailItem)
    .Subject = "bonjour"
    .To = Range("q" & ligne)
    .Body = "Blabla"
    .Send
  End With
 
Next ligne
 
End Sub