Envoyer la feuille active en PJ de Gmail [Résolu]

Signaler
-
 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

1 réponse

Messages postés
6544
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 février 2020
449
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
cs_Le Pivert
Messages postés
6544
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 février 2020
449 > Marine
tout d'abord il faut que le fichier soit enregistré en .xlsm avant de lancer la macro pour qu'il trouve son chemin!

ActiveWorkbook.Path
est le chemin du classeur, donc le pdf sera enregistré dans le dossier contenant la classeur contenant la macro. C'est simple et cela évite de mettre un chemin en dur qui ne fonctionnera pas dans un autre environnement

Voici le code:

Option Explicit
Sub EnvoiPDF()
  Dim Nom As String
  Dim olApp, m
   Nom = "FDP" & Range("F3") & ".pdf" ' a adapter
  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
> cs_Le Pivert
Messages postés
6544
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 février 2020

Bonjour,

Désolé du retard mais sur le PC de mon patron la macro ne fonctionne pas, moi je n'ai pas Outlook donc je ne peut pas faire d'essai.
Je ne sais plus quoi faire ?

Merci
> cs_Le Pivert
Messages postés
6544
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 février 2020

Un commentaire s'affiche sur le PC de mon patron :
Alerte
Impossible d'exécuter la macro ''Fiche de poste NVEAU.xltm'!EnvoiPDF'. Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées.
cs_Le Pivert
Messages postés
6544
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 février 2020
449 > Marine
Fiche de poste NVEAU.xltm

c'est un fichier xltm et non un fichier xlsm( acceptant les macros) comme je l'avais indiqué!!!!!!!

cela ne peut fonctionner!
> cs_Le Pivert
Messages postés
6544
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 février 2020

Hooo mon dieu désolé je n'avais pas vu, j'avais regarder que le "acceptant les macros", sans voir qu'il y en 2 différents ....

Vraiment désolé, en tout cas vous êtes très fort le code fonctionne à merveille !
Un énorme merci pour votre patiente et votre intelligence.