création de lien hypertexte mailto

issu du site internet : http://dj.joss.free.fr/web.htm

'------------------------
Sub EnvoiUnMail()
Dim MailAd As String 'Adresse
Dim Msg As String ' Message
Dim Subj As String ' Sujet du courriel
Dim URLto As String
MailAd = Range("d1") Subj = Range("d2")
Msg = Msg & Range("d3")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
'------------------------

Bonjour MichDenis

merci pour ta réponse.
Ca fait quelques heures que je cherche partout (forums, internet).
Partout je vois la syntaxe que j'ai donnée et j'ai testé avec 2 version
d'excel, pas moyen de faire fonctionner.
Quand je vais manuellement modifier, le type sélectionné est fichier.
Si je sélectionne adresse mail, tout revient bon.
Mais l'enregistreur de macros ne renvoie rien pour cette manip.
J'aurais bien aimé comprendre.

Mais c'est vrai que j'aurai plus vite fait d'ajouter un bouton à côté
de l'adresse, d'autant qu'envoyer des mails avec ou sans pièce jointe,
je sais faire.

Bonne journée
Damien

issu du site internet : http://dj.joss.free.fr/web.htm

'------------------------
Sub EnvoiUnMail()
Dim MailAd As String 'Adresse
Dim Msg As String ' Message
Dim Subj As String ' Sujet du courriel
Dim URLto As String
MailAd = Range("d1") Subj = Range("d2")
Msg = Msg & Range("d3")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
'------------------------

suppose que tu as un texte dans la cellule A1 de ta feuil1
qui contient déjà un lien hypertexte

Si tu désires modifier ce lien pour une autre adresse :
Ouvrir une nouvelle adresse internet ou un lien avec un nouveau fichier
la ligne de code est la suivante

Worksheets("Feuil1").Range("A1").Hyperlinks(1).Address = "http://www.microsoft.com/"
'OU
Worksheets("Feuil1").Range("A1").Hyperlinks(1).Address = "C:Classeur1.xls/"

Si tu fais manuellement, tu fais un clic droit sur ta cellule contenant un lien hypertexte
et tu appelles la commande "modifier le lien hypertexte". Si tu enregistres les opérations
tu obtiendras la ligne de code mentionnée avec l'enregistreur de macro.

Si problème, tu peux consulter là : http://support.microsoft.com/kb/916858





"Damien Kergosien" <gwenn@laposte.net> a écrit dans le message de news:
mn.6bca7d6bc338e00f.11105@laposte.net...
Bonjour MichDenis

merci pour ta réponse.
Ca fait quelques heures que je cherche partout (forums, internet).
Partout je vois la syntaxe que j'ai donnée et j'ai testé avec 2 version
d'excel, pas moyen de faire fonctionner.
Quand je vais manuellement modifier, le type sélectionné est fichier.
Si je sélectionne adresse mail, tout revient bon.
Mais l'enregistreur de macros ne renvoie rien pour cette manip.
J'aurais bien aimé comprendre.

Mais c'est vrai que j'aurai plus vite fait d'ajouter un bouton à côté
de l'adresse, d'autant qu'envoyer des mails avec ou sans pièce jointe,
je sais faire.

Bonne journée
Damien

issu du site internet : http://dj.joss.free.fr/web.htm

'------------------------
Sub EnvoiUnMail()
Dim MailAd As String 'Adresse
Dim Msg As String ' Message
Dim Subj As String ' Sujet du courriel
Dim URLto As String
MailAd = Range("d1") Subj = Range("d2")
Msg = Msg & Range("d3")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
'------------------------

Bonjour MichDenis

merci pour ta réponse mais ça ne résoud pas le problème

Je fais bien
Worksheets("Feuil1").Range("A1").Hyperlinks(1).Address "mailto:machin@.xx.fr"
Si je lis la propriété Address, j'ai bien "mailto:machin@.xx.fr"
Dans un classeur vierge, ça marche.
Dans le classeur sur lequel je travaille, je détruis le lien avant de
le recréer et il me reconsidère le lien comme un lien fichier donc il
ajoute automatiquement un chemin avant "mailto:machin@.xx.fr"

mais je laisse tomber si je n'ai pas d'autre info. Je vais faire un
bouton pour l'envoi du mail.

suppose que tu as un texte dans la cellule A1 de ta feuil1
qui contient déjà un lien hypertexte

Si tu désires modifier ce lien pour une autre adresse :
Ouvrir une nouvelle adresse internet ou un lien avec un nouveau fichier
la ligne de code est la suivante

Worksheets("Feuil1").Range("A1").Hyperlinks(1).Address =
"http://www.microsoft.com/" 'OU
Worksheets("Feuil1").Range("A1").Hyperlinks(1).Address = "C:Classeur1.xls/"

Si tu fais manuellement, tu fais un clic droit sur ta cellule contenant un
lien hypertexte et tu appelles la commande "modifier le lien hypertexte". Si
tu enregistres les opérations tu obtiendras la ligne de code mentionnée avec
l'enregistreur de macro.

Si problème, tu peux consulter là : http://support.microsoft.com/kb/916858





"Damien Kergosien" <gwenn@laposte.net> a écrit dans le message de news:
mn.6bca7d6bc338e00f.11105@laposte.net...
Bonjour MichDenis

merci pour ta réponse.
Ca fait quelques heures que je cherche partout (forums, internet).
Partout je vois la syntaxe que j'ai donnée et j'ai testé avec 2 version
d'excel, pas moyen de faire fonctionner.
Quand je vais manuellement modifier, le type sélectionné est fichier.
Si je sélectionne adresse mail, tout revient bon.
Mais l'enregistreur de macros ne renvoie rien pour cette manip.
J'aurais bien aimé comprendre.

Mais c'est vrai que j'aurai plus vite fait d'ajouter un bouton à côté
de l'adresse, d'autant qu'envoyer des mails avec ou sans pièce jointe,
je sais faire.

Bonne journée
Damien

issu du site internet : http://dj.joss.free.fr/web.htm

'------------------------
Sub EnvoiUnMail()
Dim MailAd As String 'Adresse
Dim Msg As String ' Message
Dim Subj As String ' Sujet du courriel
Dim URLto As String
MailAd = Range("d1") Subj = Range("d2")
Msg = Msg & Range("d3")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
'------------------------