Besoin d'aide pour adapter 2 codes

**giulian12** · 01/05/2015, 11h43

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

**giulian12** · 01/05/2015, 12h46

si je fait cela dans le 1er code enlever le chemin d’enregistrement des pdf:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
' Nom de base du fichier PDF à créer
    strFichier = "TestInterlocuteur {0} - {1} {2}.pdf"

pour dans le second code faire cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub TestSendOLMail2()
Dim astrFichiers As String
 
' Chemin du fichier à joindre
astrFichiers = "PrintAsPDF strFichierPDF, strEtat, strFiltre"

Cela parait cohérent ?

**giulian12** · 04/05/2015, 14h49

Avec ce code j'ai une erreur 13 incompatibilité de type:

Pouvez-vous m'orienter ?

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
 
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
    Dim astrFichiers As String
 
    ' Nom de l'état à imprimer
    strEtat = "RequêteCDE12maitest"
 
    ' Nom de base du fichier PDF à créer
    strFichier = "CDE du 12 mai {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
 
        ' Le fichier PDF sera la pièce jointe
        astrFichiers = "strFichierPDF"
 
        ' On expédie le message
         SendOLMail2 "julien.trochel@gmail.com", _
         "Quelques pièces jointes...", _
         "Salut," & vbCrLf & "Ci-joint, quelques fichiers pour tester..." _
         & vbCrLf & "-- giulian.", _
         False, _
         astrFichiers
 
        ' Personne suivante
        rst.MoveNext
    Wend
 
    ' Terminé !
    rst.Close
    Set rst = Nothing
    MsgBox "Opération terminée !", vbInformation
End Sub

**loufab** · 04/05/2015, 15h23

Bonjour,

Il faut fournir la ligne de l'erreur au minimum et le mieux c'est d'indiquer également la valeur de toutes les variables.

Cordialement

**giulian12** · 04/05/2015, 15h33

Merci j'ai un peu avancé

Désormais j'ai une erreur car la variable astrFichiers = "strFichierPDF" ne trouve pas le chemin des fichiers qui sont généré avant du coup elle ne peut pas les joindre au mail

**loufab** · 04/05/2015, 15h37

le contenu...

