créer un macro excel qui écrit une chaine de caractère dans DOS

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : créer un macro excel qui écrit une chaine de caractère dans DOS

specics

salut

je cherche a faire un macro qui écrit un texte contenu dans un cellule d'excel dans un fenètre DOS.
J'arrive a l'exécuter, mais pas a écrire le texte qu'estce que je doit utiliser pour ça ? print ?

Publicité

olivthill

Quel est l'intérêt d'écrire un texte dans une fenêtre DOS. L'utilisateur d'Excel voit déjà le texte dans Excel, pourquoi l'afficher en plus dans une fenêtre ?
Peut-être que c'est avec l'idée (fausse) qu'un programme pourrait plus facilement récupérer ce texte s'il était dans une fenêtre DOS plutôt que dans Excel.
A mon humble avis, il serait préférable d'écrire ce texte dans un fichier, par exemple :

Open "toto.txt" For Output As #1
Print #1 "Voici le contenu de la cellule E2"
Print #1 ActiveSheet.Cells(5,2).Value
Close #1

Ce fichier peut ensuite être récupéré dans un batch DOS ou ailleurs.

specics

j'ai essayé ton code mais ca déconne sur le print #1 j'me suis fait une macro appart
Sub ecris_merde()
Open "U:\script patrick\toto.txt" For Output As #1

Print #1, "coucou"

Close #1
End Sub

mais ça donne rien

specics

mais pour revenir au commencement, je cherche a écrire dans une fenetre dos pour entrer un variable a un script. Pour ne pas a avoir de fichier texte supplémentaire qui implique une "localisation" supplémentaire.

Arjuna

Aircraft Ident.: F-MBSD

ça me semble bien compliqué ton histoire

pkoi ne pas dire à ton *.bat de prendre des paramètres, et lancer ce bat depuis ta macro avec un wsh.cmdshell() qui passe en paramètretes infos ?

Arjuna

Aircraft Ident.: F-MBSD

C'est un peu goret mais bon, ça marche
Faut avoir une console "cmd" ouverte.

Code :

Option Explicit
Sub test()
Dim wsh As WshShell
Set wsh = New WshShell
wsh.AppActivate "cmd.exe"
wsh.SendKeys "shutdown /s /t 10 /c ""dtc.com"" /f" & vbCrLf
End Sub

Message cité 2 fois
Message édité par Arjuna le 21-04-2006 à 17:11:40

specics

Arjuna a écrit :

C'est un peu goret mais bon, ça marche
Faut avoir une console "cmd" ouverte.

Code :

Option Explicit
Sub test()
Dim wsh As WshShell
Set wsh = New WshShell
wsh.AppActivate "cmd.exe"
wsh.SendKeys "shutdown /s /t 10 /c ""dtc.com"" /f" & vbCrLf
End Sub

merci pour le code, mais t'es sur qu'il n'y as pas un déclaration supplémentaire ? quand je le met il ne reconnais pas "WshShell"

Arjuna

Aircraft Ident.: F-MBSD

Rajoute dans les références de ta macro l'objet "Windows Scripting Host".

PS: et enregistre bien avant de tester la macro :ange:

GhostDJ

Arjuna a écrit :

C'est un peu goret mais bon, ça marche
Faut avoir une console "cmd" ouverte.

Code :

Option Explicit
Sub test()
Dim wsh As WshShell
Set wsh = New WshShell
wsh.AppActivate "cmd.exe"
wsh.SendKeys "shutdown /s /t 10 /c ""dtc.com"" /f" & vbCrLf
End Sub

mdr

FORUM HardWare.fr

Programmation

VB/VBA/VBS

créer un macro excel qui écrit une chaine de caractère dans DOS

Sujets relatifs
Format date dans textbox malgrès différente version d'Excel	Comparer des cellules sous Excel
recuperer une chaine dans une page	probleme d'encodage sur un caractere
Créer un logiciel linguistique ! Help !	chaine inclue dans une variable ???
requete sql pour une sous chaine	conception de macro sur excel
Pb de caractère spéciaux \ [RESOLU]
Plus de sujets relatifs à : créer un macro excel qui écrit une chaine de caractère dans DOS

Page générée en 0.057 secondes