Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Excel vers Outlook

Excel vers Outlook

5 réponses
Avatar
Eric
Bonjour,



Voilà mon problème, j'ai créé une macro qui génère un petit fichier au
format TXT dans lequel sont stockés toutes sortes d'indicateurs. Ce fichier
est ensuite transmit manuellement à une autre personne via Outlook express.

Est t'il possible de faire une macro qui puisse créer directement, à partir
d'Excel, le message dans Outlook en lui joignant le fichier TXT, ce qui
éviterai une manipulation et surtout me garantirai l'envois systématique de
mes indicateurs ?

Je ne sais pas du tout comment faire L



Merci
Signaler un problème avec ce contenu

5 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
Philippe.R
Bonjour Eric,
A cette adresse :

http://www.excelabo.net/xl/sortir.htm#envoiauto

tu trouveras un certain nombre de procédures dont tu pourrai t'inspirer.
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Eric" a écrit dans le message de news:be31oh$hrp$

Bonjour,



Voilà mon problème, j'ai créé une macro qui génère un petit fichier au
format TXT dans lequel sont stockés toutes sortes d'indicateurs. Ce fichier
est ensuite transmit manuellement à une autre personne via Outlook express.

Est t'il possible de faire une macro qui puisse créer directement, à partir
d'Excel, le message dans Outlook en lui joignant le fichier TXT, ce qui
éviterai une manipulation et surtout me garantirai l'envois systématique de
mes indicateurs ?

Je ne sais pas du tout comment faire L



Merci




Avatar
daille
tu peux t'inspirer de ceci un peu personnalisé certes

Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.to = Worksheets("IG").Range("O12")
myItem.Subject = Worksheets("IG").Range("S12")
myItem.Body = Worksheets("IG").Range("S13") & Chr(13)
& Worksheets("IG").Range("S14") & Chr(13) & Chr(13)
Set myAttachments = myItem.Attachments
myAttachments.Add Worksheets("IG").Range("S15") &
Worksheets("IG").Range("S11") & ".xls"
MsgBox "Now sending to " & myItem.to
myItem.Send
Set ol = Nothing

salutations
daille
Avatar
Eric
Merci :)
Je ne comprend pas trop le code mais je vais tenter de me débrouiller avec
ça :))

Merci encore pour la piste ;-)
Eric

"Eric" a écrit dans le message de news:
be31oh$hrp$

Bonjour,



Voilà mon problème, j'ai créé une macro qui génère un petit fichier au
format TXT dans lequel sont stockés toutes sortes d'indicateurs. Ce
fichier

est ensuite transmit manuellement à une autre personne via Outlook
express.


Est t'il possible de faire une macro qui puisse créer directement, à
partir

d'Excel, le message dans Outlook en lui joignant le fichier TXT, ce qui
éviterai une manipulation et surtout me garantirai l'envois systématique
de

mes indicateurs ?

Je ne sais pas du tout comment faire L



Merci




Avatar
Eric
RE-Bonjour,
Je suis allé voir sur le site que tu m'as passé, j'ai à peut pret compris
sauf ceci :
Avec Outlook :
Il ne faut pas oublier d'ajouter une référence à Microsoft Outlook x.0 (où x
correspond à la version Outlook) dans le projet VBA (Outils Références)
Dim OLf As Outlook.MAPIFolder

pourrais tu m'expliquer ce que je doit faire, je ne comprend pas :-(

Merci
Eric

"Philippe.R" a écrit dans le message de news:

Bonjour Eric,
A cette adresse :

http://www.excelabo.net/xl/sortir.htm#envoiauto

tu trouveras un certain nombre de procédures dont tu pourrai t'inspirer.
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Eric" a écrit dans le message de
news:be31oh$hrp$


Bonjour,



Voilà mon problème, j'ai créé une macro qui génère un petit fichier au
format TXT dans lequel sont stockés toutes sortes d'indicateurs. Ce
fichier


est ensuite transmit manuellement à une autre personne via Outlook
express.



Est t'il possible de faire une macro qui puisse créer directement, à
partir


d'Excel, le message dans Outlook en lui joignant le fichier TXT, ce qui
éviterai une manipulation et surtout me garantirai l'envois systématique
de


mes indicateurs ?

Je ne sais pas du tout comment faire L



Merci








Avatar
Philippe.R
Bonsoir Eric,

Le code est à intégrer à l'intérieur d'une procédure pour donner quelque chose de ce genre de ce genre :

Sub envoi()
Dim OLf As Outlook.MAPIFolder, olmailitem As Outlook.MailItem, acontact As
Recipient
Set OLf = GetObject("",
"Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olmailitem = OLf.Items.Add
With olmailitem
.Subject = "Envoi depuis Excel" 'Ici l'objet du message
Set acontact = .Recipients.Add(dest) 'ici dest est une variable que
tu peux utiliser pour le destinataire
.Body = Message 'ici Message est une variable que tu peux utiliser
pour le message
.OriginatorDeliveryReportRequested = True 'demande d'accusé
reception
.Attachments.Add "D:Mes Documentsvalise.EXE" 'Ici le fichier joint
.Send
End With
On Error Resume Next
Set OLf = Nothing
Set olmailitem = Nothing
Set acontact = Nothing
End sub

Dans l'éditeur VBA que tu ouvres par Alt+F11, Menu / Outils / Références te permets d'accéder à toute
une liste dans laquelle tu devrais trouver Outlook ; il ne te reste qu'à cocher cette référence.
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Eric" a écrit dans le message de news:be3t90$g25$
RE-Bonjour,
Je suis allé voir sur le site que tu m'as passé, j'ai à peut pret compris
sauf ceci :
Avec Outlook :
Il ne faut pas oublier d'ajouter une référence à Microsoft Outlook x.0 (où x
correspond à la version Outlook) dans le projet VBA (Outils Références)
Dim OLf As Outlook.MAPIFolder

pourrais tu m'expliquer ce que je doit faire, je ne comprend pas :-(

Merci
Eric

"Philippe.R" a écrit dans le message de news:

Bonjour Eric,
A cette adresse :

http://www.excelabo.net/xl/sortir.htm#envoiauto

tu trouveras un certain nombre de procédures dont tu pourrai t'inspirer.
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
"Eric" a écrit dans le message de
news:be31oh$hrp$


Bonjour,



Voilà mon problème, j'ai créé une macro qui génère un petit fichier au
format TXT dans lequel sont stockés toutes sortes d'indicateurs. Ce
fichier


est ensuite transmit manuellement à une autre personne via Outlook
express.



Est t'il possible de faire une macro qui puisse créer directement, à
partir


d'Excel, le message dans Outlook en lui joignant le fichier TXT, ce qui
éviterai une manipulation et surtout me garantirai l'envois systématique
de


mes indicateurs ?

Je ne sais pas du tout comment faire L



Merci