VBA envoyer un mail outlook avec une pièce jointe

Question

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 avec en rouge la partie qui me pose problème, vous auriez une solution svp ?

Sub email()
Dim x As Byte
MonNumero = Range("A2").Value
Set ws = Worksheets("TEST")
ws.Select
For compteur = 2 To 3
monNuméroActuel = Cells(compteur, 1)
If MonNumero = monNuméroActuel Then
If Cells(compteur, 5) = "a" Then
leSujet = Cells(compteur, 2)
mesAA = mesAA & ";" & Cells(compteur, 3)
pour = Cells(compteur, 3)
lecorp = " "
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)
If encore = vbNo Then
Quest:
PJ = InputBox("Emplacement du fichier joint au PUBLIPOSTAGE?", "Paramétrage du PUBLIPOSTAGE pour la session", publipostagePJ(i))
ElseIf Cells(compteur, 5) = "cc" Then
mesCC = mesCC & ";" & Cells(compteur, 4)
End If
Else
Set leOutlook = CreateObject("Outlook.Application")
MonNumero = monNuméroActuel
With leOutlook.CreateItem(0)
.Subject = leSujet
.To = mesAA
.Body = lecorp
.cc = mesCC
.display
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 !

Invité · Answer

Une petite présentation ICI serait la bienvenue Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum &#91;A LIRE AVANT DE POSTER&#93; qui vous aidera dans vos demandes et réponses sur ce forum et notamment Joignez (si possible) un fichier pour augmenter vos chances d'obtenir de l'aide en cliquant sur le bouton Fichier de l'éditeur. Si votre fichier est trop lourd ou contient des données personnelles, créez une version allégée de votre fichier avec juste assez d'informations pour permettre de comprendre votre problème. Dans tous les cas, ne postez JAMAIS de fichiers avec des informations personnelles ou confidentielles ( cet utilitaire peut vous aider à les retirer). Ensuite, il y a tout à revoir ce code même après l'avoir mis entre balises avec le bouton &lt;/&gt; est illisible et incompréhensible Il faut tout revoir à la base A+...

Invité · Answer

Re, Il fonctionnait avec toutes ces boucles quelle chance (joke) Perso, je n'y mettrais pas les pieds, ni même les mains Mais beaucoup le feront je pense...