Discussion :

[Hankow]

Bonjour à toutes et à tous !

Vous vous en doutez mais j'ai un problème depuis cet après-midi (je n'ai presque plus de cheveux...).

Je suis en train de créer une petite moulinette pour faciliter la comparaison de plusieurs données. Mon hic c'est que je n'arrive pas à importer un fichier .txt dans son état. J'ai essayé plusieurs méthodes mais sans grand succès

J'ai dans un premier temps effectué une moulinette pour réorganiser mes données comme je le voulais. Tout fonctionnement parfaitement, sauf que j'ai bêtement importé les données "manuellement" vers Excel. Et je voudrais que ça se fasse automatiquement bien sûr.
Donc j'ai une feuille toute simple avec une TextBox et un bouton. Dans cette dernière, on indique l'emplacement du fichier.txt (ex: C:\XXX\xxx\fichier). L'utilisateur ne doit pas s'embêter à référencer l'extension du fichier.
Au moment de la clique sur le bouton, j'arrive à créer une nouvelle feuille MAIS ne sait toujours pas comment insérer les données du fichier.txt.

Si vous avez des pistes son je suis très preneur ! J'espère avoir été assez clair.

PS: j'ai déjà effectué une macro pour voir comment c'était programmé, mais impossible de le modifier pour ajouter mes variables correspondantes à la TextBox.

[Marc-L]

Bonjour,

pas très clair et comme il y a différentes méthodes pour importer un fichier texte,
le mieux est d'activer le Générateur de macros puis ouvrir le fichier : une base de code est livrée sur un plateau !
Ensuite rien qu'en consultant l'aide VBA intégrée quant aux instructions utilisées par le code ainsi généré …



__________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

[Hankow]

Merci tout d'abord de votre réponse,

J'ai déjà enregistrer une macro, mais ça fait une usine à gaze ! J'avais tout de même essayé de la modifier mais impossible selon ce que je voulais obtenir.

[patricktoulon]

Bonsoir
un exemple du texte, un exemple du résultat on comprendra peut être mieux ton besoin

[Hankow]

C'est tout simple, je sais déjà traiter toutes les données du texte quand le colle ses données dans la colonne A. Je sais juste pas trop comment m'y prendre pour l'insérer automatiquement dans la colonne A.

PJ : TEST.txt
TEST.txt

PS : Les données que j'utilise sont confidentielles, le .txt a donc été créé à l'instant par moi même. Il reprend à quelque détails près mes .txt

[patricktoulon]

me basant sur ta demande
ceci: t'ouvre le fichier texte , le coupe ligne par ligne , te met chaque ligne en colonne A
adapte ce qui est en vert a ton cas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub ouvre_fichier_texte()
    Dim File As Object, fichier As String, fs As Object, tablo As Variant, texte_entier As String
    fichier = "C:\Users\polux\Desktop\TEST.txt"
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set File = fs.OpenTextFile(fichier, 1, True)
    texte_entier = File.Readall
    tablo = Split(texte_entier, vbCrLf)
    For i = 1 To UBound(tablo)
        sheet(1).Cells(i, 1) = tablo(i)
    Next
End Sub