Discussion :

[DanielB]

Bonjour,
Je souhaite ouvrir avec le navigateur par défaut un fichier MonFichier.htm situé dans (app.path+"\MonFichier.htm") Il faut surement utiliser la fonction shell, mais comment??? Merci par avance

[ProgElecT]

Salut

FAQ VB6: Comment ouvrir un fichier HTML, Word ou autre en utilisant l'exécutable associé ?

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Sub Command1_Click()
Dim Rep As Long
Dim Prog As String
 
Prog = "C:\Clef4G\PersoFrancis\Miroir msdnvb6fr\toc.htm"
Rep = ShellExecute(Me.hwnd, "open", Prog, "", App.Path, 1)
End Sub

[DanielB]

C'est la bonne solution, ça fonctionne. Merci ProgElecT pour la réponse.