OVH Cloud OVH Cloud

Excel - bouton envoi d'un message

4 réponses
Avatar
F.F.
Bonjour à tous,

Je cherche à obtenir le résultat suivant; merci pour votre aide à me guider.

Dans une feuille Excel, je souhaiterais placer un bouton qui provoquerait
l'envoi par mail, à une (ou plusieurs adresses) fixes et détermniées à
l'avance, d'un message pré-établi.

du genre "je vous informe que des modifcations ont été réalisées sur cette
feuille ..."

Je pense qu'avec une macro et un lien avec outlook cela doit être possible.

Faut -il utiliser la commande mailto, et comment


Merci pour votre aide,

F.F

4 réponses

Avatar
sabatier
bonjour F.F.
peut-être peux-tu t'inspirer de cette proc...
Sub EnvoiListeOOauxMembres()
'cette proc de FS permet d'envoyer un fichier à une liste ou à _
'une personne à partir d'excel et via OE
Dim dest$, sujet$, texte$
Dim rep
Application.ScreenUpdating = False
'Rep est le nom du fichier à joindre.
rep = "c:excel97jpsOOmember.xls"
dest = "OOclub"
sujet = "Nouvel essai..."
texte = "...en attendant le bon!"
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"
End Sub

comme c'est dit dans une remarque, elle est signée FS...une immatriculation
un peu plus récente que la tienne, donc
HTH
jps

"F.F." a écrit dans le message de
news:418bdc83$0$15756$
Bonjour à tous,

Je cherche à obtenir le résultat suivant; merci pour votre aide à me
guider.


Dans une feuille Excel, je souhaiterais placer un bouton qui provoquerait
l'envoi par mail, à une (ou plusieurs adresses) fixes et détermniées à
l'avance, d'un message pré-établi.

du genre "je vous informe que des modifcations ont été réalisées sur cette
feuille ..."

Je pense qu'avec une macro et un lien avec outlook cela doit être
possible.


Faut -il utiliser la commande mailto, et comment


Merci pour votre aide,

F.F




Avatar
VerGil
Bonsoir,

J'ai essayé cette proc mais la pce jointe vient s'insérer dans la zone juste
après les noms...
help !


"sabatier" a écrit dans le message
news: #
bonjour F.F.
peut-être peux-tu t'inspirer de cette proc...
Sub EnvoiListeOOauxMembres()
'cette proc de FS permet d'envoyer un fichier à une liste ou à _
'une personne à partir d'excel et via OE
Dim dest$, sujet$, texte$
Dim rep
Application.ScreenUpdating = False
'Rep est le nom du fichier à joindre.
rep = "c:excel97jpsOOmember.xls"
dest = "OOclub"
sujet = "Nouvel essai..."
texte = "...en attendant le bon!"
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"
End Sub

comme c'est dit dans une remarque, elle est signée FS...une
immatriculation

un peu plus récente que la tienne, donc
HTH
jps

"F.F." a écrit dans le message de
news:418bdc83$0$15756$
Bonjour à tous,

Je cherche à obtenir le résultat suivant; merci pour votre aide à me
guider.


Dans une feuille Excel, je souhaiterais placer un bouton qui
provoquerait


l'envoi par mail, à une (ou plusieurs adresses) fixes et détermniées à
l'avance, d'un message pré-établi.

du genre "je vous informe que des modifcations ont été réalisées sur
cette


feuille ..."

Je pense qu'avec une macro et un lien avec outlook cela doit être
possible.


Faut -il utiliser la commande mailto, et comment


Merci pour votre aide,

F.F








Avatar
sabatier
bonsoir
je ne comprends pas pourquoi : chez moi ça marche bien...
cela ne peut venir que de la ligne Sendkeys dont tu remarqueras que je
n'utilise pas la dernière formule...
si FS lit cette ficelle, il aura sûrement une idée....
jps

"VerGil" a écrit dans le message de
news:418bf514$0$5161$
Bonsoir,

J'ai essayé cette proc mais la pce jointe vient s'insérer dans la zone
juste

après les noms...
help !


"sabatier" a écrit dans le
message

news: #
bonjour F.F.
peut-être peux-tu t'inspirer de cette proc...
Sub EnvoiListeOOauxMembres()
'cette proc de FS permet d'envoyer un fichier à une liste ou à _
'une personne à partir d'excel et via OE
Dim dest$, sujet$, texte$
Dim rep
Application.ScreenUpdating = False
'Rep est le nom du fichier à joindre.
rep = "c:excel97jpsOOmember.xls"
dest = "OOclub"
sujet = "Nouvel essai..."
texte = "...en attendant le bon!"
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"
End Sub

comme c'est dit dans une remarque, elle est signée FS...une
immatriculation

un peu plus récente que la tienne, donc
HTH
jps

"F.F." a écrit dans le message de
news:418bdc83$0$15756$
Bonjour à tous,

Je cherche à obtenir le résultat suivant; merci pour votre aide à me
guider.


Dans une feuille Excel, je souhaiterais placer un bouton qui
provoquerait


l'envoi par mail, à une (ou plusieurs adresses) fixes et détermniées à
l'avance, d'un message pré-établi.

du genre "je vous informe que des modifcations ont été réalisées sur
cette


feuille ..."

Je pense qu'avec une macro et un lien avec outlook cela doit être
possible.


Faut -il utiliser la commande mailto, et comment


Merci pour votre aide,

F.F












Avatar
sabatier
juste encore un mot : tu exécutes la macro à partir de quoi ou d'où?
j'ai pu vérifié que, depuis le VBE, le Send Keys se mélange un peu les
pinceaux et ça fait le bouzin ; depuis un bouton, no problemo...
jps

"sabatier" a écrit dans le message
de news:evQY$
bonsoir
je ne comprends pas pourquoi : chez moi ça marche bien...
cela ne peut venir que de la ligne Sendkeys dont tu remarqueras que je
n'utilise pas la dernière formule...
si FS lit cette ficelle, il aura sûrement une idée....
jps

"VerGil" a écrit dans le message de
news:418bf514$0$5161$
Bonsoir,

J'ai essayé cette proc mais la pce jointe vient s'insérer dans la zone
juste

après les noms...
help !


"sabatier" a écrit dans le
message

news: #
bonjour F.F.
peut-être peux-tu t'inspirer de cette proc...
Sub EnvoiListeOOauxMembres()
'cette proc de FS permet d'envoyer un fichier à une liste ou à _
'une personne à partir d'excel et via OE
Dim dest$, sujet$, texte$
Dim rep
Application.ScreenUpdating = False
'Rep est le nom du fichier à joindre.
rep = "c:excel97jpsOOmember.xls"
dest = "OOclub"
sujet = "Nouvel essai..."
texte = "...en attendant le bon!"
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"
End Sub

comme c'est dit dans une remarque, elle est signée FS...une
immatriculation

un peu plus récente que la tienne, donc
HTH
jps

"F.F." a écrit dans le message de
news:418bdc83$0$15756$
Bonjour à tous,

Je cherche à obtenir le résultat suivant; merci pour votre aide à me
guider.


Dans une feuille Excel, je souhaiterais placer un bouton qui
provoquerait


l'envoi par mail, à une (ou plusieurs adresses) fixes et détermniées
à




l'avance, d'un message pré-établi.

du genre "je vous informe que des modifcations ont été réalisées sur
cette


feuille ..."

Je pense qu'avec une macro et un lien avec outlook cela doit être
possible.


Faut -il utiliser la commande mailto, et comment


Merci pour votre aide,

F.F