Ouvris application externe par macro

[vmax67]

Bonsoir,

Je cherche à finaliser un bout de code qui lance une application (Xnview) avec chemin du fichier à ouvrir en cellule A2. Ci-dessous mon code. Il faut faudrait également faire un test si cette application est bien installé sur pc. Avec le chemin complet dans la macro cela fonctionne, mais pas avec le chemin en A2.

Shell """C:\Program Files (x86)\XnView\xnview.exe"" ""D:\MAGASIN\TEST\Image.jpg""", vbMaximizedFocus '-------> Fonctionne

Filename = Range("A2").Value

FilePath = "D:\MAGASIN\TEST\"

Shell """C:\Program Files (x86)\XnView\xnview.exe"" ""FilePath & Filename""", vbMaximizedFocus

Par avance merci

 

[Dranreb]

Bonsoir.
Essayez Shell """C:\Program Files (x86)\XnView\xnview.exe"" """ & FilePath & Filename & """", vbMaximizedFocus

 

[vmax67]

Bonsoir,
merci c'est parfait.
Dernière question : comment vérifier si cette application est bien présente sur un pc, car si pas présente cela plante le code.

 

[Dranreb]

Vous pouvez toujours au moins mettre On Error Resume Next devant pour que ça ne plante pas, s'il n'y a pas Arrêt sur toutes les erreurs coché dans les option VBA, et tester derrière If Err Then MsgBox,"Ça plante", vbCritical: Exit Sub