Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Envoi d'un classeur + fichier Word par Outlook

  • Initiateur de la discussion Initiateur de la discussion ercita
  • 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 !

E

ercita

Guest
Salut à tous,
Voici je souhaite envoyer le classeur actif ainsi qu'un fichier WORD ouvert vers un destinataire.
Help
Merci
Eric
 
bonsoir

tu peux essayer cette macro

Sub envoiMessage_piecesAttachees()
Dim OlApp As Object
Dim OlItem As Object

Set OlApp = CreateObject('Outlook.Application')
Set OlItem = OlApp.CreateItem(olMailItem)

With OlItem
.To = 'nom@domaine.fr'
.Subject = 'le sujet ...'
.Body = 'Le corps du message ...'
'le classeur Excel est supposé deja sauvegardé
.Attachments.Add ActiveWorkbook.FullName
.Attachments.Add 'C:\\\\\\\\Documents and Settings\\\\\\\\michel\\\\\\\\dossier\\\\\\\\leDocument.doc'
.Save
.Send
End With

Set OlApp = Nothing
End Sub




bonne soiree
MichelXld
 
Merci,
ça marche super bien MERCI, seulement j'ai un PB car mon fichier Word comporte des liens SQL. Pour que mon mail fonctionne il faudrait que je transforme mon fichier Word en PDF avant de l'envoyer...
As-tu une solution?
MErci Eric
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
22
Affichages
1 K
Réponses
5
Affichages
433
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…