Fusionner deux macros

Version imprimable

Bonjour la famille,
Dans un fichier Excel, j'ai deux macros: celle qui transforme une feuille Excel en PDF et l'envoie et celle qui crypte le fichier avec un mot de passe.
Maintenant je voudrais fusionner les deux macros.
Besoins de votre aide SVP.
Le code ci-dessous

Code:

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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
 
Option Explicit
 
Sub Mail()
Dim Destinataire As String
Dim sNomPdf As String
Dim sDossier As String
Dim sNomCrypt As String
Dim objApp As Object
Dim File As Object
Dim OutApp As Object
Dim objMessage As Object
 
Dim EmailApp As Outlook.Application
Dim Source As String
Set EmailApp = New Outlook.Application
 
    sDossier = ThisWorkbook.Path
 
    Destinataire = "monmail@outlook.com"
    sNomPdf = sDossier & "\" & "Test.pdf"
 
    Feuil1.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sNomPdf, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
 
    sNomCrypt = sDossier & "\" & "Tempo.pdf"
    EncryptPDFUsingPdfforgeDll sNomPdf, sNomCrypt
 
    Kill sNomPdf
    Name sNomCrypt As sNomPdf
 
    Dim EmailItem As Outlook.MailItem
    Set EmailItem = EmailApp.CreateItem(0)
 
    EmailItem.To = Destinataire
    EmailItem.CC = ""
    EmailItem.BCC = ""
    EmailItem.Subject = "Test"
    EmailItem.HTMLBody = "Bonjour," & vbNewLine & vbNewLine & "Veuillez trouvez ci-joint votre Document. Votre mot de passe est ." & _
    vbNewLine & vbNewLine & _
    "Cordialement!," & vbNewLine & _
    "Contact"
    Source = ThisWorkbook.FullName
    EmailItem.Attachments.Add ("C:\Users\bc00T349\Desktop\Test.pdf")
    EmailItem.Send
 
    Set objApp = Nothing
 
    Set objMessage = Nothing
End Sub
 
Private Sub EncryptPDFUsingPdfforgeDll(sNomFichier As String, sOutputCrypt As String)
Dim Pdf As Object, Crypt As Object
 
    Set Crypt = CreateObject("pdfforge.pdf.PDFEncryptor")
 
    With Crypt
        .AllowAssembly = False
        .AllowCopy = False
        .AllowFillIn = False
        .AllowModifyAnnotations = False
        .AllowModifyContents = False
        .AllowPrinting = True
        .AllowPrintingHighResolution = True
        .AllowScreenReaders = False
        .EncryptionMethod = 2
 
        .OwnerPassword = "master"
        .UserPassword = "master"
    End With
 
    Set Pdf = CreateObject("pdfforge.pdf.pdf")
    Pdf.EncryptPDFFile sNomFichier, sOutputCrypt, Crypt
    Set Pdf = Nothing
 
    Set Crypt = Nothing
End Sub

Je mets en PJ le fichier Excel
Pièce jointe 585718

Merci d'avance

03/12/2020, 17h01
joe.levrai

A part une vocation didactique (cours, études), il n'y a que des inconvénients à fusionner tes procédures.

Le bon sens c'est justement de découper en mini-procédures/mini-fonctions chaque étape (plus facile de débugguer, de faire évolution, de réutiliser dans d'autres contextes). Dans l'idéal chaque procédure est dédiée à une action, et une procédure maître se charge de faire les appels de traitement.

Quel est la finalité souhaitées de ce fait ?
03/12/2020, 17h07
Baba Diop

Réponse

Citation:

Envoyé par joe.levrai

A part une vocation didactique (cours, études), il n'y a que des inconvénients à fusionner tes procédures.

Le bon sens c'est justement de découper en mini-procédures/mini-fonctions chaque étape (plus facile de débugguer, de faire évolution, de réutiliser dans d'autres contextes). Dans l'idéal chaque procédure est dédiée à une action, et une procédure maître se charge de faire les appels de traitement.

Quel est la finalité souhaitées de ce fait ?

Merci pour les enseignements.
EN fait je voudrais intégrer cette nouvelle macro fusionnée dans macro d'envoi de mail en boucle. Et d'après ma compréhension, ces deux macros doivent être fusionner pour que l'envoi de mail se fasse en boucle.
Cordialement
03/12/2020, 17h13
Philippe Tulliez

