Exportation de colonnes vers un fichier .txt en macro Résolu/Fermé

Question

Bonjour, 

J'aimerai savoir comment exporter grâce à une macro (que je mettrai sur un bouton) des colonnes vers un fichier txt. Je n'ai pas assez de connaissance en VBA...

Pour mieux comprendre, j'ai ceci dans mon tableau Excel :
a1, b1, c1
a2, b2, c2
a3, b3, c3

et je souhaiterai avoir dans mon fichier txt ceci :

a1
a2
a3
b1
b2
b3
c1
c2
c3


Et deuxième question (bonus). Si c'est possible par boucle, peut on mettre en condition de fin de boucle une valeur prise en variable préalablement.
En gros boucle=2
ma boucle va me sortir seulement 2 lignes:
a1
a2
b1
b2

je ne sais pas si c'est possible mais si un petit prodige en VBA passe par ici, je lui serai très reconnaissant !

Merci d'avance

Julien

Maurice · Answer

Bonjour
voila une macro export TXT

Sub CreatColonne()
Col = 10
Lig = 1
   Columns(Col).ClearContents
   For C = 1 To 3
      For L = 1 To 3
         Cells(Lig, Col).Value = Cells(L, C).Value
         Lig = Lig + 1
      Next
   Next
   For C = 1 To 2
      For L = 1 To 2
         Cells(Lig, Col).Value = Cells(L, C).Value
         Lig = Lig + 1
      Next
   Next
  ExportTxt Col
End Sub

Sub ExportTxt(Col)
Nom = "Test"
Ext = ".txt"
Fichier = Nom & Ext
Chemin = ActiveWorkbook.Path & Application.PathSeparator
CheminFiche = Chemin & Fichier
Nlig = Cells(Rows.Count, Col).End(xlUp).Row
   Open CheminFiche For Output As #1
      For L = 1 To Nlig
         ligne = ""
         ligne = Cells(L, Col).Value
         Print #1, ligne
      Next
   Close
End Sub

A+
Maurice

Exportation de colonnes vers un fichier .txt en macro

1 réponse

Discussions similaires