end sub attendu

  • Initiateur de la discussion jean pierre
  • Date de début
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

  • azerty.zip
    8.7 KB · Affichages: 70
  • azerty.zip
    8.7 KB · Affichages: 75
  • azerty.zip
    8.7 KB · Affichages: 72

myDearFriend!

XLDnaute Barbatruc
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,
 

Discussions similaires

Réponses
14
Affichages
1 K

Membres actuellement en ligne

Statistiques des forums

Discussions
312 885
Messages
2 093 259
Membres
105 660
dernier inscrit
moi46