Copier de excel vers txt

Signaler
Messages postés
1
Date d'inscription
mercredi 8 décembre 2010
Statut
Membre
Dernière intervention
8 décembre 2010
-
Messages postés
75
Date d'inscription
mercredi 17 août 2011
Statut
Membre
Dernière intervention
27 septembre 2011
-
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 :)

1 réponse

Messages postés
75
Date d'inscription
mercredi 17 août 2011
Statut
Membre
Dernière intervention
27 septembre 2011
2
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