Macro pour sauvegarde pdf et envoie en pièce jointe automatique

**toast-nc** · 10/03/2015, 08h36

Bonjour à tous,

Je suis novice dans les macros et bien que je cumule plusieurs heures de recherches, je ne trouve pas....

Je voudrais créer un bouton cliquable sur une feuille (jusque la ça va!) qui sauvegarde en PDF la feuille concernée dans un fichier précis, avec en nom "Devis_société_date" > Société et date sont dans deux cellules de la feuille.
Et par la même action joindre le PDF sauvegardé en copie d'un nouveau mail avec comme destinataire l'adresse contenue dans une cellule de la feuille.

Dans le meilleur des cas, il me faudrait une macro "enregistrer + envoi" et une macro "enregistrer + envoi + imprimer".

Je vous remercie de votre aide.
++

**Gado2600** · 10/03/2015, 08h49

Bonjour,

As-tu regardé ici : http://www.developpez.net/forums/d43...ro-pdfcreator/ ?

Cordialement,

**patricktoulon** · 10/03/2015, 08h56

Bonjour
un étudiant qui a besoin de faire des devis ??????

c'est un forum d'entraide pas un service de code tout prêt ici et les pro sont les bien venu j'en suis un d'ailleurs

mais en aucun cas on fera le travail a ta place

fait tes expériences toi même montre nous ce que tu a coder on t'aidera a corriger les erreurs

**kiki29** · 10/03/2015, 10h09

Salut, plusieurs pistes : ici en bas du post# 1 Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant
ou alors aussi ici

**rastaquere** · 10/03/2015, 11h03

Pour la partie création du pdf

Code :

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

1
2
3
4
5
6
Sub Creer_Pdf()
 
    ChDir "Dossier ou sera ton pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="nom du fichier;pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
 
End Sub

**toast-nc** · 11/03/2015, 12h12

Merci pour vos liens.
Je viens d'y passer la journée. J'ai l'impression d'être resté devant du Chinois.

@rastaquere, votre code a marché, j'ai donc une macro qui m'enregistre en Pdf dans le fichier que je veux, merci!!

@kiki29, j'ai essayé les macros de M Ron de Bruin, et bien que ce soit expliqué très clairement, c'est quand même loin de portée d'un novice.
J'ai donc gardé la macro de sauvegarde en PDF et rajouter l'envoi par mail pour avoir une macro qui sauvegarde et envoie ;

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
Sub Creer_Pdf()
    ChDir "Mon fichier de destination"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=ActiveSheet.Name & " - " & Range("A19").Text, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
 
    If FileName <> "" Then
        RDB_Mail_PDF_Outlook FileNamePDF:=FileName, _
                             StrTo:="ron@debruin.nl", _
                             StrCC:="", _
                             StrBCC:="", _
                             StrSubject:="This is the subject", _
                             Signature:=True, _
                             Send:=False, _
                             StrBody:="<H3><B>Dear Customer</B></H3><br>" & _
                                      "<body>See the attached PDF file with the last figures." & _
                                      "<br><br>" & "Regards Ron de bruin</body>"
    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 Sub

et bien sûr, il me donne le message d'erreur "Sub ou function non définie"

Comment est-ce que je dois écrire le texte en rouge pour qu'il utilise ma feuille ?

merci d'avance

**kiki29** · 11/03/2015, 12h20

Salut, j'ai repris qqch de similaire pour PDFCreator : Génération PDF puis envoi par mail via CDO

il y a un minimum de paramètres perso à adapter à ton contexte que personne ne peut inventer pour toi.

Macro pour sauvegarde pdf et envoie en pièce jointe automatique

Macros et VBA Excel

Discussions similaires

Partager

Partager