salut
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 sProjectPath As String
sProjectPath = "C:\WINDOWS\Bureau\projet1.vbp"
Call ShellExecute(Me.hwnd, "open", sProjectPath, 0&, 0&, 1&)
End Sub

Coloration
syntaxique automatique [AFCK]

PCPT [AFCK]