Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

Ouvrir une application Non Office à partir de VBA Access

 

28 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

Ouvrir une application Non Office à partir de VBA Access

Prévenir les modérateurs en cas d'abus 
Marcello
  1. homepage
marcello
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 28/01/2016 à 00:38:04  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonsoir,
Je rame depuis plusieurs heures sur le problème suivant:
Je voudrais à l'aide d'un bouton d'un formulaire Access, ouvrir un logiciel externe à Access et ne faisant pas partie de la suite Office.
Le chemin complet du programme est :
C:\Program Files (x86)\SepaWin\SepaWin.exe
J'utilise, sans succès la commande suivante:
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. lancer_progr=Shell("C:\Program Files (x86)\SepaWin\SepaWin.exe",3)

J'obtiens l'erreur 53 Fichier introuvable alors que j'ai copié/collé le chemin exact. Par contre
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. xx=Shell("C:\Windows\Notepad.exe",3)
marche très bien.
Le problème ne viendrait-il pas des espaces dans le chemin de mon programme (il y en a 2, entre Program et Files ainsi qu'entre Files et la parenthèse ouvrante devant 86). J'ai été à la pêche sur divers sites, j'ai essayé plusieurs solutions mais sans succès.
J'ai essayé ça entre autres:
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. lancer_progr = Shell("""C\:Program ""Files"" (x86)\SepaWin\SepaWin.exe\""", 3)

même erreur 53.
De plus, j'aimerais charger le chemin complet dans une variable et lancer le programme en utilisant cette variable du type:
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Dim VarEx as variant
  2. VarEx="C:\Program Files (x86)\SepaWin\SepaWin.exe"
  3. lancer_progr=Shell(VarEx,3)

Ça, ça ne marche pas non plus mais avec l'erreur 5 Argument ou appel de procédure incorrect. :mad:
Comment définir le texte dans la variable ?
Merci de votre aide.
Cordialement
Marcello

Edit par Tintin10 : rajout des balises de code
Message édité par Tintin10 le 28/01/2016 à 19:24:03

---------------
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 28/01/2016 à 12:37:30  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bjr
attention à l'espace devant et derrière le signe =

depuis excel, ma macro lance bien le logiciel
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Sub essai()
  2.  Dim var As Variant
  3.  var = "C:\Program Files (x86)\ACD Systems\ACDSee\ACDSee.exe"
  4.  lancer = Shell(var, 3)
  5. End Sub


 :hello:

Edit par Tintin10 : rajout des balises de code
Message édité par Tintin10 le 28/01/2016 à 19:24:46

---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
  1. homepage
marcello
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 28/01/2016 à 13:50:17  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour,
J'utilise la macro dans Access. Néanmoins, j'ai voulu tester dans Excel: pareil, même message d'erreur 5 Argument ou Appel de procédure incorrect.
J'ai alors essayé d'utiliser ma macro pour ouvrir Audacity dont le dossier est également situé dans Program Files (x86). Surprise, ça a marché. J'ai alors remarqué que l'icône de Sepawin, contrairement à celle d'Audacity, comportait un petit écusson jaune et bleu.

J'ai fait un copier/coller du dossier Sepawin contenant le programme et ses fichiers ini dans le dossier Program Files et là, ça marche car le petit écusson a disparu. Je pense effectivement que mon problème vient de là.
Donc problème résolu mais pas compris. A noter que si je clique directement sur l'icône avec l'écusson le programme s'exécute sans problème.
Si quelqu'un avait une explication et une solution pour que la macro marche même dans le cas d'origine.
Merci en tout cas Willyplaisir pour ton message il a orienté mes recherches.
Cordialement.
Marcello


---------------
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 28/01/2016 à 14:05:55  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bjr,

content pour toi que cela fonctionne sans ecusson.
Si on comprenait tout on serait des Dieux.

Bonne journée Marcello! proche du nom de mon père Martello
 :hello:


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
  1. homepage
marcello
Tu cartonnes ! (de 500 à 999 messages postés)
  1. Posté le 28/01/2016 à 18:13:34  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Re-bonjour,
Bon, j'ai compris pourquoi il y a un petit écusson: c'est quand le programme doit être exécuté en tant qu'administrateur.
Si je l'ouvre normalement (pas en tant qu'administrateur) j'ai un autre problème dans l'utilisation du logiciel. Si je le mets à exécuter en tant qu'administrateur, le logiciel travaille correctement mais je ne peux pas l'ouvrir à partie de VBA Access.
Donc mon problème est actuellement insoluble. Je vais donc continuer à utiliser mon raccourci sur le bureau pour lancer mon programme.
Bonne soirée à tous.
Marcello


---------------
(Publicité)
 Page :
1

Aller à :
 

Sujets relatifs
ouvrir un fichier.book ouvrir pps , ppt dans l'application courrier windows 10
Access 2007 et Linux Mint, Problème affichage windows 8.1 impossible de copier à partir des ports usb
programme excel vba Budget sous open office (légende et graphique)
les paramètres du registre pour cette application pas copiés Case "Toujours ouvrir avec..." grisée
Plus possible d'ouvrir les dossiers !  
Plus de sujets relatifs à : Ouvrir une application Non Office à partir de VBA Access

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
Logiciel de location estivales 3
image dans Access 2003 sous XP 1
Peut ajouter Access (unitaire) à un pack Office 2007 ou 2010 ? 4
problème pagination 1
Excel 2007 créer une bibliothèque de fiche produit 4