activer avec vba un lien hypertexte contenu dans une page html

Version imprimable

23/04/2008, 15h47
epaminondas

activer avec vba un lien hypertexte contenu dans une page html

Bonjour,:D
je dois activer un href="Missions/menu.asp"
pour accéder à une page de menu d'un programme en HTML.
Quelqu'un peut-il m'indiquer quelles sont les instructions nécessaires ?8O
Merci
23/04/2008, 16h15
zyhack
bonjour

pour créer un lien hypertexte dans une cellule utilise
Code:

1 2 ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:= "adresse de ce que tu veux ouvrir", TextToDisplay:= "le texte affiché dans la cellule"
Range("A1") = la cellule ou tu veux mettre le lien
Address lien complet de type http://w... ou c:\test\...
TextToDisplay texte affiché dans la cellule

bonne journée
24/04/2008, 15h23
epaminondas

Merci d'avoir répondu ZYhack.
En fait je me suis mal expliqué. avec un programme VBA je débouche sur un programme intranet (html) d'une association dont je fais partie.
J'ai passé une première page (authentification) en jouant sur les input mais la page de menu qui s'affiche contien un href = "Missions/mission.asp" et je cherche les instructions qui vont me permettre d'accéder sur la page suivante.
Merci de me dire si c'est plus clair.:roll:
24/04/2008, 15h34
zyhack

Effectivement c'est plus clair mais pour l’instant je n’ai aucune idée de la marche à suivre.

Désolé

bonjour

Un exemple pour déclencher le 1er lien hypertexte contenu dans une page html:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub DeclencherLienPageWeb()
    'nécessite d'activer les références
        'Microsoft HTML Objects Library
        'et
        'Microsoft Internet Controls
    Dim IE As InternetExplorer
    Dim Cible As HTMLAnchorElement
    Dim Doc As HTMLDocument
 
    Set IE = New InternetExplorer
    IE.Navigate "http://office.developpez.com/"
    IE.Visible = True
 
    Do Until IE.readyState = READYSTATE_COMPLETE
    DoEvents
    Loop
 
    Set Doc = IE.Document
    'Doc.Links(0) = 1er lien contenu dans
    'la page html (http://www.developpez.com/)
    Set Cible = Doc.Links(0)
    '
    Cible.Click
End Sub

bon après midi
michel

01/05/2008, 10h55
epaminondas

lien hypertexte

Merci Silkyroad pour ta réponse,
En attendant une réponse, j'avais tout simplemeent indiqué l'adresse de la page suivante. Je me doute que ce que tu m'indiques est plus sioux mais je ne vois pas bien ce que je dois inscrire à la place de http://office.developpez.com. A vrai dire, je voudrais pouvoir ménager la possibilité d'utiliser les autres liens de la page.
Que la force soit en toi.
A +