Pb ds l'execution de mon projet visual basic
harlem971
Messages postés
7
Statut
Membre
-
thev Messages postés 2077 Date d'inscription Statut Membre Dernière intervention -
thev Messages postés 2077 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Pb ds l'execution de mon projet visual basic
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide