ecrire une selection ds un .txt

Question

bonjour,

Cette fois ci je d&#233;sirerai &#233;crire une selection, range ("A1:I9") ds un fichier .txt,

mais ac une petite condition qui est de sauter une ligne &#224; chaque valeur de cellules:

voil&#224; ce que donnerait le fichier .txt:

12 (= A1)
23 (= B1)
45 (= C1)
.
.
.
64 (= A2)
32 (= B2)
Etc...

cs_jperre · Answer

C'est très simple
Sub WriteToTextFile(sTextFile As String)
   Dim lFile As Long,sLine As String
   lFile=FreeFile
   Open sTextFile For Output As #lFile 'Pour créer un nouveau fichier
   ou
   Open sTextFile For Append As #lFile 'Pour ajouter les données à la fin d'un fichier existant.
   sLine="12(=A1)"
   Write #lFile, sLine
   sLine="23(=B1)"
   Write #lFile, sLine
   sLine="45(=C1)"
   Write #lFile, sLine
   ...
   ...
   ...
   sLine="64(=A2)"
   Write #lFile, sLine
   sLine="32(=B2)"
   Write #lFile, sLine
   ...
   Close #lFile
End Sub
Bien sur, il faut trouver quelque chose de plus élégant pour affecter les valeurs des chaînes de chaque ligne, mais l'écriture dans le fichier texte, c'est comme celà que ça marche!!!...

cs_Achi · Answer

salut jperre!!

Dis moi on ne peut pas du tt appliquer de boucle, car avec ta m&#233;thode je dois inscrire les 81 valeurs de ma selection..

Achi!!

cs_jperre · Answer

Bien sur que si, il suffit de la paramètrer, du type
Dim c As Long, r As Long
Open sTextFile For Output As #lFile 'Pour créer un nouveau fichier
For c=1 to 10 'S'il y a 10 colonnes
    For r=2 To 50 'S'il y a 50 lignes
        ActiveSheet.Cells(r,c).Select
        sLine=CStr(ActiveCell.Value)
        Print #lFile, sLine
    Next r
Next c
Close #lFile
Il faut noter, que j'ai remplacé l'instruction Write par Print Car Write place la chaîne entre des doubles côtes alors que Print ne copie que la chaîne.
Voilà, c'est un exemple, je supposais, qu'une personne, qui demande des renseignements sur VBA Excel savait lire les données dans les cellules d'un tableau??...

cs_Achi · Answer

Jperre,

bon j'ai essay&#233; ton code mais il me mets un msg d'erreur pour l'ouverture du fichier
"Nom ou numero de fichier incorrect"

en fait g modifi&#233; le code car je ne veux pa cr&#233;er un nouv fichier .txt mais utiliser un existant... voil&#224; mon code!!

Sub txtsolution()
   Dim lFile As Long, sLine As String
   
 Dim c As Long, r As Long


Open "C:\FichiersText\Solution.txt" For Output As #1
For c = 1 To 9 
    For r = 2 To 9 
        ActiveSheet.Cells(r, c).Select
        sLine = CStr(ActiveCell.Value)
        Print #l, sLine
    Next r
Next c
Close #1
End Sub

Y a t'il qq'chose de choquant??

je d&#233;bute ds VBA!! soyez indulgent merci!!

Achi....

cs_Achi · Answer

C bon Jperre,

ca fonctionne dsl pr le d&#233;rangement!!

Merci encore

Achii!!

Ecrire une selection ds un .txt

5 réponses

Discussions similaires