OVH Cloud OVH Cloud

ouvrir bloc note en vba

8 réponses
Avatar
lebaud
bonjour,

bon je vous explique le procédé loufoque :....

à partir d'une feuille excel copier les données (qui ne seront bien entendu
que du texte..)
les coller sur un notepad à ouvrir
puis enregistrer le fichier notepad en fichier.txt
retour sur la feuille excel

pourquoi tout ça ;) parce que je veux générer un fichier txt avec des
variables qui seront pre déterminées sur excel avec des seaux de
&valeurs_cellule...
merci de ne me pas préconiser un bat ou un vb pour ce type de manip je dois
passer par excel

merci d'avance pour cotre collaboration

Laurent B

8 réponses

Avatar
Daniel.j
Bonjour,

Comment enregistrer une plage en fichier texte?
http://dj.joss.free.fr/faq.htm#xlstxt

Ou juste une cellule:
Sub a1txt()
Var = [A1]
FichierTXT = "C:ajeteraentxt.txt" 'à modifier
If Len(Dir(FichierTXT)) > 1 Then Kill FichierTXT
Open FichierTXT For Output As 1
Print #1, Var
Close
End Sub


--
Daniel
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Foire Aux Questions Microsoft Public Fr Excel
FAQ MPFE
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Adresse: http://dj.joss.free.fr/faq.htm

"lebaud" <laurent.b**pasdespamm** a écrit dans le message de
news: 4279fe63$0$300$
bonjour,

bon je vous explique le procédé loufoque :....

à partir d'une feuille excel copier les données (qui ne seront bien
entendu

que du texte..)
les coller sur un notepad à ouvrir
puis enregistrer le fichier notepad en fichier.txt
retour sur la feuille excel

pourquoi tout ça ;) parce que je veux générer un fichier txt avec des
variables qui seront pre déterminées sur excel avec des seaux de
&valeurs_cellule...
merci de ne me pas préconiser un bat ou un vb pour ce type de manip je
dois

passer par excel

merci d'avance pour cotre collaboration

Laurent B




Avatar
LSteph
Bonjour,
pardon d'être un peu abrupt mais c'est quoi
"des seaux " de &valeurs_cellule...

merci de ne me pas préconiser un bat ou un vb pour ce type de manip je dois
passer par excel
Faut-il faire une omelette sans oeufs?


Dans ce cas , à part copier coller ,entre les deux il te faudra quand même
ouvrir le bloc note!

;|?

lsteph

"lebaud" <laurent.b**pasdespamm** a écrit dans le message de
news: 4279fe63$0$300$
bonjour,

bon je vous explique le procédé loufoque :....

à partir d'une feuille excel copier les données (qui ne seront bien
entendu
que du texte..)
les coller sur un notepad à ouvrir
puis enregistrer le fichier notepad en fichier.txt
retour sur la feuille excel

pourquoi tout ça ;) parce que je veux générer un fichier txt avec des
variables qui seront pre déterminées sur excel avec des seaux de
&valeurs_cellule...
merci de ne me pas préconiser un bat ou un vb pour ce type de manip je
dois
passer par excel

merci d'avance pour cotre collaboration

Laurent B




Avatar
j
juste pour mon info, pourquoi tu Kill le fichierTXT ?


"Daniel.j" a écrit dans le message de news:

Sub a1txt()
Var = [A1]
FichierTXT = "C:ajeteraentxt.txt" 'à modifier
If Len(Dir(FichierTXT)) > 1 Then Kill FichierTXT
Open FichierTXT For Output As 1
Print #1, Var
Close
End Sub


--
Daniel
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- > Foire Aux Questions Microsoft Public Fr Excel
FAQ MPFE
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- > Adresse: http://dj.joss.free.fr/faq.htm

"lebaud" <laurent.b**pasdespamm** a écrit dans le message de
news: 4279fe63$0$300$
bonjour,

bon je vous explique le procédé loufoque :....

à partir d'une feuille excel copier les données (qui ne seront bien
entendu

que du texte..)
les coller sur un notepad à ouvrir
puis enregistrer le fichier notepad en fichier.txt
retour sur la feuille excel

pourquoi tout ça ;) parce que je veux générer un fichier txt avec des
variables qui seront pre déterminées sur excel avec des seaux de
&valeurs_cellule...
merci de ne me pas préconiser un bat ou un vb pour ce type de manip je
dois

