bonsoir
j'espere qu'un de ces 3 exemples pourra t'aider
Declare Function WinExec Lib 'kernel32' (ByVal lpCmdLine As String, _
ByVal nCmdShow As Long) As Long
Sub OuvertureNotepad_V03()
WinExec 'notepad', 10
End Sub
Sub OuvertureNotepad_V01()
Dim Cible As Long
Cible = Shell('notepad.exe ', 1)
End Sub
Sub OuvertureNotepad_V02()
Dim Obj As Object
Set Obj = CreateObject('WScript.Shell')
Obj.Run 'notepad.exe ', 1, True
End Sub
bonne soiree
MichelXld
j'espere qu'un de ces 3 exemples pourra t'aider
Declare Function WinExec Lib 'kernel32' (ByVal lpCmdLine As String, _
ByVal nCmdShow As Long) As Long
Sub OuvertureNotepad_V03()
WinExec 'notepad', 10
End Sub
Sub OuvertureNotepad_V01()
Dim Cible As Long
Cible = Shell('notepad.exe ', 1)
End Sub
Sub OuvertureNotepad_V02()
Dim Obj As Object
Set Obj = CreateObject('WScript.Shell')
Obj.Run 'notepad.exe ', 1, True
End Sub
bonne soiree
MichelXld