XL 2010 Importation de fichier texte

[netparty]

Bonjour à tous

Je me permet de vous demander votre aide,

Voila je vous explique en deux mots, je dessine des plans sur autocad et pour chaque étages dessiné j’extrais des données de mon plan pour avoir un listing des quantités du matériels.

Donc pour chaque étages j'ai un fichier TXT qui reprend tous cela.

Je dispose d'un fichier excel pour faire une récap de tous cela mais j'aimerai l'automatisé.

Dans la première colonne je reprend la liste de tout le matériel et je voudrai a l'aide d'un bouton pouvoir aller chercher mon fichier TXT (étage 1) et l'importer dans la colonne étage 1 et un deuxième bouton pour l'aller chercher mon fichier TXT (étage 2) et l'importer dans la colonne étage 2.
Mais ce qui est importer doit etre trié par rapport à ma liste matériel de la colone 1.

Je ne sais pas si cela est possible à faire.

Je vous joint un modèle TXT ainsi que mon fichier excel.

Je vous en remercie

Et passer une excellente journée.

 

[sylvanu]

Bonjour NetParty,
XL peut lire un fichier texte sans soucis :

Sub ReadTxtFile()   ' Lit un fichier texte ligne par ligne
    On Error GoTo Erreur
    Dim Chaine As String, Fichier As String, UneLigne As String, i As Integer, f As Integer
    Fichier = ActiveWorkbook.Path & "\" & "FichierTexte.txt"
    f = FreeFile
    Open Fichier For Input As #f
    i = 0
    While Not EOF(f)                ' EOF : End Of File
      i = i + 1
      Line Input #f, UneLigne
      LectureFichier = UneLigne     ' La ligne lue est dans LectureFichier
    Wend
    Close #f
    Exit Sub
Erreur:
    MsgBox "Le fichier de sortie est inaccessible"
End Sub

Par contre ensuite il faut mettre du code pour tout réagencer. Et vu vos fichiers texte, il y a du boulot.
Mais je pense que vous savez ce que vous chercher donc ça ne devrait pas être aussi compliqué si vous savez repérer vos données.
Par exemple à chaque lecture de ligne vous regardez si le tag est présent, par ex 7_Alimentation 4P sera présent à la ligne 254.

 

[netparty]

bonjour sylvanu

Je vais essayer cela.

Bonne soirée

 

[sylvanu]

Bonsoir,
J'ai regardé les fichiers texte. J'espère que vous savez ce que vous cherchez.
Par ex des "4_Eclairage TYPE xxx" j'ai ai trouvé plein de sorte mais aucun référencer dans votre fichier XL.
En plus on peut trouver plusieurs "4_Eclairage TYPE xxx" sur une même ligne !
Au fait le séparateur est toujours la "," et le type toujours identifier par ' . Ca va simplifier les recherches.
Bonne soirée.