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

Ouvrir fichier texte sur logiciel

  • Initiateur de la discussion Initiateur de la discussion N12ico
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

N

N12ico

Guest
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

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:
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:
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:
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
 
Re : Ouvrir fichier texte sur logiciel

Bonsour®
Une réponse SVP
pourquoi n'utilises-tu pas :
TMCL-PC
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
430
Réponses
3
Affichages
844
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…