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