passer par excel

merci d'avance pour cotre collaboration

Laurent B








Avatar
Daniel.j
Bonsoir
Pour que ce soit un fichier "tout neuf et tout propre"
sans caractère "résiduel".
Daniel

"" a écrit dans le message de news:
427a52dd$0$18816$
juste pour mon info, pourquoi tu Kill le fichierTXT ?


"Daniel.j" a écrit dans le message de news:

Sub a1txt()
Var = [A1]
FichierTXT = "C:ajeteraentxt.txt" 'à modifier
If Len(Dir(FichierTXT)) > 1 Then Kill FichierTXT
Open FichierTXT For Output As 1
Print #1, Var
Close
End Sub


--
Daniel
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- > > Foire Aux Questions Microsoft Public Fr Excel
FAQ MPFE
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- > > Adresse: http://dj.joss.free.fr/faq.htm

"lebaud" <laurent.b**pasdespamm** a écrit dans le message
de


news: 4279fe63$0$300$
bonjour,

bon je vous explique le procédé loufoque :....

à partir d'une feuille excel copier les données (qui ne seront bien
entendu

que du texte..)
les coller sur un notepad à ouvrir
puis enregistrer le fichier notepad en fichier.txt
retour sur la feuille excel

pourquoi tout ça ;) parce que je veux générer un fichier txt avec des
variables qui seront pre déterminées sur excel avec des seaux de
&valeurs_cellule...
merci de ne me pas préconiser un bat ou un vb pour ce type de manip je
dois

passer par excel

merci d'avance pour cotre collaboration

Laurent B












Avatar
lebaud
ok merci pour ces précieuses infos

Mr LSTEPH
je précisais "merci de ne me pas préconiser un bat ou un vb pour ce type de
manip je dois
passer par excel"
parce que je sais qu'on peut manipuler un fichier texte par MS DOS ou Visual
Basic (procédé non utilisable pour mon projet), je n excluais pas bien
entendu le Visual Basic for Applics

"LSteph" a écrit dans le message de
news:
Bonjour,
pardon d'être un peu abrupt mais c'est quoi
"des seaux " de &valeurs_cellule...

merci de ne me pas préconiser un bat ou un vb pour ce type de manip je
dois


passer par excel
Faut-il faire une omelette sans oeufs?


Dans ce cas , à part copier coller ,entre les deux il te faudra quand
même

ouvrir le bloc note!

;|?

lsteph

"lebaud" <laurent.b**pasdespamm** a écrit dans le message de
news: 4279fe63$0$300$
bonjour,

bon je vous explique le procédé loufoque :....

à partir d'une feuille excel copier les données (qui ne seront bien
entendu
que du texte..)
les coller sur un notepad à ouvrir
puis enregistrer le fichier notepad en fichier.txt
retour sur la feuille excel

pourquoi tout ça ;) parce que je veux générer un fichier txt avec des
variables qui seront pre déterminées sur excel avec des seaux de
&valeurs_cellule...
merci de ne me pas préconiser un bat ou un vb pour ce type de manip je
dois
passer par excel

merci d'avance pour cotre collaboration

Laurent B








Avatar
LSteph
Du vba sans vb c'est mignon reste "for application ",
cela me rassures , je t'aurais plus aidé si cela avait été plus clair et ne
sais sais toujours pas ce que sont tes "seaux " ...pas grave ...une autre
fois.
;-) à bientôt ...Mr LEBAUD

"lebaud" <laurent.b**pasdespamm** a écrit dans le message de
news: 427a6576$0$286$
ok merci pour ces précieuses infos

Mr LSTEPH
je précisais "merci de ne me pas préconiser un bat ou un vb pour ce type
de
manip je dois
passer par excel"
parce que je sais qu'on peut manipuler un fichier texte par MS DOS ou
Visual
Basic (procédé non utilisable pour mon projet), je n excluais pas bien
entendu le Visual Basic for Applics

"LSteph" a écrit dans le message de
news:
Bonjour,
pardon d'être un peu abrupt mais c'est quoi
"des seaux " de &valeurs_cellule...

merci de ne me pas préconiser un bat ou un vb pour ce type de manip je
dois


passer par excel
Faut-il faire une omelette sans oeufs?


Dans ce cas , à part copier coller ,entre les deux il te faudra quand
même

ouvrir le bloc note!

;|?

lsteph

