Pb ds l'execution de mon projet visual basic

Fermé
harlem971 Messages postés 7 Date d'inscription mercredi 30 juillet 2008 Statut Membre Dernière intervention 11 octobre 2008 - 30 juil. 2008 à 18:26
thev Messages postés 1882 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 26 octobre 2024 - 31 juil. 2008 à 12:08
Bonjour,

J’ai un document Excel avec une macro.
Ce document doit pouvoir me permettre d’envoyer des mails à un groupe
d’utilisateurs.
Quand j’effectue le test je suis bien redirigé vers la messagerie mais il ne m’affiche pas l’adresse mail.
Pouvez-vous m’aider ?
Je peux vous envoyer mon fichier pour mieux comprendre mon problème.

Info complémentaire : EXCEL 2003


Mon projet a partir de : Microsoft Visual Basic

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 20/07/2008 par
'

'
Range("A22").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"mailto:destinataire"


Range("A22").Select
Selection. Hyperlinks(1).Follow New Window:=False, Add History:=True
End Sub
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 20/07/2008 par
'

'
Range("O4").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub
Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 20/07/2008 par
'
Dim Destinataire As String
Dim Commande As String

Commande = "mailto: nicolas.morange@ polytechnique.org"
Destinataire = "nicolas.morange@polytechnique.org"
'
Range("A25:J25").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Commande, TextToDisplay:=Destinataire
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub
Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 20/07/2008 par
'

'
Rows("24:24").Select
Selection.Delete Shift:=xlUp
End Sub
A voir également:

1 réponse

thev Messages postés 1882 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 26 octobre 2024 690
31 juil. 2008 à 12:08
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"&Commande&", TextToDisplay:="&Destinataire&"
0