Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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,
 

MichelXld

XLDnaute Barbatruc
bonjour Jean-Pierre , bonjour cher Didier

comme le fait remarquer mon ami Didier , la procedure d'origine 'CreationMailEtLienHypertexte' sert à envoyer un mail par macro et à creer un lien hypertexte dans le corps du message

Lien supprimé


bon wee kend
MichelXld
 
J

jean pierre

Guest
je te remercie de ta reponse, cela fonctionne bien...merci
d'avoir pris le temps de me repondre et merci pour les nombreuses réponses que tu as fait aux personnes comme moi.
 

Discussions similaires

Réponses
14
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…