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
Partager