Envoyer la feuille active en PJ de Gmail

Résolu/Fermé

Marine - Modifié le 3 févr. 2020 à 15:23
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

A voir également:

Envoyer la feuille active en PJ de Gmail
Gmail - Guide
Créer un compte gmail - Guide
Gmail connexion - Guide
Accusé de reception gmail - Guide
Gmail connexion autre compte - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
3 févr. 2020 à 17:08

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
Modifié le 3 févr. 2020 à 17:13

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 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729 > Marine
3 févr. 2020 à 17:30

Voir ceci:

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

@+ Le Pivert

Marine > cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024
3 févr. 2020 à 19:09

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 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729 > Marine
4 févr. 2020 à 11:08

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 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024
4 févr. 2020 à 13:12

Ç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

créer une adresse gmail pour une autre personne

Feuille de score belote

Discussions similaires

Newsletters