Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Lien excel Outlook

Lien excel Outlook

7 réponses
Avatar
Jérémy
Bonjour,

Je voudrais ouvrir outlook et attacher une pi=E8ce jointe (document
excel) =E0 un nouveau message.

Et je voudrais faire tout =E7a =E0 partir d'une macro sous Excel.

Merci de votre aide
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
FFO
Salut Jérémy

Essaies ceci :

rep = Shell("""C:Program FilesMicrosoft OfficeOFFICE11OUTLOOK.EXE""
""E:CheminDocument.xls""", vbMaximizedFocus)


Attention :
C:Program FilesMicrosoft OfficeOFFICE11OUTLOOK.EXE
Est l'adresse de l'application Outlook pour XP (à corriger éventuellement
pour tout autre système d'exploitation)
E:CheminDocument.xls
Est l'adresse de ton document Excel à joindre

Celà devrait faire

Dit moi !!!



Bonjour,

Je voudrais ouvrir outlook et attacher une pièce jointe (document
excel) à un nouveau message.

Et je voudrais faire tout ça à partir d'une macro sous Excel.

Merci de votre aide




Avatar
JB
Bonsoir,

Sub EnvoiMailSimple()
Set olApp = CreateObject("Outlook.Application")
Set msg = olApp.CreateItem(0) 'olApp.CreateItem(olMailItem)
msg.To = ""
msg.Subject = "Meilleurs voeux 2007!"
corps = "Cher Monsieur" & Chr(13) & Chr(13)
corps = corps & "Meilleurs voeux 2007"
msg.Body = corps
msg.Attachments.Add "c:mes documentsx.doc"
msg.Send
End Sub

http://boisgontierjacques.free.fr/fichiers/jb-outlook.zip

JB
http://boisgontierjacques.free.fr/

On 19 juil, 14:41, Jérémy wrote:
Bonjour,

Je voudrais ouvrir outlook et attacher une pièce jointe (document
excel) à un nouveau message.

Et je voudrais faire tout ça à partir d'une macro sous Excel.

Merci de votre aide


Avatar
Philippe.R
Bonjour JB,
Sais tu quelle serait l'adaptation à apporter pour Windows Mail sous Vista ?
D'avance merci.
--
Philippe.R
"JB" a écrit dans le message de
news:
Bonsoir,

Sub EnvoiMailSimple()
Set olApp = CreateObject("Outlook.Application")
Set msg = olApp.CreateItem(0) 'olApp.CreateItem(olMailItem)
msg.To = ""
msg.Subject = "Meilleurs voeux 2007!"
corps = "Cher Monsieur" & Chr(13) & Chr(13)
corps = corps & "Meilleurs voeux 2007"
msg.Body = corps
msg.Attachments.Add "c:mes documentsx.doc"
msg.Send
End Sub

http://boisgontierjacques.free.fr/fichiers/jb-outlook.zip

JB
http://boisgontierjacques.free.fr/

On 19 juil, 14:41, Jérémy wrote:
Bonjour,

Je voudrais ouvrir outlook et attacher une pièce jointe (document
excel) à un nouveau message.

Et je voudrais faire tout ça à partir d'une macro sous Excel.

Merci de votre aide


Avatar
Jérémy
Merci FFO.

Cependant avec ton progamme g une petit souci.

En fait le fichier xls a envoyer n'est pas fixe. A la place de "E:
CheminDocument.xls" je voudrais mettre une variable chemin = "E:
Chemin" & ActiveWorkbook.Name

Mais lorque je veux effectuer cette opération un message d'erreur
apparait de outlook.

Comment faire?

Merci
Avatar
FFO
Rebonjour à toi

En mettant chez moi ceci :

rep = Shell("""C:Program FilesMicrosoft OfficeOFFICE11OUTLOOK.EXE""
""E:Chemin" & ActiveWorkbook.Name, vbMaximizedFocus)


Celà fonctionne

Essaies d'abord avec le nom de ton document actif comme ceci :

rep = Shell("""C:Program FilesMicrosoft OfficeOFFICE11OUTLOOK.EXE""
""E:CheminMon Doc.xls" , vbMaximizedFocus)

Avant d'essayer avec ActiveWorkbook.Name

Celà devrait fonctionner dans les 2 cas

Dis moi !!!!


Merci FFO.

Cependant avec ton progamme g une petit souci.

En fait le fichier xls a envoyer n'est pas fixe. A la place de "E:
CheminDocument.xls" je voudrais mettre une variable chemin = "E:
Chemin" & ActiveWorkbook.Name

Mais lorque je veux effectuer cette opération un message d'erreur
apparait de outlook.

Comment faire?

Merci




Avatar
Jérémy
Bonjour FFO,

Merci de ta réponse mais j'ai un message d'erreur de Outlook :

"L'argument de la ligne de commande n'est pas valide. Vérifiez le
commutateur que vous utilisez"

Sinon en inscrivant directement le chemin ce la fonctionne très bien
Merci de ta réponse
Avatar
FFO
Rebonjour à toi
Tu peux essayer comme ceci :

Chemin = "E:Chemin" & ActiveWorkbook.Name
rep = Shell("""C:Program FilesMicrosoft OfficeOFFICE11OUTLOOK.EXE"" " &
Chemin, vbMaximizedFocus)

Peut être celà fonctionnera t'il mieux

Dis moi !!!



Bonjour FFO,

Merci de ta réponse mais j'ai un message d'erreur de Outlook :

"L'argument de la ligne de commande n'est pas valide. Vérifiez le
commutateur que vous utilisez"

Sinon en inscrivant directement le chemin ce la fonctionne très bien
Merci de ta réponse