Rattachement valeur cellule dans un mailto (Hyperlink)

**sness** · 05/12/2019, 12h57

Bonjour à tous,

J'ai un soucis dans mon code pour rattacher la valeur d'une cellule dans mon mailto(extrait code ci-dessous)

J'ai bien essayé de plusieurs manière mais les données de la cellule ne se rattache pas même si ma fenêtre Outlook s'ouvre correctement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
destinataire = [FORMULAIRE SAISIE'!B1]
Message = [FORMULAIRE SAISIE'!B7]
 
ActiveCell.Hyperlinks.Add ActiveCell, "mailto:destinataire " & Email & "?subject=" & "?Body=test" & PropAdd, "", "", "Envoyer message"
 Msg = "Envoyer le message?"
 Ans = MsgBox(Msg, vbYesNo)
 If Ans = vbNo Then Exit Sub
 If Ans = vbYes Then ActiveCell.Hyperlinks(1).Follow

Pour info mes données à récupérer se trouve dans la feuille FORMULAIRE SAISIE (qui se rempli avec un formulaire) et les données sont
Email: B1
Objet: B4
Corps du mail B6 + B7 + B8

Quelqu'un voit-il où est mon erreur?

Merci d'avance.

**MarcelG** · 05/12/2019, 15h13

Bonjour,

Je trouve, pour ma part, ce processus trop restrictif, car manquant de souplesse.

Pourquoi ne pas gérer Outlook depuis Excel et adresser un mail contenant un corps de texte, un objet, un destinataire d'adresse, un destinataire en copie, etc....?

Voir ce post.

**sness** · 05/12/2019, 15h18

Justement l'idée est que ce soit restrictif pour l'utilisation nécessaire.

En fait mon formulaire sera rattaché à un fichier déjà existant de suivi d'appels téléphonique

J'ai besoin de standardisé la structure d'envoi des mails et l'objet avec les champs indiqués (pour éviter la "fête du slip" et avoir une même structure pour l'équipe).

Mon problème actuellement est que je ne sais pas comment rattaché la valeur de la cellule B1 au champ email destinataire par exemple dans mon code

Le formulaire se présente comme suit:

Nom : formulaire.png
Affichages : 462
Taille : 12,7 Ko

Nom : formulaire.png
Affichages : 462
Taille : 12,7 Ko

**MarcelG** · 05/12/2019, 15h51

?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Txt_Email.Text = Range("B1").Value

Non?

**sness** · 05/12/2019, 15h59

Merci de te pencher sur ma problématique

Je vais faire l'essai mais je suis pas un pro

(je suis autodidacte et parcours le forum pour m'aider à développer mes différents projets….)

En fait je voudrais qu'ici:

ActiveCell.Hyperlinks.Add ActiveCell, "mailto:destinataire

ce soit par exemple la valeur de la cellule B1

Pour le moment si j'écris mailto:B1 et bien il me met B1 tel quel dans le champ adresse

**MarcelG** · 05/12/2019, 16h16

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

mailto:Range("B1").Value

?

**sness** · 05/12/2019, 16h28

Je l'ai fait comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim formulaire As Worksheet
Set fichier = ActiveWorkbook
Set formulaire = fichier.Worksheets("FORMULAIRE SAISIE")
 
destinataire = formulaire.Range("B1").Value
 
ActiveCell.Hyperlinks.Add ActiveCell, "mailto: destinataire" ………

Mais ce que je ne comprends c'est pourquoi il m'écrit "destinataire" dans l'adresse mail et ne me reprend pas la valeur reprise dans la cellule.

J'ai également essayé de mettre TextBox1.Value mais pareil ça ne passe pas.

**MarcelG** · 05/12/2019, 16h34

Retourne le code en entier.
Là, je ne comprends plus grand chose.

**sness** · 05/12/2019, 16h40

le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
Private Sub CommandButton1_Click()
 
Dim derniere_ligne As Long
Dim fichier As Workbook
Dim onglet As Worksheet
Dim formulaire As Worksheet
Dim destinataire As Variant
 
'identifier login
Dim login As String
Dim ObjWshNw As Object
Set ObjWshNw = CreateObject("WScript.Network")
login = ObjWshNw.UserName
 
 
Set fichier = ActiveWorkbook
Set onglet = fichier.Worksheets("STATS")
Set formulaire = fichier.Worksheets("FORMULAIRE SAISIE")
 
derniere_ligne = onglet.Cells(Rows.Count, 1).End(xlUp).Row + 1
 
'Copier les informations dans la dernière ligne du tableau
Sheets("FORMULAIRE SAISIE").Range("B2") = ComboBox1.Value 'Objet du message
Sheets("FORMULAIRE SAISIE").Range("C1") = ComboBox2.Value 'Gestionnaire destinataire
Sheets("FORMULAIRE SAISIE").Range("B3") = TextBox1.Value 'Société
Sheets("FORMULAIRE SAISIE").Range("B4") = TextBox4.Value 'Contact
Sheets("FORMULAIRE SAISIE").Range("B5") = TextBox2.Value 'Téléphone
Sheets("FORMULAIRE SAISIE").Range("B6") = TextBox3.Value 'Email
Sheets("FORMULAIRE SAISIE").Range("B7") = TextBox5.Value 'Message
Cells(derniere_ligne, "A") = Date
Cells(derniere_ligne, "B") = login 'Qui envoi le mail
Cells(derniere_ligne, "C") = ComboBox2.Value 'Gestionnaire
Cells(derniere_ligne, "D") = ComboBox1.Value 'Objet
Cells(derniere_ligne, "E") = TextBox1.Value 'Société
 
destinataire = formulaire.Range("B1").Value
'Message = [FORMULAIRE SAISIE'!B7]
 
ActiveCell.Hyperlinks.Add ActiveCell, "mailto: destinataire" & Email & "?subject= pas de sujet" & "?Body=Pas de lien???" & PropAdd, "", "", "Envoyer message"
Msg = "Envoyer le message?"
Ans = MsgBox(Msg, vbYesNo)
If Ans = vbNo Then Exit Sub
If Ans = vbYes Then ActiveCell.Hyperlinks(1).Follow
 
'UserForm2.Show
 
'Call process_maj
 
End Sub
 
Private Sub UserForm_Initialize()
 
'Définition des variables
Dim info_liste() As Variant
Dim info_liste2() As Variant
Dim derniere_ligne As Long
Dim fichier As Workbook
Dim onglet As Worksheet
 
'identifier l'onglet Paramètres
Set fichier = ActiveWorkbook
Set onglet = fichier.Worksheets("PARAMETRES")
 
'---Je cache le tableur Excel au lancement du formulaire
Application.Visible = True
 
'---Objet du message---
derniere_ligne = onglet.Cells(Rows.Count, 3).End(xlUp).Row
info_liste = onglet.Range(onglet.Cells(1, 3), onglet.Cells(derniere_ligne, 3))
Me.ComboBox1.List = info_liste
 
'---Gestionnaire destinataire---
derniere_ligne = onglet.Cells(Rows.Count, 1).End(xlUp).Row
info_liste2 = onglet.Range(onglet.Cells(1, 1), onglet.Cells(derniere_ligne, 1))
Me.ComboBox2.List = info_liste2
 
End Sub

**Phil Free** · 05/12/2019, 16h45

Bonjour le file,

essai ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Hyperlinks.Add ActiveCell, "mailto:" & destinataire

A+

**MarcelG** · 05/12/2019, 16h47

C'est ce que j'étais entrain d'écrire!

**Phil Free** · 05/12/2019, 16h50

Envoyé par MarcelG

C'est ce que j'étais entrain d'écrire!

désolé !!!

**sness** · 05/12/2019, 16h50

Impeccable merci ca fonctionne.

Pour subject et body c'est la même chose alors?

**Phil Free** · 05/12/2019, 17h00

Envoyé par sness

Pour subject et body c'est la même chose alors?

oui tous pareil !

**sness** · 05/12/2019, 17h12

Tu pourrais me dire si j ai une erreur pour declarer “Body”?
Les info partent dans la barre “objet”
Merci beaucoup

**Phil Free** · 05/12/2019, 17h23

dans la ligne suivante la variable "PropAdd" c'est quoi ? je ne la retrouve nul part ailleurs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ActiveCell.Hyperlinks.Add ActiveCell, "mailto: destinataire" & Email & "?subject= pas de sujet" & "?Body=Pas de lien???" & PropAdd, "", "", "Envoyer message"

et regarde l'aide d'excel à propos de la Méthode Hyperlinks.Add

**sness** · 10/12/2019, 10h30

Merci pour vos réponses.

Tout fonctionne hormis le champ "Body"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
destinataire = formulaire.Range("B1").Value
Objet = formulaire.Range("B2").Value & " / " & formulaire.Range("B3").Value
Message = formulaire.Range("B7").Value
 
ActiveCell.Hyperlinks.Add ActiveCell, "mailto:" & destinataire & Email & "?subject=" & Objet & "?body=" & Message, "", "Envoyer message"
Msg = "Envoyer le message?"
Ans = MsgBox(Msg, vbYesNo)
If Ans = vbNo Then Exit Sub
If Ans = vbYes Then ActiveCell.Hyperlinks(1).Follow

**sness** · 10/12/2019, 11h28

Solution trouvée

Il ne faut pas mettre "?body=" & Message mais "&body=" & Message.

Merci pour votre aide

Rattachement valeur cellule dans un mailto (Hyperlink)

Macros et VBA Excel

Discussions similaires

Partager

Partager