ouvrir un exe correctement

Bonjours,
Je suis débutant en vb et j'aurais besoin d'aide.

J'ai un problème pour ouvrir un exe correctement,
en utilisant la commande shell:

Private Sub Command1_Click()
Dim RetVal
RetVal = Shell("C:\Program Files\Boole & Partners\OptiCoupe\OptiCoupe.exe", 1)
End Sub

le programme ouvre normalement mais pas avec ses paramètres stocké dans un fichier .ini
ce que j'aimerais c'est que le prog s'ouvre avec ses paramètres comme quand je double click
sur son icon dans C:\Program Files\Boole & Partners\OptiCoupe\OptiCoupe.exe

j'ai essayer la commande ShellExecute, pas de changement
aussi avec CreateProcess... toujours pareil.

mais pourquoi donc en cliquant sur son icon ou un raccourci dans windows ca fonctionne
et pas avec une commande vb.

quelqu'un peu m'aider?
Merçi à l'avance.

Gnain!

je ne suis pas sur mais ça a peut etre quelque chose à voir avec le répertoire courant

Sans doute un problème lié au dossier de démarrage ? quel est le dossier de démarrage pour ton icone ?

ton   "C:\Program Files\Boole & Partners\OptiCoupe\OptiCoupe.exe" ne serait il pas mieux en
"C:\Program Files\Boole&Partners\OptiCoupe\OptiCoupe.exe" sans espace.
J'ai déjà eu le tour.

réponse à Kristof_Koder
C:\Program Files\Boole & Partners\OptiCoupe\OptiCoupe.exe

réponse à NISANDSYSTEMS
Non il y a effectivement des espaces si je supprime les espaces, ce n'est plus le même chemin donc le prog ne s'ouvre pas.

le prog s'ouvre sans aucun paramètre
mais quand je click sur mon raccourci bureau ou directement sur le exe dans le répertoire cela fonctionne.

comment avoir avec une commande vb pour avoir exactement le même résultat
pourtant c'est le même chemin sinon il ne s'ouvrirait tout simplement pas.

Gnain!

est-il possible de faire un raccourci dans un form vb6, identique aux raccourcis que l'on fait sur notre bureau.

Gnain!

salut,

çà donne quoi avec la procédure StartProcess ?
http://www.codyx.org/snippet_ouvrir-document-lancer-executable_25.aspx#1548
(oui tu as essayé avec shellexecute mais parfois une erreur de param et on passe à côté...)

est-ce que dans ton raccourci bureau il y a le fichier ini en param?

que donne StartProcess sur le chemin directement du raccourci? (et non de sa cible)


créer un raccourci en VB :
http://www.codyx.org/snippet_creer-raccourci-application-sur-bureau_337.aspx#1050

---

Prenez un instant pour répondre à ce sondage svp

Salut PCPT
avec la procédure StartProcess toujours pareil.

J'ai penser a une chose mais je ne trouve pas la syntaxe précise

Dans les propriétés de mon raccourci j'ai ajouté vis a vis
"touche de raccourci" Ctrl + Alt + H
pour avoir un raccourci clavier pour ouvrir le prog.

donc avec un sendkeys je pourrais avoir ce que je veut.
mais bon il ne se passe rien, je n"ai surrement pas la bonne syntaxe

Private Sub Command1_Click()
SendKeys "^%(H)"
End Sub

J'ai essayé plusieurs combinaison
SendKeys "^(%(H))"
SendKeys ("^%(H)")
SendKeys "^(%H)"

mais quel est la bonne syntaxe pour envoyé un sendkeys
de Ctrl + Alt + H qui est associer à l'ouverture d'un prog
Gnain!

re
pose 2 boutons sur une form et teste ce code, avec le debug.print tu verras pourquoi le sendkeys ne convient pas
(et accessoirement tu as alors le bon code ^^)


Option Explicit

Private Const  KEYEVENTF_KEYUP  As Long  =  &H2
Private Declare Sub  keybd_event  Lib  "user32.dll"  ( ByVal  bVk  As Byte ,  ByVal  bScan  As Byte , ByVal dwFlags As Long , ByVal dwExtraInfo As Long )


Private Sub  Form_Load()
    Me.KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Debug.Print Time & "  " & KeyCode & "   " & Shift
End Sub


'   SEND KEYS CLASSIQUE
Private Sub Command1_Click()
    SendKeys "^%H", True
End Sub

'   SEND KEYS API
Private Sub Command2_Click()
    keybd_event vbKeyControl, 0, 0, 0   'CTRL
        keybd_event vbKeyMenu, 0, 0, 0  'ALT
            keybd_event vbKeyH, 0, 0, 0 'H
    
            keybd_event vbKeyH, 0, KEYEVENTF_KEYUP, 0
        keybd_event vbKeyMenu, 0, KEYEVENTF_KEYUP, 0
    keybd_event vbKeyControl, 0, KEYEVENTF_KEYUP, 0
End Sub


c'est toujours une solution un peu plus propre (par API) mais c'est louche quand même ton histoire ...
++

---

Prenez un instant pour répondre à ce sondage svp

bonjour
le probleme vient bien des espaces dans le chemin de l'exe ou du fichier à ouvrir
shell n'aime pas du tout
la parade c'est :
RetVal = Shell(Chr(34) &  "C:\Program Files\Boole & Partners\OptiCoupe\OptiCoupe.exe" & Chr(34), 1)

si c'est la solution, penser : REPONSE ACCEPTEE