Ouvris application externe par macro

vmax67

XLDnaute Occasionnel
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

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

vmax67

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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
 

Discussions similaires


Haut Bas