Re-bonjour,

J'aurais besoin d'une piste pour envoyer plusieurs pièces jointes qui se trouve dans un dossier et qui se rapporte à une information qui se trouve dans un tableau comme ci-dessous :

Colonne A Colonne B
Numéro de facture Montant ouvert Net
INV 2018 2004 100
INV 2018 2574 250
INV 2018 3554 99
INV 2018 2936 50
INV 2017 4533 55,5
INV 2018 4302 60,00
CN 2018 0084 -12,00
CN 2018 0147 -5,00

j'ai su insérer une seule pièce jointe par défaut comme mis dans le code suivant :
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
 
Sub envoi_mail()
 
 
    Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object
    Dim NomEtCheminFichier As String
    NomEtCheminFichier = "C:\Users\JD\Desktop\Nouveau dossier\" & Range("A13") & ".pdf"
 
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
 
    Set rng = Nothing
    Set rng = ActiveSheet.Range("A8:F149")   'On définit la plage de données à convertir en HTML
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    OutMail.display 'affiche le message avec la signature par défaut
    OutMail.to = mailto
 
    On Error Resume Next
    With OutMail
        .to = Range("B1")
        .CC = Range("B5")
        .BCC = Range("")
        .Attachments.Add NomEtCheminFichier
        .Subject = Range("B2")
        .HTMLBody = RangetoHTML(rng) & "<br>" & .HTMLBody 'On appelle la fonction RangetoHTML qui va convertir la plage en données HTML et on ajoute la signature
        .display
        .Save '.Save pour sauvegarder le mail dans les brouillons, .send pour l'envoyer'
    End With
    On Error GoTo 0
    With Application
        .EnableEvents = True
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub
Est-ce que je dois fonctionner avec un boucle ?

En vous remerciant d'avance (c'est toujours vers la fin qu'on craque )

Bien à vous