Bonjour au forum,
Je viens ici car je suis confronté à une diffculté d’agencement de donnée dans un fichier texte (format ANSI)
Exemple du contenu fichier txt:
Date/region =11/04/2023 Paris
Nom. = dupont
Environnement severe. =fort
[habitation][propriétaire/locataire][bilan][dpe][statut]
Resultat . . . Ok
Maison Propriétaire E ok
Les données sont décalées visuellement dans le fichier *.txt
Je voudrais que chaque «*bloc*» de lignes du txt soient remplis dans chaque colonne du ficher excel fermé
C’est à dire
A1 B1 C1
Date/région = 11/04/2023
A2 B2 C2
Nom = Dupont
A3 B3 C3
Environnement severe. = Fort
A4 B4 C4
A5 B5 C5. D5 E5
[habitation] [proprietaire/locataire]. [bilan]. [dpe] [statut]
A6 B6 C6 D6 E6
Resultat . . . Ok
J’ai fait des conditions pour les 3 premieres lignes ou il y a un egale c’est à dire avec un truc du genre
En fait je ne peux pas faire de condition pour chaque cas 😞
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Dim tbtxt() as string Dim strligne as string Dim Compteur as integer jouvre le fichier txt avec textstream et tant que je narrive pas à la fin du fichier continue par Strligne=.readline If compteur<3 Tbtxt(0) = left(strligne,mid(strligne,"=",1)-1) Tbtxt(1)= "=" Tbtxt(2)= right(strligne,len(strligne)-mid(strligne,*"=",1)) Compteur=compteur+1 End if If strligne like*"*" & "[" & "*" then «* filtre le premier bloc avec un left puis le second par mid etc Tbtxt(3) = left End if
J’ai pensé sinon à dupliquer mon fichier txt en prenant que la,partie qui m’intéresse
Puis faire un copier coller du txt vers la feuille du excel fermé mais comment fait on ?
Sur le site de jacques gontier il fait .range(«*a1:a5000*»).value=tableau sauf que dans mon cas au vu de la structure des données ça ne marche pas 😕
Si vous pouviez m’aider ça serait gentil
Merci
Partager