[XL-2013] Enregistrer un doc excel en pdf pour un envoi mail via macro

1 pièce(s) jointe(s)

Enregistrer un doc excel en pdf pour un envoi mail via macro

Bonjour,

Je suis une novice en programmation par des macro sur excel.
Je dois faire un tableau excel où lorsque l'on appuie sur un bouton cela génère un pdf avec la date et cela l'envoie à une adresse mail mise dans une cellule.

J'ai réussi à créer un bouton qui créé le pdf souhaité et un autre pour l'envoie mais je n'arrive pas à lier les 2 ni à avoir l'email souhaité grâce à une cellule.

Vous trouverez en pièce jointe mon fichier test. Si vous pouvez m'aider...

D'avance merci !Pièce jointe 339910

Salut, va voir ici

Merci pour votre lien, cela m'a beaucoup aidé. Par contre, après avoir copié le VBA suivant et en l'adaptant à mon fichier (enfin je crois), j'ai un souci au niveau du "FileName = RDB_Create_PDF...

Cela me dit "erreur de compilation, sub ou function non définie". Je ne sais pas quoi faire pour rectifier le tir. Comme je l'ai dit, je suis une débutante...

Pouvez-vous m'aider ?

D'avance merci.

Cordialement,
Ludivine

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
Sub Mail_Every_Worksheet_With_Address_In_A1_PDF()
'Working only in 2007 and up
    Dim sh As Worksheet
    Dim TempFilePath As String
    Dim TempFileName As String
    Dim FileName As String
 
    'Temporary path to save the PDF files
    'You can also use another folder like
    'TempFilePath = "C:\Users\Ron\MyFolder\"
    TempFilePath = "C:\Users\Ludivine\Documents\XXDivers\info cuisine\Frédéric Blanc"
 
    'Loop through every worksheet
    For Each sh In ThisWorkbook.Worksheets
        FileName = "test11"
 
        'Test A1 for a mail address
        If sh.Range("A7").Value Like "?*@?*.?*" Then
 
                  'If there is a mail address in A1 create the file name and the PDF
            TempFileName = TempFilePath & "Sheet " & sh.Name & " of " _
                         & ThisWorkbook.Name & " " _
                         & Format(Now, "dd-mmm-yy h-mm-ss") & ".pdf"
 
            FileName = RDB_Create_PDF(Source:=sh, _
                                      FixedFilePathName:=TempFileName, _
                                      OverwriteIfFileExist:=True, _
                                      OpenPDFAfterPublish:=False)
 
            'If publishing is OK create the mail
            If FileName <> "" Then
                RDB_Mail_PDF_Outlook FileNamePDF:=FileName, _
                                     StrTo:=sh.Range("A7").Value, _
                                     StrCC:="", _
                                     StrBCC:="", _
                                     StrSubject:="This is the subject", _
                                     Signature:=True, _
                                     Send:=False, _
                                     strbody:="Bonjour, <BR><BR>Voici la commande pour le restaurant Georges Blanc<BR><BR>Merci d'avance<BR><BR>Frédéric"
            Else
                MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _
                       "Microsoft Add-in is not installed" & vbNewLine & _
                       "You Canceled the GetSaveAsFilename dialog" & vbNewLine & _
                       "The path to Save the file in arg 2 is not correct" & vbNewLine & _
                       "You didn't want to overwrite the existing PDF if it exist"
            End If
 
        End If
    Next sh
End Sub

Bonjour,

N'utilise pas Filename comme nom de variable. C'est un nom de paramètre en VBA, et VBA doit être perdu

Salut, pour RDB_Create_PDF va voir Creating and Sending PDF Files from Excel 2007 and Excel 2010

Bonjour,

Merci pour votre aide. J'ai compris et c'est tout bon !

Cordialement,