Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Ouvrir fichier texte sur logiciel

N12ico

XLDnaute Nouveau
Bonjour

J'ai utilisé l'instruction SHELL afin d'ouvrir un logiciel qui doit me permettre d’exécuter un code que je crée à partir de VBA excel et que j' enregistre dans un fichier texte.

Ma demande est la suivante:

Après avoir ouvert le logiciel comment faire en sorte que mon fichier texte s'ouvre à l’intérieur du logiciel avec l'aide d'une commande comme un BOUTON par exemple.
 

Pièces jointes

  • test shell.xlsm
    17.8 KB · Affichages: 38

Modeste geedee

XLDnaute Barbatruc
Re : Ouvrir fichier texte sur logiciel

Bonsour®

en argument de l'instruction SHELL, c'est le chemin et nom de ton logiciel qu'il faut mettre... !!!

si ton logiciel accepte un argument en ligne de commande, il est alors envisageable
de completer l'argument d'exécution avec le nom du ficher texte à ouvrir

VB:
Private Sub Ouvrir_prog_Click()
 Unload test_shell
 Application.WindowState = xlMinimized
 rep = Shell("C:\cheminTMCL\TMCL.exe C:\Users\N12ico\MonFichierTMCL.Txt", vbNormalFocus)
End Sub
 
Dernière édition:

Lone-wolf

XLDnaute Barbatruc
Re : Ouvrir fichier texte sur logiciel

Bonjour à tous

Si c'est un fichier texte que tu veux ouvrir c'est avec Notepad.exe.

En PJ
 

Pièces jointes

  • test shell2.xlsm
    19.7 KB · Affichages: 35
Dernière édition:

Marc L

XLDnaute Occasionnel
Une réponse SVP
Bonjour, bonjour !

D'abord, pourquoi cette discussion en doublon de celle de la veille ?‼
Si encore un effort de clarification avait été fait, mais non !

Pour ouvrir un fichier dans un logiciel il faudrait déjà regarder dans la doc du dit logiciel !

Voilà, voilà !
 
Dernière édition:

Lone-wolf

XLDnaute Barbatruc
Re : Ouvrir fichier texte sur logiciel

Re

Peut-être comme ceci

Code:
Private Sub Ouvrir_prog_Click()
Dim rep$
Unload test_shell
Application.WindowState = xlMinimized
rep = Shell("C:\Windows\notepad.exe C:\Users\N12ico\Main.txt", vbNormalFocus)
End Sub
 
Dernière édition:

Lone-wolf

XLDnaute Barbatruc
Re : Ouvrir fichier texte sur logiciel

Re

une autre façon

Code:
'DANS UN MODULE
Public Const fichier As String = "C:\Windows\notepad.exe C:\Users\N12ico\Main.txt"


Private Sub Ouvrir_prog_Click()
Dim rep$
Unload test_shell
Application.WindowState = xlMinimized
rep = Shell(fichier, vbNormalFocus)
End Sub
 

Modeste geedee

XLDnaute Barbatruc
Re : Ouvrir fichier texte sur logiciel

Bonsour®
Une réponse SVP
pourquoi n'utilises-tu pas :
TMCL-PC
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…