Bonjour,
Je rejoins Joe :plusser:, que je salue au passage, par rapport à sa réponse.
Plus on découpe ses procédures, plus on a des chances d'avoir une application facile à développer et surtout à maintenir.

Citation:

ces deux macros doivent être fusionner pour que l'envoi de mail se fasse en boucle

Sans entrer dans le détail, la boucle devrait invoquer la où les procédures intervenant dans l'envoi du mail en lui passant des arguments.

1 pièce(s) jointe(s)

Réponse

Citation:

Envoyé par Philippe Tulliez

Bonjour,
Je rejoins Joe, que je salue au passage, par rapport à sa réponse.
Plus on découpe ces procédures, plus on a des chances d'avoir une application facile à développer et surtout à maintenir.

Sans entrer dans le détail, la boucle devrait invoquer la où les procédures intervenant dans l'envoi du mail en lui passant des arguments.

Bonjour Philippe,
Merci pour ces éclaircissements. Je crois donc que c'est moi qui n'ai pas compris la démarche que je devais suivre pour apporter une solution à mon problème.

Pour ne pas tirer en longueur, je mets, en pj, Pièce jointe 585722 le fichier Excel sur lequel je travaille et la macro que j'ai trouvée, à travers mes recherches, et qui devait me permettre de crypter les PDF et attribuer un mot de passe.

Code:

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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
 
 
Option Explicit
 
Sub Mail()
Dim Destinataire As String
Dim sNomPdf As String
Dim sDossier As String
Dim sNomCrypt As String
Dim objApp As Object
Dim File As Object
Dim OutApp As Object
Dim objMessage As Object
 
Dim EmailApp As Outlook.Application
Dim Source As String
Set EmailApp = New Outlook.Application
 
    sDossier = ThisWorkbook.Path
 
    Destinataire = "monmail@outlook.com"
    sNomPdf = sDossier & "\" & "Test.pdf"
 
    Feuil1.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sNomPdf, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
 
    sNomCrypt = sDossier & "\" & "Tempo.pdf"
    EncryptPDFUsingPdfforgeDll sNomPdf, sNomCrypt
 
    Kill sNomPdf
    Name sNomCrypt As sNomPdf
 
    Dim EmailItem As Outlook.MailItem
    Set EmailItem = EmailApp.CreateItem(0)
 
    EmailItem.To = Destinataire
    EmailItem.CC = ""
    EmailItem.BCC = ""
    EmailItem.Subject = "Test"
    EmailItem.HTMLBody = "Bonjour," & vbNewLine & vbNewLine & "Veuillez trouvez ci-joint votre Document. Votre mot de passe est ." & _
    vbNewLine & vbNewLine & _
    "Cordialement!," & vbNewLine & _
    "Contact"
    Source = ThisWorkbook.FullName
    EmailItem.Attachments.Add ("C:\Users\bc00T349\Desktop\Test.pdf")
    EmailItem.Send
 
    Set objApp = Nothing
 
    Set objMessage = Nothing
End Sub
 
Private Sub EncryptPDFUsingPdfforgeDll(sNomFichier As String, sOutputCrypt As String)
Dim Pdf As Object, Crypt As Object
 
    Set Crypt = CreateObject("pdfforge.pdf.PDFEncryptor")
 
    With Crypt
        .AllowAssembly = False
        .AllowCopy = False
        .AllowFillIn = False
        .AllowModifyAnnotations = False
        .AllowModifyContents = False
        .AllowPrinting = True
        .AllowPrintingHighResolution = True
        .AllowScreenReaders = False
        .EncryptionMethod = 2
 
        .OwnerPassword = "master"
        .UserPassword = "master"
    End With
 
    Set Pdf = CreateObject("pdfforge.pdf.pdf")
    Pdf.EncryptPDFFile sNomFichier, sOutputCrypt, Crypt
    Set Pdf = Nothing
 
    Set Crypt = Nothing
End Sub

Tout en espérant que cela m'aidera à avancer dans la suite de mon projet, je vous remercie d'avance.
Mes salutations cordiales.

03/12/2020, 17h35
Pierre Fauconnier

Citation:

Envoyé par joe.levrai

[...]

C'est le genre de réponses que j'apprécie particulièrement. Merci Joe ;)