Ecritude dans un fichier.bat à partir de VBA

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Ecritude dans un fichier.bat à partir de VBA

melof42

Bonjour,

Je souhaite à partir d'une maccro excel lancer un fichier bat.
Pour cela, j'écris dans ma maccro VBA :

Code :

chemin2 = "C:\Users\MOI\Desktop\3D\qhull-2012.1\eg\Qhull-go.bat"Open chemin2 For Output As #3
Print #3, "qdelaunay s i TO qdelaunayessai.txt <ImputDataExecutable.txt"
Close #3

Au lieu d'écrire qdelaunay s i TO qdelaunayessai.txt <ImputDataExecutable.txt ça m'écrit qdelaunay s i TO qdelaunayessai.txt 0<ImputDataExecutable.txt

Comment puis-je enlever le 0 ?

Remarque : ça le fait également pour "<" avec un 1 devant

Merci de vos réponses

Mélo

Publicité

cri88

Bonjour,

Ton code fonctionne bien pour moi (Excel 2013). Je n'ai pas de 0 qui apparaît comme tu l'indiques.

Tu peux essayer de remplacer le signe < par son code ascii. Sait-on jamais...

Code :

chemin2 = "C:\test.bat"
Open chemin2 For Output As #3
Print #3, "qdelaunay s i TO qdelaunayessai.txt " & Chr$(60) & "ImputDataExecutable.txt"
Close #3

Cdlt

melof42

Bonjour,

En effet mon code fonctionne, j'ai mis append au lieu de output car je ne veux pas supprimer ce qu'il y a déjà dedans !
Cependant, quand j'ouvre le fichier bat en .txt voila ce que j'obtiens

Code :

: Qhull-go.bat invoked as cmd.com from QHULL-GO
@echo off
echo.
echo ========= Qhull with rbox, qconvex, qdelaunay, qvoronoi, qhalf ============
echo.
echo Use arrow keys to repeat and edit commands.
echo.
echo Double-click window bar for full height, or
echo "right-click > Properties > Layout > Window Size > Height > 50 "
echo.
echo Type 'qconvex' for synopsis and examples.
echo.
echo =========
echo.
title Qhull
cd bin
%comspec%
qdelaunay s i TO OutputDataQJ.txt <ImputData.txt

Au final mon fichier OutputDataQJ n'est pas crée. Je ne connais pas dt tout le fonctionnmeent des fichiers bat et mes recherches n'ont pour le moment pas abouti.

Si tu as une petite idée du pourquoi je suis preneuse

Merci en tout cas d'avoir répondu !

Marc L

Bonjour, effectivement depuis le départ cette dernière ligne est intrigante
et seule toi peut expliquer ce qu'elle est censée faire !

Tu peux tester aussi manuellement ta commande dans l'Invite de commandes …

melof42

Manuellement la ligne de commande que je rentre i.e.

Code :

qdelaunay s i TO OutputDataQJ.txt <ImputData.txt

fonctionnement parfaitement, j'obtient ce que je veux !

Je suis presque sure que le problème vient en fait de %comspec% car quand je lance manuellement mon fichier j'ai sur ma console le chemin :

Code :

C:\Users\Nom\Dekstop\3D\qhull-2012.1\bin

alors que si je lance de VBa, j'ai

Code :

C:\Users\Nom\Dekstop\3D\NOMDUFICHIEROUJELANCEMAMACRO

, le système ne peut donc pas trouver le chemin spécifié !

A mon avis il faut que je crée "a customized Command Prompt " n'y connaissant pas grand chose je vais voir si cela est possible et si je ne raconte pas des sôtisses !

En tout cas merci de m'aider juste le fait de parler du problème me fait comprendre certain trucs !

Marc L

Le fichier batch (ou .cmd) a-t-il forcément besoin d'être créé à chaque fois,
ne peut-il pas l'être une fois pour toute et ne lancer son exécution en VBA avec la fonction Shell ?

melof42

Au final je lance mon invite de commande à partir de "shell" et je rentre à la main ma commande !
Je suis en train de regardezr du coté de Attachconsole ... mais pour le moment rien de concluant

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Ecritude dans un fichier.bat à partir de VBA

Sujets relatifs
problème programmation VBA	Erreur d execution 432 nom du fichier ou de la classe introuvable lors
mise a jour d'un fichier texte	[macro WORD]: extraction de phrases à partir de mot clé
VBA prob de doublon	VBA et excel Base de données
EXCEL 2007-VBA- Créer une zone de dessin et mise à l'échelle de formes	parcours fichier HTML
VBA : Copier/Coller cellule d'un fichier en lecture seule
Plus de sujets relatifs à : Ecritude dans un fichier.bat à partir de VBA

Page générée en 0.053 secondes