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 Macro envoi fichier Excel par Internet

Macro envoi fichier Excel par Internet

13 réponses
Avatar
michir
Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un fichier Excel
"toto" par internet à un destinataire dont l'adresse figure en cellule A1
par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
Signaler un problème avec ce contenu

3 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
1 2
Avatar
michir
Suis vraiment désolé RV, mais en B3 j'ai bien une adresse valide. Je crois
que je reprendrai cela demain et je te remercie beaucoup du coup de main,
Michel,

"RV" a écrit dans le message de news:

C'est parce qu'il faut mettre l'adresse de ton correspondant dans la
cellule

B3 (Recipients:= range("b3")).
Mais si l 'adresse se trouve en a1 comme indiqué au début des message
alors

Recipients:= range("a1")

Cordialement

Hervé

"michir" a écrit dans le message de news:
41991865$0$3306$
Gloups, jai oublié de joindre la macro modifiée:

Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire
",
ReturnReceipt:=True
mess = "veuillez trouver ci-joint le questionnaire....."
Application.DisplayAlerts = False
End Sub

Michel,
"RV" a écrit dans le message de news:

Michir,

Je m'aperçois qu'il y a un guillemet de trop après
ReturnReceipt:=True",



il faut l'écrire sans : ReturnReceipt:=True

Cordialement

Hervé





Message ",
"michir" a écrit dans le message de news:

41991093$0$3306$
J'ai essayé RV, mais cela bloque sur Message. Je précise que mon
fichier
à


envoyer s'appelle "Questionnaire":

Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"),
Subject:="Questionnaire
"


Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub

A bientôt pour la suite,
Michel


"RV" a écrit dans le message de news:
#
Bonsoir Michel,

A adapter aux besoins

ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"

Cordialement

Hervé

"michir" a écrit dans le message de news:
4199072e$0$3277$
Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un
fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure en
cellule




A1
par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,
























Avatar
Clément Marcotte
À JièLville:

http://faq.outlook.free.fr/telechargement.htm

ClickYes ou YesExspress


"michir" a écrit dans le message de
news:419917ce$0$6443$
Merci RV et JPS, j'y suis presque, mais j'ai une boite de dialogue
OutLook

qui me demande si je veux envoyer un message électroniqe A... la
fenêtre

est vide
Si j'appuie sur "Envoyer" tout se passe bien, mais cette fenêtre est
handicapante.
Merci à tous les deux,
Michel


"sabatier" a écrit dans le
message

de news: O$
coorige ainsi michdir

Message = " ReturnReceipt:=True"

jps

"michir" a écrit dans le message de
news:41991093$0$3306$
J'ai essayé RV, mais cela bloque sur Message. Je précise que mon
fichier



à
envoyer s'appelle "Questionnaire":

Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"),
Subject:="Questionnaire



"
Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub

A bientôt pour la suite,
Michel


"RV" a écrit dans le message de news:
#
Bonsoir Michel,

A adapter aux besoins

ActiveWorkbook.SendMail Recipients:=Range("a1"),
Subject:="objet du




message", ReturnReceipt:=True
mess = " corps du message"

Cordialement

Hervé

"michir" a écrit dans le message de
news:




4199072e$0$3277$
Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer
un





fichier
Excel
"toto" par internet à un destinataire dont l'adresse figure
en





cellule
A1
par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,



















Avatar
JièL Goubert
Bonjoir(c) michir

en plus de la "béquille" que tu trouveras dans la FAQ, tu peux tester ceci
s'il te plait, et nous dire si ça fonctionne ?! merci

Il parait qu'avec un sendkey placé avant le sendmail permettrais de répondre
automatiquement à la fenêtre de sécurité...
par contre, je n'ai plus la sainte axe de ce qu'il faut mettre dans le
sendkey...

Tu nous dis ?

--
La FAQ Outlook est la : http://faq.outlook.free.fr
JièL / Jean-Louis GOUBERT
Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application
http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm

Le 15/11/2004 21:55 vous avez écrit ceci :
Merci RV et JPS, j'y suis presque, mais j'ai une boite de dialogue OutLook
qui me demande si je veux envoyer un message électroniqe A... la fenêtre
est vide
Si j'appuie sur "Envoyer" tout se passe bien, mais cette fenêtre est
handicapante.
Merci à tous les deux,
Michel


"sabatier" a écrit dans le message
de news: O$

coorige ainsi michdir

Message = " ReturnReceipt:=True"

jps

"michir" a écrit dans le message de
news:41991093$0$3306$

J'ai essayé RV, mais cela bloque sur Message. Je précise que mon fichier



à

envoyer s'appelle "Questionnaire":

Sub outLook()
ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire



"

Message ", ReturnReceipt:=True"
mess = " corps du message"
End Sub

A bientôt pour la suite,
Michel


"RV" a écrit dans le message de news:
#

Bonsoir Michel,

A adapter aux besoins

ActiveWorkbook.SendMail Recipients:=Range("a1"), Subject:="objet du
message", ReturnReceipt:=True
mess = " corps du message"

Cordialement

Hervé

"michir" a écrit dans le message de news:
4199072e$0$3277$

Bonsoir,
Je souhaiterais écrire une macro qui me permette d'envoyer un





fichier

Excel
"toto" par internet à un destinataire dont l'adresse figure en





cellule

A1

par exemple.
Je n'arrive pas à automatiser complètement cette macro
Merci du coup de main,
Michel,

















1 2