Envoyer la feuille active en PJ de Gmail

Résolu

Marine -
Marine - 10 févr. 2020 à 09:34

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

Afficher la suite

A voir également:

Envoyer la feuille active en PJ de Gmail
Gmail connexion - Guide
Accusé de reception gmail - Guide
Espace de stockage gmail plein - Guide
Créer un compte gmail - Guide
Gmail envoyer un mail - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 8437 Statut Contributeur 729

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

Marine

C'est vrai que dit comme ça c'est super simple, mais j'ai un Macbook et il n'y à pas cette fonction dans mon menu.
J'ai déjà essayer un truc dans le genre mais ça met en PJ tous le classeur alors que je veux que la feuille active.

Merci de ta réponse quand même.

cs_Le Pivert Messages postés 8437 Statut Contributeur 729 > Marine

Voir ceci:

https://www.rondebruin.nl/win/s5/pdf.htm

@+ Le Pivert

Marine > cs_Le Pivert Messages postés 8437 Statut Contributeur

Oui j'y suis déjà allé mais je ne comprends pas en quoi se lien peut m'aider...

cs_Le Pivert Messages postés 8437 Statut Contributeur 729 > Marine

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

Marine > cs_Le Pivert Messages postés 8437 Statut Contributeur

Ç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..

Discussions similaires

impossible d envoyer message a un contact sans être bloquée

Feuille de score belote

Les feuilles Diddl

Votre réponse

Discussions similaires