Envoyer la feuille active en PJ de Gmail
Résolu
Marine
-
Marine -
Marine -
Bonjour,
J'ai un problème et j'espère que vous pourrez m'aider, je ne suis pas forte en VBA !! Vraiment pas...
J'ai un classeur avec des fiches de postes et ce que je voudrais c'est que quand je clique sur mon bouton, ma feuille s'exporte en PDF et se met en pièce jointe d'une boite d'envoi gmail.
Sans avoir de base de données dans le classeur, ni rentrer le destinataire de mon mail sur Excel.
Si jamais cela existe je vous en supplie, aider moi !
Merci d'avance
J'ai un problème et j'espère que vous pourrez m'aider, je ne suis pas forte en VBA !! Vraiment pas...
J'ai un classeur avec des fiches de postes et ce que je voudrais c'est que quand je clique sur mon bouton, ma feuille s'exporte en PDF et se met en pièce jointe d'une boite d'envoi gmail.
Sans avoir de base de données dans le classeur, ni rentrer le destinataire de mon mail sur Excel.
Si jamais cela existe je vous en supplie, aider moi !
Merci d'avance
1 réponse
-
Bonjour,
se servir de l'enregistreur de macro:
ensuite allez dans le logo en haut à gauche et Envoyer:
ensuite enregistrer le classeur prenant en charge les macros
-
-
-
-
comme ceci avec Outlook:
Option Explicit Sub EnvoiPDF() Dim Nom As String Dim olApp, m Nom = Replace(ActiveWorkbook.Name, "xlsm", "pdf") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ActiveWorkbook.Path & "\" & Nom, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False Set olApp = CreateObject("Outlook.application") Set m = olApp.CreateItem(0) With m .attachments.Add ActiveWorkbook.Path & "\" & Nom .display End With End Sub
Voilà
@+ Le Pivert -
Ça ne fonctionne pas, cela se met en jaune :
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
ActiveWorkbook.Path & "\" & Nom, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Parce que ce n'est pas pour moi, c'est pour mon patron. Je ne possède pas Outlook mais lui oui alors j'aimerais que le code lui permette d'ouvrir l'application avec la feuille active (PDF) en PJ.
J'aurais aimé aussi que les fichier PDF, ce nomme "FDP ((+ la Cellule F3))".
Désolé d'être aussi chiante..
-
