Exporter le contenu d'une colonne dans un fichier txt
Résolu/Fermé
LA_440
Messages postés
11
Date d'inscription
samedi 12 juin 2021
Statut
Membre
Dernière intervention
29 juin 2021
-
27 juin 2021 à 14:10
LA_440 Messages postés 11 Date d'inscription samedi 12 juin 2021 Statut Membre Dernière intervention 29 juin 2021 - 29 juin 2021 à 18:36
LA_440 Messages postés 11 Date d'inscription samedi 12 juin 2021 Statut Membre Dernière intervention 29 juin 2021 - 29 juin 2021 à 18:36
A voir également:
- Exporter le contenu d'une colonne dans un fichier txt
- Fichier rar - Guide
- Fichier host - Guide
- Déplacer une colonne excel - Guide
- Fichier iso - Guide
- Comment réduire la taille d'un fichier - Guide
2 réponses
LA_440
Messages postés
11
Date d'inscription
samedi 12 juin 2021
Statut
Membre
Dernière intervention
29 juin 2021
28 juin 2021 à 22:56
28 juin 2021 à 22:56
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.
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.
LA_440
Messages postés
11
Date d'inscription
samedi 12 juin 2021
Statut
Membre
Dernière intervention
29 juin 2021
29 juin 2021 à 18:36
29 juin 2021 à 18:36
Merci à toi, yclik, âme généreuse qui vient toujours à mon secours ! :-)
Je vais suivre ton conseil et aller voir là-bas.
Je vais suivre ton conseil et aller voir là-bas.
29 juin 2021 à 09:40
voir là les pros des macro libre et open office