Macro envoi feuille par mail au format pdf code vba

  • Initiateur de la discussion Initiateur de la discussion sophveil
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

sophveil

XLDnaute Nouveau
Bonsoir à tous

J'ai un truc bizarre que je n'arrive pas à solutionner :

Dans un classeur aprés un filtre auto je selectionne les résultats et les copie dans le presse papier,
puis j'ouvre un nouveau classeur et fais un coller (jusque la c'est tout bon )
puis je fais fichier envoyer par mail et choisis le format pdf, rempli l adresse mail et envoi mon mail (jusque la c'est toujours tout bon )
puis je ferme sans enregistrer le nouveau classeur.

Voir en PJ le code que j'ai obtenu par l'enregistreur de macro :

Mon problème :

Quand je fais toutes ces manips avec l'enregistreur de macro le format du classeur est bien en pdf,
mais quand j'appele ce code par bouton le format est xls ???

Auriez vous un début de solution ?

Merci et @+
 

Pièces jointes

Re : Macro envoi feuille par mail au format pdf code vba

Bonjour

Suis rentré tard hier et je ne suis pas venu sur le forum.....

J ai simplement inseré un bouton de formulaire par developpeur, inserer, controle de formulaire
puis j'ai affecte ma macro a ce bouton.

Fallait il faire autrement ?

Merci de ta réponse
 
Re : Macro envoi feuille par mail au format pdf code vba

Bonjour,
Non tu as fait ce qu'il fallait faire ,j'ai de nouveau regardé la macro je pense qu'il y a un souci avec activeworkbook:
Code:
Sub Macro15()
' Macro15 Macro
' Envoi reste à réaliser par mail
'
Range("B4:G100").SpecialCells(xlCellTypeVisible).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Workbooks("Classeur1.xls").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\serge\AppData\Local\Temp\Classeur1.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=False
Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Close
End Sub
Mais il faut tester car je ne suis pas sur,je n'ai pas essayer.
A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
816
Retour