Shellexecute : Peut-on lancer un exécutable ?
Bonjour,
j'hésite car je ne sais plus si ShellExecute permet aussi de lancer un exécutable (avec passage de paramètres) ou si Shellexecute permet seulement d'ouvrir/imprimer.... des fichiers au moyen du programme associé.
je veux lancer Irfanview pour convertir un .PCX en .JPG.
Je ne parviens pas à le faire avec Shellexecute mais avec Shell cela fonctionne.
Voici mon code actuel avec Shell :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Sub test_pcx2()
Dim quote As String
Dim proc As String
Dim parm1 As String
Dim parm2 As String
Dim cmd As String
Dim ret As Variant
proc = "C:\Program Files\IrfanView\i_view32.exe"
parm1 = "C:\Dessins\06391.pcx"
parm2 = "/convert=c:\Dessins\06391.jpg"
quote = ""
cmd = quote & proc & quote & " " & quote & parm1 & quote & " " & quote & parm2 & quote
ret = Shell(cmd, vbNormalFocus)
End Sub |
Merci de me dire si c'est possible et si oui de m'indiquer la syntaxe.
La commande a lancer est donc C:\Program Files\IrfanView\i_view32.exe C:\Dessins\06391.pcx /convert=c:\Dessins\06391.jpg
Pour la petite histoire, ce code est nécessaire car Excel ne permet plus d'importer des images sous formes PCX, mais pour les JPG pas de problème.
D'avance merci.:roll: