Macro pour ouvrir et activer un fichier d'un autre logiciel;

Re : Macro pour ouvrir et activer un fichier d'un autre logiciel;

Bonjour,

Sans doute que la récente réponse de JNP va t'aider ...

https://www.excel-downloads.com/thr...-un-fichier-excel-en-txt-son-decalage.155877/

A +
🙂

Re : Macro pour ouvrir et activer un fichier d'un autre logiciel;

Bonsoir le fil 🙂,

James007 à dit:

Sans doute que la récente réponse de JNP va t'aider ...

Cliquez pour agrandir...

Merci James pour la citation 😉...
Juste une subtilité : notre ami veut AJOUTER du texte à un TXT, or le code donné ECRASE le contenu du TXT 🙄...
Il faut donc modifier le début du code ainsi en changeant Output par Append 😀.
Pour aller plus loin, en lisant les données du TXT avant de tout remplacer par exemple, voir l'aide sur Bon courage 😎

Re : Macro pour ouvrir et activer un fichier d'un autre logiciel;

Merci beaucoup; ça marche très bien pour ce que j'ai demandé.
Par contre j'ai des incompréhensions; je vais tenter de vous les exposer demain.
Merci encore.

Re : Macro pour ouvrir et activer un fichier d'un autre logiciel;

Bonjour les amis,
Comme je disais, j'ai essayé l'instruction "Open" et "Print #" et ça marche bien. Mais mon problème est un peu plus compliqué que ça.
J'utilise un logiciel qui marche avec des lignes de commandes et mon objectif est de l'ouvrir et d'exécuter quelques lignes de commande automatiquement à partir d'Excel, récupérer des donnée avant de revenir dans Excel.

Exemple:
Ligne
0,0
10,5
Cercle
0,0
1,1

Ces commande me trace respectivement une ligne partant de 0,0 à 10,5 (coordonnées x,y) puis un cercle de centre 0,0 et de rayon 1.

Le problème avec les instructions " Shell et Sendkey" c'est que ça m'ouvre bien le logiciel autocad, mais le met de coté et revient exécuter les lignes de commande plutôt dans Excel.

Avec les instructions "Open et Print #", le problème c'est que ça ne m'ouvre même pas Autocad contrairement à Notepad où ça marche bien. J'ai essayé de panaché Shell et Print # mais ça ne marche pas non plus.
Merci d'avance.

Macro de references :

______________________________________________________
Sub recherche1()
Dim RetVal
RetVal = Shell("C:\Program Files\Autodesk\Autocad.exe U:\Feuilles Utiles\Dessin1.dwg", 2)
SendKeys "0, 0": SendKeys "{ENTER}": SendKeys "10, 10"
SendKeys "{ENTER}"
End Sub


Sub recherche1()

Open "U:\Feuilles Utiles\Dessin1.dwg" For Append As #1

Print #1, “ligne
Print #1, "0,0"
Print #1, "10,5"

End Sub

Re : Macro pour ouvrir et activer un fichier d'un autre logiciel;

Re 🙂,

liedo à dit:

Comme je disais, j'ai essayé l'instruction "Open" et "Print #" et ça marche bien. Mais mon problème est un peu plus compliqué que ça.
J'utilise un logiciel qui marche avec des lignes de commandes et mon objectif est de l'ouvrir et d'exécuter quelques lignes de commande automatiquement à partir d'Excel, récupérer des donnée avant de revenir dans Excel.
...
Le problème avec les instructions " Shell et Sendkey" c'est que ça m'ouvre bien le logiciel autocad, mais le met de coté et revient exécuter les lignes de commande plutôt dans Excel.

Cliquez pour agrandir...

Si je comprends bien, pour un problème Autocad, tu nous as posé une question sur du TXT 😡 !!! ???
Pourquoi ne pas l'avoir dit depuis le départ 😕...
Donc, soit tu continues avec Shell et Sendkey, mais autant revenir à de la programmation des années 80 en DOS 🙄... Seules pistes à te donner : Wait qui te permettra d'attendre et Window qui devrait te permettre de choisir ta fenêtre d'éxécution 😛...
Sinon, la logique serait de travailler comme VBA est prévu pour, en langage objet, ouvrir les références Autocad, définir une instance d'Autocad, la piloter depuis Excel, etc., mais là, je n'ai pas Autocad, donc bon courage 😉 !
Bonne soirée 😎

Re : Macro pour ouvrir et activer un fichier d'un autre logiciel;

Bonjour et merci pour ton aide.
Je savais que peu de gens possédait excel donc pour élargir mes chances d'être répondu j'ai pris un logiciel que tout le monde a . Je vais donc essayer avec wait et je te tiendrai informé. Par contre étant vraiment un débutant en VB, le langage objet c'est pire que du chinois pour moi. Mais qui sait? Je continue de fouiner donc. Le plus dur c'est que j'ai pas de pc chez moi donc je fais tout au bureau et bonjour la lenteur.