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

[Marc-L]

Via le Générateur de macros … Importation à partir de la cellule A1 :

Code :

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

1
2
3
4
5
6
7
Sub Macro1()
    With Feuil1.QueryTables.Add("TEXT;D:\Tests4Noob\Test .txt", Feuil1.[A1])
        .RefreshStyle = xlOverwriteCells
        .Refresh False
        .Delete
    End With
End Sub

__________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[patricktoulon]

salut MarcL

heu..comment dire heu...

l'erreur est sur la ligne "WITH"


je viens de le faire avec l'enregistreur et ca donne ca

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
17
18
19
20
21
22
23
24
25
26
27
With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Users\polux\Desktop\TEST.txt", Destination:=Range("$A$1"))
        .Name = "TEST"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

tu n'aurait pas trop simplifier le code résultant

[Hankow]

Merci beaucoup Patricktoulon ! Je regarde tout ça lundi.

J'avais exactement les mêmes lignes de code que toi en exécutant une macro (horrible)...

Je vous tiens au courant donc lundi dans la journée et mettrez mon code avec mes adaptations à la vue de tous.

[SfJ5Rpw8]

...
tu n'aurait pas trop simplifier le code résultant

Bonsoir,

non le code de Marc est fonctionnel .. tu as juste mal copié la chaîne de Connection pour le Query.add...

[Marc-L]

Oui Patrick, comme tu peux le constater dans mon post comme dans ton code généré, il y a la chaîne TEXT; …

[patricktoulon]

Bonsoir bill et Marc
non ca (code de MarcL) ne marche pas

Code :

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

With Feuil1.QueryTables.Add("TEXT;

ceci oui:

Code :

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

With ActiveSheet.QueryTables.Add(Connection:="TEXT;......

en tout cas chez moi

[Marc-L]

Aucun souci de mon côté avec les versions 2003 & 2007 …

J'ai regardé dans la doc de la version 2013 : rien n'a pourtant changé !

[clementmarcotte]

Bonjour,

Pour reprendre un peu ce que dit Patrick, c'est une des choses que j'ai remarquées en "sautant tout d'un coup" d'Office 2000 à Office 2010. Mon Office 2010 est très capricieux en ce qui concerne les paramètres. Je n'ai pas suffisamment testé pour l'affirmer, mais actuellement j'ai la forte impression que VB2010 (et peut-être VBA 2013) a deux "obligations" en regard des paramètres des fonctions.

1) Quand on pilote pas automation, il fau(drai)t utiliser les paramètres entre parenthèses comme au don vieux temps, dans les "instructions de pilotage" de l'autre application.

2) Quand on ne pilote pas par automation, il fau(drai)t utiliser les paramètres nommés.

À moins que ce ne soit lié à Option Explicit, ou pas. (Mais là, je n'ai pas (encore) testé. Cela vient tout juste de me passer par la tête,)

[Hankow]

Via le Générateur de macros … Importation à partir de la cellule A1 :

Code :

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

1
2
3
4
5
6
7
Sub Macro1()
    With Feuil1.QueryTables.Add("TEXT;D:\Tests4Noob\Test .txt", Feuil1.[A1])
        .RefreshStyle = xlOverwriteCells
        .Refresh False
        .Delete
    End With
End Sub

__________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

Je viens de le tester, il ne marche pas avec mon Excel 2000.
Voici l'erreur :


EDIT-1:

J'ai essayé avec ton code Patricktoulon, j'obtiens aussi une erreur que voici :

[SfJ5Rpw8]

Bonjour,

pour :

Code :

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

Feuil1.QueryTables.Add ...

pourquoi remplacer Feuil1 par Feuil2 ( tu n'as pas d'objet Feuil2 dan ton arborescence à gauche du code VBA)

remplace le par :

Code :

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

Feuil3.QueryTables.Add

ou

Code :

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

worksheets("Feuil2").QueryTables.Add

[Hankow]

Bonjour bbil !

Je viens de faire les modifications, et ça marche impec' ! =D
Plus qu'à l'adapter exactement à mon code. Je vous tiens informé dans la journée.

[Marc-L]

Et ne pas oublier alors :



__________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Hankow]

Ce n'est pas encore dit... Je suis maudit je crois. J'ai à peine touché au code, qu'il me refait une erreur : "1004"

=> Impossible de trouver le fichier texte pour l'actualisation de cette plage de données externes. Assurez vous que le texte n'a été ni déplacé ni renommé et réessayez.

J'ai bien vérifié et j'ai rien touché... Je ne comprends plus rien

[Marc-L]

Activer le Générateur de macros puis effectuer manuellement l'importation :

en comparant le code ainsi généré, tu verras bien où se trouve ta boulette …



__________________________________________________________________________________________________
Heureux l'étudiant qui, comme la rivière, suis son cours sans quitter son lit …

Copier / Coller n'est pas coder !