Discussion :

[Kelaydos]

Bonjour,

En utilisant la fonction Call Shell, je peux lancer un programme et ouvrir un fichier de la manière suivante :

Code :

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

1
2
stAppName2 = "C:\Program Files\Simlox\Simlox.exe M:\donnees\fichier1.sxo "
Call Shell(stAppName2, 1)"

J'aimerai savoir comment ouvrir plusieurs fichiers sachant que

Code :

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

stAppName2 = "C:\Program Files\Simlox\Simlox.exe M:\donnees\fichier1.sxo M:\donnees\fichier2.sxo "

ou

Code :

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

1
2
3
4
stAppName2 = "C:\Program Files\Simlox\Simlox.exe M:\donnees\fichier1.sxo  "
    Call Shell(stAppName2, 1)
   stAppName2 = "M:\donnees\fichier2.sxo "
   Call Shell(stAppName2, 1)

ne fonctionne pas et que

Code :

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

1
2
stAppName2 = "C:\Program Files\Simlox\Simlox.exe M:\donnees\fichier1.sxo "
stAppName2 = "C:\Program Files\Simlox\Simlox.exe M:\donnees\fichier2.sxo "

m'ouvre deux fois le programme avec un seul fichier ouvert dans chacun des programmes.

Comment puis-je faire pour ouvrir une seule fois le programme puis ouvrir dedans mes fichiers ?
Merci.

[Jean-Philippe André]

Salut,

ton executable, tu as la main dessus ?

sinon, le ShellExecute ne répond-il pas à ton besoin (ouverture automatique avec le bon executable) ?

[Kelaydos]

Merci pour cette réponse. Le ShellExecute me servira surement pour la suite.
Par contre pour avoir essayé simplement

Code :

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

1
2
Public 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
Public Const SW_SHOWNORMAL = 1

dans module
et

Code :

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

1
2
3
4
Sub simexe()
    fName = "M:\donnees\fichier.sxo"
    RetVal = ShellExecute(hwnd, "Open", fName, ByVal 0&, 0&, SW_Normal)
End Sub

, à l'exécution de la macro le logo d'ouverture du logiciel s'affiche puis plus rien

sinon j'ai aussi testé ça

Code :

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

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

dans module et

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub ShellExec()
    Dim strFile As String
    Dim strAction As String
    Dim lngErr As Long
 
    strFile = "M:\donnees\macro\testmac.sxo" 
    strAction = "OPEN"
 
    lngErr = ShellExecute(0, strAction, strFile, "", "", 0)
End Sub

mais même problème