Exporter le contenu d'une colonne dans un fichier txt [Résolu]

Signaler
Messages postés
11
Date d'inscription
samedi 12 juin 2021
Statut
Membre
Dernière intervention
29 juin 2021
-
Messages postés
11
Date d'inscription
samedi 12 juin 2021
Statut
Membre
Dernière intervention
29 juin 2021
-
Bonjour,

Dans le tableau ci-joint, j'aimerais que lorsque l'utilisateur clique sur le bouton "Export", une macro exporte les cellules non vides de la colonne A dans un fichier "Fruits.txt".
La colonne A comporte ici 22 lignes, mais le but est que la macro fonctionne avec une colonne A ayant un nombre de lignes variable (qu'on ne connaît pas à l'avance).

Je ne sais pas écrire un "code" permettant de réaliser cela, alors j'en appelle à vos compétences. :-)

Merci d'avance.

https://www.cjoint.com/c/KFBl6ktUMfO

2 réponses

Messages postés
11
Date d'inscription
samedi 12 juin 2021
Statut
Membre
Dernière intervention
29 juin 2021

Après moult recherches sur le web, je suis arrivé à "pondre" une macro qui fonctionne parfaitement... mais avec Excel ! L'ennui est que les utilisateurs du fichier ne disposeront que de LibreOffice Calc. Et je suis incapable de transposer cette macro dans Calc :

Sub Export()

Dim i As Long, derLig As Long, tabl

derLig = Range("A" & Cells.Rows.Count).End(xlUp).Row
tabl = Range("A1:A" & derLig)
Open "D:\Fruits.txt" For Output As #1
For i = 1 To UBound(tabl, 1)
If tabl(i, 1) <> "" Then
Print #1, tabl(i, 1)
End If
Next
Close #1

End Sub



Quelqu'un sait-il comment obtenir un résultat équivalent avec Calc ?


Une parenthèse : le tableau donné en exemple peut sembler vide d'intérêt, mais c'est parce que je ne peux pas mettre en ligne le "vrai" tableau. La colonne A du vrai tableau ne contient pas une liste de fruits, mais des données beaucoup plus indigestes, rapatriées d'autres feuilles, au moyen de formules tout aussi indigestes ! Quel que soit le contenu de la colonne, le principe reste le même : exporter les données sans les cellules vides.
Messages postés
2511
Date d'inscription
vendredi 25 juillet 2014
Statut
Membre
Dernière intervention
11 juillet 2021
1 152
Bonjour
voir là les pros des macro libre et open office
Messages postés
11
Date d'inscription
samedi 12 juin 2021
Statut
Membre
Dernière intervention
29 juin 2021

Merci à toi, yclik, âme généreuse qui vient toujours à mon secours ! :-)

Je vais suivre ton conseil et aller voir là-bas.