"lebaud" <laurent.b**pasdespamm** a écrit dans le message
de
news: 4279fe63$0$300$
bonjour,

bon je vous explique le procédé loufoque :....

à partir d'une feuille excel copier les données (qui ne seront bien
entendu
que du texte..)
les coller sur un notepad à ouvrir
puis enregistrer le fichier notepad en fichier.txt
retour sur la feuille excel

pourquoi tout ça ;) parce que je veux générer un fichier txt avec des
variables qui seront pre déterminées sur excel avec des seaux de
&valeurs_cellule...
merci de ne me pas préconiser un bat ou un vb pour ce type de manip je
dois
passer par excel

merci d'avance pour cotre collaboration

Laurent B












Avatar
j
ben, de toutes façons, si tu l'ouvre avec "open...for output as 1", il y a
peu de chance qu'un malheureux caractère puisse résiduer !
mais si tu as une ame de killer...


"Daniel.j" a écrit dans le message de news:

Bonsoir
Pour que ce soit un fichier "tout neuf et tout propre"
sans caractère "résiduel".
Daniel

"" a écrit dans le message de news:
427a52dd$0$18816$
juste pour mon info, pourquoi tu Kill le fichierTXT ?


"Daniel.j" a écrit dans le message de news:

Sub a1txt()
Var = [A1]
FichierTXT = "C:ajeteraentxt.txt" 'à modifier
If Len(Dir(FichierTXT)) > 1 Then Kill FichierTXT
Open FichierTXT For Output As 1
Print #1, Var
Close
End Sub


--
Daniel
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- > > > Foire Aux Questions Microsoft Public Fr Excel
FAQ MPFE
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- > > > Adresse: http://dj.joss.free.fr/faq.htm

"lebaud" <laurent.b**pasdespamm** a écrit dans le
message



de
news: 4279fe63$0$300$
bonjour,

bon je vous explique le procédé loufoque :....

à partir d'une feuille excel copier les données (qui ne seront bien
entendu

que du texte..)
les coller sur un notepad à ouvrir
puis enregistrer le fichier notepad en fichier.txt
retour sur la feuille excel

pourquoi tout ça ;) parce que je veux générer un fichier txt avec
des




variables qui seront pre déterminées sur excel avec des seaux de
&valeurs_cellule...
merci de ne me pas préconiser un bat ou un vb pour ce type de manip
je




dois
passer par excel

merci d'avance pour cotre collaboration

Laurent B
















Avatar
Daniel.j
mais si tu as une ame de killer...


ce doit être çà ! :O)))))
@+
Daniel

"" a écrit dans le message de news:
427a8a4b$0$18804$
ben, de toutes façons, si tu l'ouvre avec "open...for output as 1", il y a
peu de chance qu'un malheureux caractère puisse résiduer !
mais si tu as une ame de killer...


"Daniel.j" a écrit dans le message de news:

Bonsoir
Pour que ce soit un fichier "tout neuf et tout propre"
sans caractère "résiduel".
Daniel

"" a écrit dans le message de news:
427a52dd$0$18816$
juste pour mon info, pourquoi tu Kill le fichierTXT ?


"Daniel.j" a écrit dans le message de
news:




Sub a1txt()
Var = [A1]
FichierTXT = "C:ajeteraentxt.txt" 'à modifier
If Len(Dir(FichierTXT)) > 1 Then Kill FichierTXT
Open FichierTXT For Output As 1
Print #1, Var
Close
End Sub


--
Daniel
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- > > > > Foire Aux Questions Microsoft Public Fr Excel
FAQ MPFE
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- > > > > Adresse: http://dj.joss.free.fr/faq.htm

"lebaud" <laurent.b**pasdespamm** a écrit dans le
message



de
news: 4279fe63$0$300$
bonjour,

bon je vous explique le procédé loufoque :....

à partir d'une feuille excel copier les données (qui ne seront
bien





entendu
que du texte..)
les coller sur un notepad à ouvrir
puis enregistrer le fichier notepad en fichier.txt
retour sur la feuille excel

pourquoi tout ça ;) parce que je veux générer un fichier txt avec
des




variables qui seront pre déterminées sur excel avec des seaux de
&valeurs_cellule...
merci de ne me pas préconiser un bat ou un vb pour ce type de
manip





je
dois
passer par excel

merci d'avance pour cotre collaboration

Laurent B