Bonjour j'ai besoin de spécialiste VBA pour m'orienter et finaliser mon projet

j'ai trouvé et adapté un module qui me découpe mon etat pdf en fonction de l'individu, j' ai testé et cela marche cela stock tous les pdf dans un répertoire:

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
 
Option Compare Database
' ---
' CREATION DE FICHES PDF
' ---
'
Sub CreerFichesInterlocuteurs()
    Dim strFichier As String
    Dim strFichierPDF As String
    Dim strEtat As String
    Dim strFiltre As String
    Dim rst As DAO.Recordset
 
    ' Nom de l'état à imprimer
    strEtat = "RequêteCDE12maitest"
 
    ' Nom de base du fichier PDF à créer
    strFichier = "C:\test\" & "TestInterlocuteur {0} - {1} {2}.pdf"
 
    ' Ouvrir la liste des personnes
    Set rst = CurrentDb.OpenRecordset("RequêteCDE12", dbOpenSnapshot)
 
    ' Parcourir toute la liste
    While Not rst.EOF
        ' Le nom du fichier varie en fonction de la personne
        strFichierPDF = StringFormat(strFichier, _
            Format(rst("EnsCode"), "000"), _
            rst("EnsNom"), _
            rst("EnsPrénom"))
 
        ' Construire le filtre
        strFiltre = "[EnsCode] = " & rst("EnsCode")
 
        ' Imprimer l'état en le filtrant sur la personne concernée
        PrintAsPDF strFichierPDF, strEtat, strFiltre
 
        ' Personne suivante
        rst.MoveNext
    Wend
 
    ' Terminé !
    rst.Close
    Set rst = Nothing
    MsgBox "Opération terminée !", vbInformation
End Sub

Ensuite j'ai un module trouver sur le net également qui envoi par mail des fichiers joint avec outlook:

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
 
Option Compare Database
 
' ---
' TEST DE LA PROCEDURE SendOLMail2
' ---
'
Sub TestSendOLMail2()
Dim astrFichiers(1 To 3) As String
 
' Chemin des 3 fichiers à joindre
astrFichiers(1) = "C:\test\TestInterlocuteur 006 -"
astrFichiers(2) = "C:\test\TestInterlocuteur 009 -"
astrFichiers(3) = "C:\test\TestInterlocuteur 935 -"
 
' On expédie le message
SendOLMail2 "monmail@mail.com", _
  "Quelques pièces jointes...", _
  "Salut," & vbCrLf & "Ci-joint, quelques fichiers pour tester..." _
    & vbCrLf & "-- giulian.", _
  False, _
  astrFichiers
End Sub

J'aimerais une sorte de fusion des deux, mon 1er code découpe mon état en fichiers individuel pdf selon un filtre comme dans le 1er code puis les envoi automatiquement un par un au bon destinataires par mail en fonction d'un champs qui contient le mail de cette personne. cette personne peu avoir plusieurs mail il faudrait que cela envoi sur tous les mail entrée dans la base.

Je pesne qu avec ces deux bout de code il y a possibilité de faire quelque chose mais mes compétences sont très maigre si vous pouvez me donner des psite de réflexion

Merci