Re:

MichelXld

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
312 913
Messages
2 093 534
Membres
105 750
dernier inscrit
fred13340