Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
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

10 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
RV
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
michir
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
RV
La formule est la suivante:

ActiveWorkbook.SendMail Recipients:=Range("b3"), Subject:="Questionnaire ",
ReturnReceipt:=True"

mess = "veuillez trouver ci-joint le questionnaire....."

Cordialement

Hervé


"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
sabatier
"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
sabatier
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
RV
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
michir
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
michir
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
RV
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
sabatier
bonjour michdir
essaie cette proc signée FS et qui devrait bien gazouiller à condition de
bien compléter avec le chemin de ton classeur questionnaire
jps
PS le dernier Sendkeys a volontairement été mis en observation par votre
humble serviteur


Sub outlook()
Dim dest$, sujet$, texte$
Dim rep
Application.ScreenUpdating = False
'Rep est le nom du fichier à joindre.
rep = "c:questionnaire.xls"
dest = Range("A1")
sujet = "à remplir et à me retourner.."
texte = "et que ça saute..."
Shell "C:Program FilesOutlook Expressmsimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & sujet & _
"&Body=" & texte, 3
'envoi à OE5.5, une combinaison de touche qui équivaut à faire insertion
'pièce jointe, joindre le fichier contenu dans la variable Rep, valider
puis
'envoyer.
SendKeys "%I" & "p" & rep & "~" '& "%s"
"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,




















1 2