Discussion :

[epaminondas]

Bonjour,
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 ?
Merci

[zyhack]

bonjour

pour créer un lien hypertexte dans une cellule utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[zyhack]

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

Désolé

[SilkyRoad]

bonjour


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[epaminondas]

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 +