Bonjour

Je suis assez désespérée à vrai dire car je ne connais rien au code et je n'arrive pas à trouver une solution malgré les nombreux tutos sur internet, j'ai un code pour envoyer des mails imbriquant des données différentes selon chaque destinataire qui fonctionne bien et j'aurais aimé ajouter dans celui-ci la possibilité de mettre les pièces jointes automatiquement pour ne pas avoir à le faire pour les 95 mails (pièces jointes qui sont toutes différentes).

Voici ci-dessous le code de base avec lignes 34-41 la partie qui me pose problème, vous auriez une solution svp ?

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Sub email()
 
Dim x As Byte
 
monNumero = Range("A2").Value
 
Set ws = Worksheets("Liste mails")
ws.Select
 
For compteur = 2 To 171 Step 1
    monNumroActuel = Cells(compteur, 1)
    If monNumero = monNumroActuel Then
 
        If Cells(compteur, 5) = "a" Then
                leSujet = Cells(compteur, 2)
                mesAA = mesAA & ";" & Cells(compteur, 3)
                pour = Cells(compteur, 3)
                lecorp = " "
 
        ElseIf Cells(compteur, 5) = "cc" Then
            mesCC = mesCC & ";" & Cells(compteur, 4)
        End If
 
    Else
        Set leOutlook = CreateObject("Outlook.Application")
        monNumero = monNumroActuel
        With leOutlook.CreateItem(0)
            .Subject = leSujet
            .To = mesAA
            .Body = lecorp
            .cc = mesCC
            .display
 
        If contenu = "" Then contenu = "vide"
        modifier = MsgBox(contenu & vbCr & "Voulez vous choisir un fichier à joindre ?", vbYesNo, "Fichiers paramétrés")
If modifier = vbYes Then
For i = 0 To 9
If i > 0 Then encore = MsgBox("un autre ?", vbYesNo)
quest:
If encore <> vbNo Then
PJ = InputBox("Emplacement du fichier joint au PUBLIPOSTAGE?", "Paramétrage du PUBLIPOSTAGE pour la session", publipostagePJ(i))
 
 
        End With
 
        mesCC = ""
        mesAA = ""
        If Cells(compteur, 5) = "a" Then
 
                leSujet = Cells(compteur, 2)
                mesAA = mesAA & ";" & Cells(compteur, 3)
                lecorp = " "
 
        ElseIf Cells(compteur, 5) = "cc" Then
 
            mesCC = mesCC & ";" & Cells(compteur, 4)
        End If
 
 
    End If
 
 
Next
 
Set leOutlook = Nothing
 
End Sub
Merci d'avance pour votre aide !