XL 2016 VBA - Fichier texte particulier

D

danielco

XLDnaute Accro

• 21 Décembre 2021

• #16

sylvanu à dit:

Bonjour,
C'est fou ! Je n'aurais jamais fait le rapport entre le titre du post et cette image.
D'où l'intérêt de présenter l'attendu.
En PJ un essai à tester.

Cliquez pour agrandir...

Ca fonctionne à la perfection ! merci beaucoup. Le pire est que je ne vois pas en quoi ton code diffère du mien. Si j'ai des questions, je me permettrai de revenir.

Encore merci.

Daniel

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 21 Décembre 2021

• #17

En fait,ça ne fonctionne pas si le fichier est plus important (il fait 23 Mo. La fonction "TailleFichierTxt" retourne "1". Si tu le souhaites, je mets un lien sur un fichier plus gros.

Daniel

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Décembre 2021

• #18

Bonjour,
Oui si possible.
Mais même ci joint.com est limité à 15Mo. Peut être en le zippant.

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 21 Décembre 2021

• #19

J'ai un fichier de 8 Mo qui fait le même problème :

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

Daniel

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Décembre 2021

• #20

Je pense avoir trouvé, remplacez :

VB:

Dim Fichier, T, Ligne$, L%, T1, T2, T3
par
Dim Fichier, T, Ligne$, L#, T1, T2, T3

Le nombre de ligne est limité à 32768, avec # il est "quasi" infini".
Chez moi ça marche avec un fichier de 42Mo, ce qui génère 95000 lignes.

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 21 Décembre 2021

• #21

C'est la fonction qui compte le nombre de lignes, et dans la fonction, "NbL" est bien définie "NbL#".

Daniel

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Décembre 2021

• #22

Testez cette PJ, elle marche avec votre fichier.
j'ai fait quelques modifs cosmétiques sur le raz du tableau.

 

Pièces jointes

• Txt V3.xlsm

  18.2 KB · Affichages: 1

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 21 Décembre 2021

• #23

Il doit y avoir une différence entre ta version d'Excel et la mienne. La fonction s'obstine à compter une ligne

Daniel

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Décembre 2021

• #24

Cela m'étonnerais que cela vienne de là, je suis en Win10 XL2007. Vous êtes bien sous Windows ?
Avec votre fichier, je trouve NbL=34351, et cela génère 3012 lignes.


essayez avec cette PJ, c'est votre fichier tronqué pour qu'il tienne en 1Mo.
Je trouve NbL=6635 et 2210 lignes générées.

 

Pièces jointes

• Ex3.txt

  980.7 KB · Affichages: 1

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 21 Décembre 2021

• #25

Ca fonctionne avec ton fichier, pas avec celui que je t'ai envoyé. Ou alors tu as une version 64 bits ?

Daniel

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Décembre 2021

• #26

Je suis en 64 bits. Mais est ce le problème ?
Mon fichier est limité à 1Mo.
Créez vous un fichier à 2 puis 4 ... Mo pour voir si vous avez une limite.

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 21 Décembre 2021

• #27

Clairement, il y a une limite, puisquele fichier de 1 Mo est traité correctement. Je pense que le problème vient de là.

Daniel

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Décembre 2021

• #28

Bonjour Danielco,
Deux choses :

1- En PJ j'ai mis un fichier test, le même que précédemment, mais sans déclaration de variables pour laisser le VBA décider ( au cas où ), et sans la fonction taille fichier.
Le fichier Résultat le ... résultat d'analyse de votre fichier, pour mémoire

2- Plus "amusant" :
- Sous Chrome ( ou Firefox, c'est le même résultat ) vous ouvrez votre lien Cijoint.com.
- Chrome vous l'ouvre sous format XML

- Clic droit "Enregistrez sous", il vous propose une extension XML, vous enregistrez sur le bureau.
- Sous XL vous ouvrez ce fichier, et vous trouvez un fichier XML complet !
avec en particulier :

Cela permet d'exploiter directement le XML sous XL sans passer par le VBA.
Reste à savoir comment Chrome a traduit votre fichier txt de Cijoint.com en XML, comment il a retrouvé une structure connue.

"Bizarrement", le fichier XML généré a bien la structure de votre fichier :

VB:

<Record type="HKQuantityTypeIdentifierHeartRate" sourceName="Apple Watch de daniel" sourceVersion="8.1" device="<<HKDevice: 0x281a87b10>, name:Apple Watch, manufacturer:Apple Inc., model:Watch, hardware:Watch6,7, software:8.1>" unit="count/min" creationDate="2021-12-03 20:09:11 +0100" startDate="2021-12-03 20:00:47 +0100" endDate="2021-12-03 20:00:47 +0100" value="69">
<MetadataEntry key="HKMetadataKeyHeartRateMotionContext" value="1"/>
</Record>

 

Pièces jointes

• Txt Test.xlsm

  18.3 KB · Affichages: 1
• Résultat.xlsb

  851.8 KB · Affichages: 1

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 22 Décembre 2021

• #29

Bonjour @sylvanu

Merci pour ton acharnement. Le classeur ne fonctionne pas davantage. Par contre, L'ouverture avec Firefox, ça génial ! Ca résout mon problème.

Encore merci.

Daaniel

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 22 Décembre 2021

• #30

Remarque, je me donnerai des claques. Le fichier s'ouvre directement dans Excel...

Daniel

 

Vote positif 0 Vote négatif