• Initiateur de la discussion Initiateur de la discussion jean pierre
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

J

jean pierre

Guest
bonsoir,

je voudrais en cliquant sur un bouton ouvrir une page intranet
hélas ma macro m'ecrit end sub attendu.
quel est mon erreur ? le debogueur ne m'as pas aidé....merci

[file name=azerty.zip size=8906]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/azerty.zip[/file]
 

Pièces jointes

Bonsoir jean-pierre,

Ton problème vient du fait que tu as 2 procédures imbriquées l'une dans l'autre, comme suit :
Sub Macro4()
Sub CreationMailEtLienHypertexte()
Dim OlApp As New Outlook.Application
Dim OlItem As Outlook.MailItem
...
...
...
Set OlItem = Nothing
Set
OlApp = Nothing
End Sub

'
End Sub
Cette situation est impossible en VBA !

Par ailleurs, le code que tu y a mis n'a rien à voir avec l'objectif dont tu parles : 'je voudrais en cliquant sur un bouton ouvrir une page intranet' (ce code sert à envoyer un mail par l'intermédiaire d'Outlook !!!)

Donc si j'ai bien compris, voici une procédure qu'il conviendra de mettre dans ton module de code (en remplacement des 2 autres) et d'affecter au bouton de ta feuille :
Sub SuivreLien()
      ThisWorkbook.FollowHyperlink Address:='Ce lien n'existe plus _
                  FID=002_007_008_004_010_011&DID=40305&Lang=FR'
End Sub
Cordialement,
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

J
Réponses
1
Affichages
6 K
B
Réponses
0
Affichages
908
Bruno67
B
S
Réponses
4
Affichages
2 K
Sensei92
S
L
Réponses
9
Affichages
8 K
lolobebop
L
Q
Réponses
0
Affichages
776
quicktibong
Q
D
Réponses
2
Affichages
1 K
D
J
Réponses
2
Affichages
3 K
journeydo
J
J
Réponses
0
Affichages
1 K
Jojolapin
J
E
Réponses
9
Affichages
3 K
earxcurae
E
Retour