none
fonctionnalité envoie par mail en PDF RRS feed

  • 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

    lundi 20 août 2012 07:34

Réponses

  • 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

    • Marqué comme réponse Aurel Bera jeudi 27 septembre 2012 11:07
    vendredi 31 août 2012 08:30

Toutes les réponses

  • 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
     
     
     
    lundi 20 août 2012 07:49
  • 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

    lundi 20 août 2012 09:04
  • Bonjour,

    Quel est ton client de messagerie ? Outlook ?

    Daniel


    lundi 20 août 2012 10:23
  • Bonjour,

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

    J'utilise outook comme boit de messagerie.


    Phimony

    vendredi 31 août 2012 07:29
  • 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

    • Marqué comme réponse Aurel Bera jeudi 27 septembre 2012 11:07
    vendredi 31 août 2012 08:30
  • 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

    vendredi 31 août 2012 08:48
  • 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

    vendredi 31 août 2012 09:19
  • 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

    vendredi 31 août 2012 10:01