Discussion :

[sun19]

Bonjour,

Dans mon appli vb6, je souhaite lancer un .msi qui se trouve dasn un chemin construit dynamiquement.
J'ai mis le code :

Code :

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

1
2
3
4
5
6
 
MonPath= chemin & "\programme.msi"
 ShellOk = Shell(""" & MonPath & """, vbMinimizedNoFocus)
  DoEvents
  Do While ShellOk = 0
  Loop

Mais cela ne fonctionne pas. "MonPath" donnant un bon chemin
Est qu'il faut bien utiliser Shell pour un .msi?
Si oui quelle est mon erreur ? (j'ai mis 3 guillemets pour gérer les espaces dans le chemin)

Merci d'avance

[OhMonBato]

Et en mettant :

ShellOk = Shell(MonPath, vbMinimizedNoFocus)

Ca marcherait pas mieux ?

Je ne comprends pas non plus ta boucle, ShellOK va te renvoyer l'identificateur du programme que tu lances, il ne va pas repasser miraculeusement à 0 ensuite.

[sun19]

Et en mettant :

Code :

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

ShellOk = Shell(MonPath, vbMinimizedNoFocus)

J'ai l'erreur

Invalid procedure call or argument

Quand à ma boucle, c'est pour "boucler" jusqu'à que le programme soit installé.

[ucfoutu]

Bonjour,

apprenons à pêcher...

Si l'on ouvre la BDR et que l'on recherche ".msi", on découvre que ce type d'extension correspond aux fichiers Msi.package...
Bien.

Si l'on recommence l'opération sur ce dernier mot, on arrive à une clef qui nous montre comment ouvrir de tels fichiers ...
Elle nous dit ceci :

"%SystemRoot%\System32\msiexec.exe" /i "%1" %*

Ce qui veut dire ceci :

1) soit on utilise Shell et il ne suffit pas de se référer au fichier à exécuter, mais également au chemin de l'appli qui en permet l'exécution

2) soit on utilise ShellExecute (Api de Windows) qui, elle, est fort capable de se débrouiller abec la seule extension .msi, sans lui indiquer quelle est l'application nécessaire...

Pour continuer avec cette philosophie de recherche, je te conseille de faire une toute petite recherche (y compris sur ce forum) en ce qui concerne l'utilisation de la Fonction ShellExecute de l'Api de Windows...

Edit (et avant cris éventuels) : ce n'est pas un "sarcasme", non ... c'est bien au contraire de la vraie générosité : celle de la mise du pied à l'étrier ...

[sun19]

Merci

En choisissant Shell et d'apres tes propos j'ai mis

Code :

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

1
2
3
 
test = "c:\windows\System32\msiexec.exe /I " & MaPath & " /passive"
  ShellOk = Shell(test, vbMinimizedNoFocus)

Cela ne plante plus, mais cela ne m'a pas installer le programme voulu (alors que si je lance le msi en double cliquant ce la fonctionne)
De plus j'onbtiens une fenetre Window Installer avec les options.

Est-ce que j'ai raté quelque chose ?

[Phifi]

Est-ce que j'ai raté quelque chose ?

Probablement l'option silencieuse si elle existe pour ce .msi. Qu'en dit l'aide ?

[ucfoutu]

Fais tes essais depuis la ligne de commande (démarrer ===>> exécuter)

- sans te préoccuper pour l'instant de la fenêtre
- en essayant également sans le paramètre i

[ucfoutu]

Ouais,

Je n'utilise et n'ai jamais utilisé cet installateur...

Un copain me dit de loin d'essayer ceci (depuis la ligne de commande, d'abord, pour voir si ça marche)

Windows\System32\msiexec.exe /i le_chemin_de_ce_que_tu_dois-installer /qb,1,TRUE

Une fois trouvée la bonne commande, c'est elle qu'il faudra passer à SHELL...

[SfJ5Rpw8]

qu'elle est la valeur de MaPath ..?

si elle contient des espaces ... j'aurai bien mis des " autour...

Code :

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

test = "c:\windows\System32\msiexec.exe /I """ & MaPath & """ /passive

[sun19]

Effectivement en tapant la commande

Code :

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

msiexec.exe /i le_chemin_de_mon_msi /qb

dans démarrer --> executer, l'install ne se lance et j'obitiens la fenetre suivante (voir piece jointe)
Alors que si je cliclk sur le .msi, il se lance sans pb

Que me manque-t-il ?

[ucfoutu]

Bon...

Je vais voir si j'ai la chance d'avoir à nouveau le copain... (dur dur compte tenu des évènements électoraux aux USA et de l'atmosphère du moment à Chicago ....)

Dans l'attente : il me semble que cette fenêtre est là pour t'aider à compléter ta syntaxe (paramètres à passer)....

Lis-la entièrement et fais des essais "combinés"...

A +, peut-être

Edit : T'as essayé avec /package ?

Deux liens à lire en attendant :

http://helpnet.macrovision.com/robo/...CmdLineMSI.htm

http://support.microsoft.com/kb/314881/fr

Ils concernent la syntaxe de la commande et les paramètres à passer selon le cas de figure.

[sun19]

Finalement en tapant dans demarrer--> executer

Code :

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

c:\windows\System32\msiexec.exe /i "le_chemin_de_mon_msi"

cela fonctionne (j'avais oublié les guillements pour le chemin, il continet des espaces)
Et donc dans mon code vb6, j'ai mis

Code :

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

1
2
3
 
test = "c:\windows\System32\msiexec.exe /I """ & MonPath & """ " 
  ShellOk = Shell(test, vbMinimizedNoFocus)

Et c'est ok

Merci de votre aide

[AlainTech]

Puisque c'est ok, un petit clic sur ?