1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

Ouvris application externe par macro

Discussion dans 'Forum Excel' démarrée par vmax67, 7 Février 2019.

  1. vmax67

    vmax67 XLDnaute Occasionnel

    Inscrit depuis le :
    15 Juillet 2007
    Messages :
    186
    "J'aime" reçus :
    1
    Utilise:
    Excel 2010 (PC)
    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
     
  2. Chargement...

    Discussions similaires - Ouvris application externe Forum Date
    nombre aléatoire à découvris en 1 mn Forum Excel 2 Août 2011
    XL 2007 Application direct de formule crée avec VBA - Bug 438 Forum Excel 8 Février 2019
    XL 2007 Application.OnTime ne veut pas marcher Forum Excel 21 Janvier 2019
    [réglé] Application.WorksheetFunction.CountIf Forum Excel 7 Janvier 2019
    XL 2010 Application macro dans classeur Forum Excel 30 Novembre 2018

  3. Dranreb

    Dranreb XLDnaute Barbatruc

    Inscrit depuis le :
    31 Janvier 2011
    Messages :
    14943
    "J'aime" reçus :
    925
    Sexe :
    Masculin
    Habite à:
    Belfort
    Utilise:
    Excel 2016 (PC)
    Bonsoir.
    Essayez Shell """C:\Program Files (x86)\XnView\xnview.exe"" """ & FilePath & Filename & """", vbMaximizedFocus
     
  4. vmax67

    vmax67 XLDnaute Occasionnel

    Inscrit depuis le :
    15 Juillet 2007
    Messages :
    186
    "J'aime" reçus :
    1
    Utilise:
    Excel 2010 (PC)
    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.
     
  5. Dranreb

    Dranreb XLDnaute Barbatruc

    Inscrit depuis le :
    31 Janvier 2011
    Messages :
    14943
    "J'aime" reçus :
    925
    Sexe :
    Masculin
    Habite à:
    Belfort
    Utilise:
    Excel 2016 (PC)
    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
     

Partager cette page