(cf ... je ne pratique pas l'extispicine dans ma signature !)

**giulian12** · 04/05/2015, 15h44

Pardon le contenu du code ?

J'ai une erreur 2147024894
Fichiers introuvables

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
 
 
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
    Dim astrFichiers(1 To 1) As String
 
    ' Nom de l'état à imprimer
    strEtat = "RequêteCDE12maitest"
 
    ' Nom de base du fichier PDF à créer
    strFichier = "C:\test\" & "CDE du 12 mai {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
 
        ' Le fichier PDF sera la pièce jointe
        astrFichiers(1) = "strFichierPDF"
 
        ' On expédie le message
         SendOLMail2 "monmail@mail.com", _
         "Quelques pièces jointes...", _
         "Salut," & vbCrLf & "Ci-joint, quelques fichiers pour tester..." _
         & vbCrLf & "-- giulian.", _
         True, _
         astrFichiers
 
 
        ' Personne suivante
        rst.MoveNext
    Wend
 
    ' Terminé !
    rst.Close
    Set rst = Nothing
    MsgBox "Opération terminée !", vbInformation
End Sub

Le module SendOLMail2 utiliser dedans

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
 
Option Compare Database
 
' ---
' ENVOYER UN MAIL DEPUIS ACCESS, AVEC PIECES JOINTES
' ---
' Entrée : strEmail     <- Adresse e-mail du destinataire
'          strObj       <- Objet du courrier
'          strMsg       <- Corps du message
'          blnEdit      <- True pour pouvoir modifier le courrier avant envoi
'                          False pour expédier le courrier directement.
'          astrFichiers <- Tableau des pièces jointes
 
' Remarques : Le mail est expédié via Microsoft Outlook
'             plutôt que via SendObject.
 
Public Sub SendOLMail2( _
  ByVal strEmail As String, _
  ByVal strObj As String, _
  ByVal strMsg As String, _
  ByVal blnEdit As Boolean, _
  Optional ByVal avarFichiers As Variant)
 
Dim ol As Outlook.Application
Dim mi As Outlook.MailItem
Dim varPJ As Variant
 
' Créer une instance d'Outlook
On Error GoTo OLMailErr
Set ol = New Outlook.Application
 
' Créer un objet Email
Set mi = ol.CreateItem(olMailItem)
 
' Paraméter le message
With mi
  .To = strEmail
  .Subject = strObj
  .Body = strMsg
 
  ' Joindre les pièces, s'il y en a
  For Each varPJ In avarFichiers
    .Attachments.Add (varPJ)
  Next
 
  If blnEdit Then
    .Display
  Else
    .Send
  End If
End With
 
Set mi = Nothing
Set ol = Nothing
Exit Sub
 
OLMailErr:
    MsgBox "Erreur : " & Err.Number & vbCrLf & Err.Description
    Exit Sub
End Sub

**loufab** · 04/05/2015, 16h18

De la variable... le code tu l'as déjà fourni.

**giulian12** · 04/05/2015, 16h28

je suis désolé je ne comprend pas.

je débute il y a un mois je n avais pas fait d'access donc j ai encore de grosses lacunes pouvez vous précisez ce que vous souhaitez

Comment avoir le contenu de la variable ?

**loufab** · 04/05/2015, 16h40

le contenu de la variable strFichierPDF au moment de l'erreur.

Tu dois mettre des points d'arrêt dans le code avec F9.

**giulian12** · 04/05/2015, 17h42

J'avance merci pour les point d arrêt mode débogage effectivement ca permet de mieux cerner le pb

lorsque j'enlève les guillemet à strFichierPDF

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

astrFichiers(1) = strFichierPDF

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 astrFichiers(1) = "strFichierPDF"

la variable "strFichierPDF" récupère bien un fichier

Ensuite à la toute dernière ligne du code je remplace

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

astrFichiers

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 astrFichiers(1)

j'ai de nouveau une erreur 13 incompatibilité de type et la variable astrFichiers contient le fichier il ne doit pas manquer grand chose

**loufab** · 04/05/2015, 19h23

Observe le contrat d'utilisation de SendOmail :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Sub SendOLMail2( _
  ByVal strEmail As String, _
  ByVal strObj As String, _
  ByVal strMsg As String, _
  ByVal blnEdit As Boolean, _
  Optional ByVal avarFichiers As Variant)

Et compare-le à ce que tu lui passes en paramètre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Dim astrFichiers(1 To 1) As String

Tu vois la différence ?

**giulian12** · 04/05/2015, 19h26

le variant a la place du string ?

Donc si je déclare astrFichiers(1 To 1) As Variant cela va fonctionner ?

**loufab** · 04/05/2015, 21h04

Tout porte à le croire.

**giulian12** · 05/05/2015, 08h27

J'ai toujours la même erreur même en déclarant la variable en Variant à la place de String

**loufab** · 05/05/2015, 09h18

A quelle ligne se produit l'erreur et que contient les variables au moment de l'exécution de cette ligne ?

J'ai testé le code sans StringFormat() puisque tu ne l'as pas joins ni avec le contenu de la table (donc totalement en aveugle) et je n'ai pas de message d'erreur.

**giulian12** · 05/05/2015, 09h23

l'erreur 13 incompatibilité de type se produit entre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
' 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

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
        ' Personne suivante
        rst.MoveNext
    Wend

à ce moment là toutes les variables notamment "astrFichiers" contiennent bien le fichier

je te joint le stringformat, je viens d'essayer sans et c'est la même erreur

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
 
Option Compare Database
 
    ' ---
    ' INSERTION DE VALEURS DANS UNE CHAINE DE CARACTERES
    ' ---
    '
    Function StringFormat( _
      ByVal strChaine As String, _
      ParamArray varValeurs() As Variant) As String
 
      Dim intI As Integer
      For intI = LBound(varValeurs) To UBound(varValeurs)
        strChaine = Replace(strChaine, "{" & intI & "}", Nz(varValeurs(intI)))
      Next
 
      StringFormat = strChaine
    End Function

**giulian12** · 05/05/2015, 12h10

Je tourne en rond à la fin de la boucle il n y a pas d'appel à outlook pour générer le mail et cela probablement car l'incompatibilité de type est sur la variable astrFichiers qui est finalement égale à strFichierPDF.

Je peut même simplifier mon code en appelant directement ce dernier, mais dans tous les cas j'ai cette erreur qu'elle soit déclarée en String ou en Variant.

**giulian12** · 05/05/2015, 13h23

Eureka j'ai trouvé il lui faut a tout prix un chemin donc je stockes les fichier sur un répertoires ils ont donc un vrai chemin ils peuvent ensuite être envoyés

place à la suite l envoi du mail avec le champs mail de la personne filtré dans la boucle

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
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
    Dim astrFichiers(1 To 1) As String
    
    
    
    ' Nom de l'état à imprimer
    strEtat = "RequêteCDE12maitest"
    
    ' Nom de base du fichier PDF à créer
    strFichier = "c:\test\" & "CDE du 12 mai {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
         
        ' Le fichier PDF sera la pièce jointe
        astrFichiers(1) = strFichierPDF
            
        ' 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
                                   
        ' Personne suivante
        rst.MoveNext
    Wend
    
    ' Terminé !
    rst.Close
    Set rst = Nothing
    MsgBox "Opération terminée !", vbInformation
End Sub

**giulian12** · 05/05/2015, 14h46

j'avance tranquillement

Désormais je souhaite envoyer le mail à plusieurs destinataires comment pourrai je adapter la fonction SendOLmail2 ? j'ai vu un tuto ou une personne utilise le CC mais j'aimerai directement mettre tout le monde dans To

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
 
Option Compare Database
 
' ---
' ENVOYER UN MAIL DEPUIS ACCESS, AVEC PIECES JOINTES
' ---
' Entrée : strEmail     <- Adresse e-mail du destinataire
'          strObj       <- Objet du courrier
'          strMsg       <- Corps du message
'          blnEdit      <- True pour pouvoir modifier le courrier avant envoi
'                          False pour expédier le courrier directement.
'          astrFichiers <- Tableau des pièces jointes
 
' Remarques : Le mail est expédié via Microsoft Outlook
'             plutôt que via SendObject.
 
Public Sub SendOLMail2( _
  ByVal strEmail As String, _
  ByVal strObj As String, _
  ByVal strMsg As String, _
  ByVal blnEdit As Boolean, _
  Optional ByVal avarFichiers As Variant)
 
Dim ol As Outlook.Application
Dim mi As Outlook.MailItem
Dim varPJ As Variant
 
' Créer une instance d'Outlook
On Error GoTo OLMailErr
Set ol = New Outlook.Application
 
' Créer un objet Email
Set mi = ol.CreateItem(olMailItem)
 
' Paraméter le message
With mi
  .To = strEmail
  .Subject = strObj
  .Body = strMsg
 
  ' Joindre les pièces, s'il y en a
  For Each varPJ In avarFichiers
    .Attachments.Add (varPJ)
  Next
 
  If blnEdit Then
    .Display
  Else
    .Send
  End If
End With
 
Set mi = Nothing
Set ol = Nothing
Exit Sub
 
OLMailErr:
    MsgBox "Erreur : " & Err.Number & vbCrLf & Err.Description
    Exit Sub
End Sub

EDIT:

Trouver en faisant cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
' On expédie le message
         SendOLMail2 rst("MailEtabl1") & ";" & rst("MailEtabl2") & ";" rst("MailEtabl3"), _
         "Quelques pièces jointes...", _
         "Salut," & vbCrLf & "Ci-joint, quelques fichiers pour tester..." _
         & vbCrLf & "-- giulian.", _
         True, _
         astrFichiers

Besoin d'aide pour adapter 2 codes

VBA Access

Discussions similaires

Partager

Partager