Bouton VBA dans word pour envoyer el document en PDF avec Outlook Le sujet est résolu

Word, PowerPoint, Outlook, Access et tous les autres logiciels de la suite Office (sauf Excel)
R
RJ85
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 4 novembre 2018
Version d'Excel : 2016 FR

Message par RJ85 » 1 mai 2019, 18:47

Bonsoir à tous,

J'ai crée un document word dans lequel j'ai installé un bouton "Envoyer".

Mon objectif est de pouvoir, en cliquant sur ce bouton Envoyer, transmettre le document non pas au format word mais PDF
et en pièce jointe dans un email Outlook.

J'arrive à créer un code pour un envoi en word :
Private Sub ENVOYER_Click()
Options.SendMailAttach = True
ActiveDocument.SendMail
End Sub

Mais je n'arrive pas à créer un code pour un envoi par email en PDF.

Puis-je solliciter votre aide ?
J'ai inséré en pièce jointe le document word.

Merci d'avance,
Raphaël
test.docm
(98.72 Kio) Téléchargé 3 fois
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 4'853
Appréciations reçues : 240
Inscrit le : 16 mars 2017
Version d'Excel : 2010 sur PC

Message par i20100 » 2 mai 2019, 14:42

Bonjour Raphaël,

à tester,
RJ85-Test pdf.docm
(24.14 Kio) Téléchargé 8 fois
ps/ pour la variable "fichier": il faut adapter le chemin du fichier
1 membre du forum aime ce message.
Merci! de faire un clic sur le bouton résolu pour nous aider à t'aider.
isabelle
R
RJ85
Jeune membre
Jeune membre
Messages : 11
Inscrit le : 4 novembre 2018
Version d'Excel : 2016 FR

Message par RJ85 » 3 mai 2019, 16:54

Bonjour,

Énorme merci i20100, cela fonctionne sur mon pc en modifiant le chemin du fichier.
Je me permets une question encore, puisque ce fichier est destiné à mes collègues pour lesquels chacun a un chemin d'accès
différents depuis son pc du type c:\users\(un numéro)\Desktop

N'y a t'il pas une possibilité d'adapter ce fichier Word à tous plutôt que d'adapter le code VBA à chacun des PC des collègues ?

Bonne soirée,

Raphaël
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 4'853
Appréciations reçues : 240
Inscrit le : 16 mars 2017
Version d'Excel : 2010 sur PC

Message par i20100 » 3 mai 2019, 18:12

Bonjour Raphaël,

oui, tu pourrais utiliser le répertoire suivant,
TempFilePath = "C:\Users\" & Environ$("Username") & "\Desktop\"
Merci! de faire un clic sur le bouton résolu pour nous aider à t'aider.
isabelle
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message