suit ce lien : http://www.excelabo.net/excel/sortirimport.php#exporttext
isabelle
Bonjour,
J'ai une feuille ("Donnees") dont la deuxième colonne contient des valeurs. Comment enregistrer ces valeurs dans un fichier txt ?
Merci de vos réponses
Jacques
JB
Bonjour,
Les nombres sont séparés par ;
Sub ExportTxtCol() repertoire = ThisWorkbook.Path Open repertoire & "x.txt" For Output As #1 For Each c In Range("B1:B" & [B65000].End(xlUp).Row) Print #1, c & ";"; Next c Close #1 End Sub
Chaque nombre est un enregistrement:
Sub ExportTxtCol2() repertoire = ThisWorkbook.Path Open repertoire & "x.txt" For Output As #1 For Each c In Range("B1:B" & [B65000].End(xlUp).Row) Print #1, c Next c Close #1 End Sub
J'ai une feuille ("Donnees") dont la deuxième colonne contient des valeu rs. Comment enregistrer ces valeurs dans un fichier txt ?
Merci de vos réponses
Jacques
Bonjour,
Les nombres sont séparés par ;
Sub ExportTxtCol()
repertoire = ThisWorkbook.Path
Open repertoire & "x.txt" For Output As #1
For Each c In Range("B1:B" & [B65000].End(xlUp).Row)
Print #1, c & ";";
Next c
Close #1
End Sub
Chaque nombre est un enregistrement:
Sub ExportTxtCol2()
repertoire = ThisWorkbook.Path
Open repertoire & "x.txt" For Output As #1
For Each c In Range("B1:B" & [B65000].End(xlUp).Row)
Print #1, c
Next c
Close #1
End Sub
Sub ExportTxtCol() repertoire = ThisWorkbook.Path Open repertoire & "x.txt" For Output As #1 For Each c In Range("B1:B" & [B65000].End(xlUp).Row) Print #1, c & ";"; Next c Close #1 End Sub
Chaque nombre est un enregistrement:
Sub ExportTxtCol2() repertoire = ThisWorkbook.Path Open repertoire & "x.txt" For Output As #1 For Each c In Range("B1:B" & [B65000].End(xlUp).Row) Print #1, c Next c Close #1 End Sub
suit ce lien : http://www.excelabo.net/excel/sortirimport.php#exporttext
isabelle
Bonjour,
J'ai une feuille ("Donnees") dont la deuxième colonne contient des valeurs. Comment enregistrer ces valeurs dans un fichier txt ?
Merci de vos réponses
Jacques
Jacques
Merci JB
Jacques
"JB" a écrit dans le message de news: Bonjour,
Les nombres sont séparés par ;
Sub ExportTxtCol() repertoire = ThisWorkbook.Path Open repertoire & "x.txt" For Output As #1 For Each c In Range("B1:B" & [B65000].End(xlUp).Row) Print #1, c & ";"; Next c Close #1 End Sub
Chaque nombre est un enregistrement:
Sub ExportTxtCol2() repertoire = ThisWorkbook.Path Open repertoire & "x.txt" For Output As #1 For Each c In Range("B1:B" & [B65000].End(xlUp).Row) Print #1, c Next c Close #1 End Sub
J'ai une feuille ("Donnees") dont la deuxième colonne contient des valeurs. Comment enregistrer ces valeurs dans un fichier txt ?
Merci de vos réponses
Jacques
Merci JB
Jacques
"JB" <boisgontier@hotmail.com> a écrit dans le message de
news:bfa7d259-239d-4783-a488-149784342900@s13g2000prd.googlegroups.com...
Bonjour,
Les nombres sont séparés par ;
Sub ExportTxtCol()
repertoire = ThisWorkbook.Path
Open repertoire & "x.txt" For Output As #1
For Each c In Range("B1:B" & [B65000].End(xlUp).Row)
Print #1, c & ";";
Next c
Close #1
End Sub
Chaque nombre est un enregistrement:
Sub ExportTxtCol2()
repertoire = ThisWorkbook.Path
Open repertoire & "x.txt" For Output As #1
For Each c In Range("B1:B" & [B65000].End(xlUp).Row)
Print #1, c
Next c
Close #1
End Sub
Sub ExportTxtCol() repertoire = ThisWorkbook.Path Open repertoire & "x.txt" For Output As #1 For Each c In Range("B1:B" & [B65000].End(xlUp).Row) Print #1, c & ";"; Next c Close #1 End Sub
Chaque nombre est un enregistrement:
Sub ExportTxtCol2() repertoire = ThisWorkbook.Path Open repertoire & "x.txt" For Output As #1 For Each c In Range("B1:B" & [B65000].End(xlUp).Row) Print #1, c Next c Close #1 End Sub