Extraire le contenu d'une cellule vers un *.txt

[Angus]

Bonjour,

Sous excel Je cherche le moyen d'extraire le contenu (chaine de caractere par ex : bonjour ) de 2 cellules (par ex A1 et B1) vers 2 fichiers textes differents (*.txt).

Cette procedure d'extraction je voudrais la lancer grace a un bouton avec un code VB derriere.

Je ne sais pas si c clair.

Merci d'avance pour vos reponse
Bonne journée.

 

[kloss]

Hello le forum

Un petit script fait l'affaire :

Sub ExportCellInTxt()
Dim fso As Object, fl As Object
Set fso = CreateObject('scripting.filesystemobject')
Set fl = fso.opentextfile('C:\\output.txt', 8, -1, -2)
fl.writeline Range('A1').Value
fl.Close
Set fso = Nothing: Set fl = Nothing
End Sub

++

 

[Angus]

Bonjour Kloss

Je debute en vb ,aujourd hui LOL.
Je viens d'essayer et c'est ok, et je te remercie pleinement tu es un chef
C'est trop cool.


par contre comme je voulais un bouton

j'ai mis ca :
Private Sub CommandButton1_Click()

et il manquait le \\ à 'Cutput.txt'

Mais tu m'as fournis toute la reponse a mes questions je t'en remercie encore

Ciao a+
Superbe forum, reponse quasi immediate , cool je reviendrais souvent héhé je debute