Discussion :

[GorMsoN]

Bonjour,

je ne sais pas vraiment si c'est le bon endroit pour poster mais j'ai un soucis auquel point de solutions ne s'offre à moi.

Dans un formulaire j'ai insérer un "Intitulé" dont je vais me servir pour renvoyer vers une page internet (intranet en fait de ma boite). Le problème étant que le lien sera changé par du code VB (jusque là ça va) mais devra s'ouvrir impérativement sous IE. En effet ce lien pointe vers le systeme de gestion de la documentation de ma société qui ne fonctionne helas que sous IE (vive les grosse boites).

Je voudrais donc m'assurer que les liens ainsi ouvert le seront bien par IE et non Firefox.

D'avance merci de votre aide.

[LedZeppII]

Bonsoir,

Peut-être en lançant IE en ligne de commande

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim strCmd As String
Dim strUrl As String
 
' Url à ouvrir
strUrl = "http://www.developpez.net/forums/f45/logiciels/microsoft-office/access/"
 
' Ligne de commande Iexplore.exe
strCmd = """" & Environ("ProgramFiles") & "\Internet Explorer\Iexplore.exe" & """"
strCmd = strCmd & " " & strUrl
' Exécution ligne de commande
Shell strCmd, vbNormalNoFocus

A+

[GorMsoN]

Bonjour,

J'ai finalement penché vers cette solution tout seul, le seul soucis étant que cela me rajoute un bouton alors qu'un "intitulé" aurait allégé mon formulaire.

Pour ma part j'ai procédé de la sorte :

Code :

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

1
2
3
4
5
6
7
8
 
    Dim stAppName As String
    Dim strGedLink As String
 
    strGedLink = "Mon URL d'accés"
 
    stAppName = "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & strGedLink
    Call Shell(stAppName, 1)

J'en conclu que ton Environ("ProgramFiles") sert à s'affranchir du c: ?

Sinon merci pour la réponse.

[LedZeppII]

Bonsoir,

tu peux essayer ceci.
Un contrôle étiquette (que j'appelle lblLien pour l'exemple)
Propriété "adresse lien hypertexte" : #
C'est une adresse vide, mais du coup l'étiquette apparaît comme un lien hypertexte.
Mettre l'adresse dans la propriété Caption.

Ensuite, intercepter l'événement "sur clic" de l'étiquette

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub lblLien_Click()
    Dim stAppName As String
    Dim strGedLink As String
 
    strGedLink = Me.lblLien.Caption
 
    stAppName = "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & strGedLink
    Call Shell(stAppName, 1)
End Sub

Si tu veux masquer l'adresse du lien tu peux utiliser la propriété Tag (propriété Remarque dans la fenêtre des propriétés)
au lieu de Caption

Environ("ProgramFiles") sert à s'affranchir du c: ?

Oui.
Sur mon PC je boote sur D:
Pour que mon code fonctionne chez moi et au boulot, je cherche à m'affranchir des chemins en dur.
Mais je ne sais pas dire dans quelles versions de Windows la variable d'environnement "ProgramFiles" existe.

A+