Discussion :

[Freshanet]

Bonjour à tout le monde. Je suis nouveau dans ce forum et j'espère pouvoir trouver ici mes réponses pour mon petit problème.
On me dira surement que ce sujet est déjà traité ailleurs, mais je ne trouve pas de discussion qui correspond à mon problème.

Je souhaite lire un fichier .txt, puis ensuite distribuer différentes lignes dans des onglets individuels. Ci-joint mon fichier .txt que je veux importer. J’arrive à lire mon .txt avec ces commandes la :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub get_file()
Dim Ligne, Chemin$, nomFich As String
     Chemin = ThisWorkbook.Path
    nomFich = "\test.txt"
    Open Chemin & nomFich For Input As #1
    While Not EOF(1)
        Input #1, Ligne
    Wend
    Close #1
End Sub

Par contre je ne sais pas manipuler le tableau.
Dans un premier temps je voudrai prendre toutes les lignes commençants par « CROD » et les mettre dans l’onglet « CROD », idem pour « GRID » et plusieurs mot clés s’il il le faut. La difficulté est d’imposer 8 caractères par colonnes. C’est le seul « séparateur » que j’ai. C’est ce paramètre que je ne trouve pas dans d’autres problèmes.

Dans un second temps il peut arriver que je nécessite 2 voir X lignes qui vont ensemble (voir deuxième partie du .txt). Une idée pour boucler tout ca ?

Le .txt est un exemple, le fichier de base est très lourd, c'est pour cela que je ne veut pas importer la totalité du fichier et faire le tri apres. Un tableau VBA me semble alors plus adapté.

Merci d’avance pour votre aide.