fonctionnalité envoie par mail en PDF

Question

Bonjour,

Je souhaite envoyer envoyer un devis par mail au format PDF.

Malheureusement, lorsque j'utilise la fonction "envoyer comme pièce jointe au format PDF", Excel joint le classeur entier.

Ce que je souhaite, c'est envoyer seulement le premier onglet  que j'ai mis en page au travers des sauts de page (au lieu des 2 onglets qui ont des données saisie comme me fait cette fonctionnalité de base). Peut t'on la paramétrer?

Merci de votre aide

---

Phimony

Answer 1

Bonjour,

 

Fais une copie de la feuille dans un nouveau classeur (clic droit sur

l'onglet, "Déplacer ou copier", coche "faire une copie" et dans la

liste déroulante "dans ce classeur", choisis "nouveau classeur. Procède

ensuite à l'envoi de ce classeur.

 

Cordialement.

Daniel

 

 

 

Answer 2

Bonjour et merci pour cette réponse aussi rapide.

Peut'on en faire une macro afin que je puisse affecter ensuite celle-ci à un bouton et envoyer tous les devis que je souhaiterai par mail au format PDF.

Merci

---

Phimony

Answer 3

Bonjour,

Quel est ton client de messagerie ? Outlook ?

Daniel

Answer 4

Bonjour,

désolé pour le délai de la réponse.

J'utilise outook comme boit de messagerie.

---

Phimony

Answer 5

Essaie :

Sub test()
    Dim Chemin As String, Fichier As String
    Dim OutApp As Object
    Dim OutMail As Object
    Chemin = "C:\Users\Daniel\AppData\Local\Temp\" 'à modifier
    Fichier = "Temp.pdf"
    On Error Resume Next
    Kill Chemin & Fichier
    On Error GoTo 0
    Sheets(1).Copy
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Chemin & Fichier, Quality:= _
        xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .Attachments.Add Chemin & Fichier
        .Display
    End With
    On Error GoTo 0
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Daniel

Answer 6

Bonjour et merci pour ta réponse rapide,

Dois-je mettre ce programme dans une nouvelle macro que j'affecterai à un bouton pour que je puisse utiliser cette commande à chaque fois que je le souhaite?

Est-ce que j'ai seulement la ligne:

Chemin = "C:\Users\Daniel\AppData\Local\Temp\" 'à modifier

en changeant ce qui est en gras par mon chemin et en supprimant "à modifier" à la fin ?

ou y t'il d'autre chose à modifier d'en votre programme pour l'adapter à mon fichier et mon environnement?

---

Phimony

Answer 7

Non, c'est la seule chose que tu aies à modifier. La macro peut être attachée à un bouton sur une autre feuille que la feuille 1 qui est la feuille envoyée. Si tu veux mettre la macro dans un autre classeur ou dans le classeur de macros personnelles, dis-le moi, il faut faire une petite modif.

Daniel

Answer 8

Merci,

Je vais donc mettre cette commande dans mes macros et faire un bouton en affectant cette macro dans ce classeur tout simplement.

Je reviendrai vers toi si besoin,

Merci de ton aide

---

Phimony