copier de excel vers txt

Question

Bonjour,

Je tente depuis des jours de monter une macro sans succès

J'aurais aimé pouvoir copier le contenu d'un tableau excel (qui ne contient qu'une colonne), dont je ne connais pas la limite "basse", pour ensuite coller le tout dans fichier texte type csv

je ne sais pas si il vaut mieux sélectionner cellule par cellule en parcourant la colonne et coller au fur et a mesure dans le fichier texte ou s'il on peut coller la sélection complète.

si qqun a un un exemple de code
merci beaucoup :)

marion8316 · Answer

Bonsoir,

Ci-dessous procédure très simple.

Public Sub Ecriture()

Open "C:\Excel\Fecriture.txt" For Output As #1

Dim rwindex As Integer, colindex As Integer
Dim Zvaleur As String

rwindex = 1
colindex = 1

'
Do While Application.Worksheets("Feuil1").Cells(rwindex, colindex).Value <> ""

   Zvaleur = Application.Worksheets("Feuil1").Cells(rwindex, colindex).Value

   Print #1, Zvaleur
   
   rwindex = rwindex + 1

Loop

Close #1

MsgBox " Nombre d'enregistrement : " & rwindex - 1

End Sub

Copier de excel vers txt

1 réponse

Votre réponse

Discussions similaires