Re:

[MichelXld]

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

 

[MichelXld]

rebonsoir

M'enfin ....???...que c'est il passé ?.... la question est ici :

Lien supprimé


bonne soiree
MichelXld