Discussion :

[erlerwade]

Bonjour Forum,

J'ai un fichier texte qui na pas de noms de champs.
J'aimerai bien insérer par codes mes 19 noms de champs pour ensuite faire mon programme .
Mais j'ai aucune idée de la manière dont je pourrai procéder et encore je suis nouveau en traitement de fichier texte

Merci

[Bear the french]

Bonjour erlerwade,

Peux tu nous montrer à quoi ressemble ton fichier texte ? (en prenant le soin d'ôter tout ce qui a un caractère personnel ou confidentiel)

Comment distingues tu actuellement les champs ? Par un espace ou par un signe particulier ?

Bertrand

Ps : Peux tu nous montrer à quoi ressemblerai idéalement le début de ton fichier texte avec tes noms de champs présents ?

[erlerwade]

Bonjour Bertrand,

Pour illustrer je joins a ce courriel le fichier texte .
Mon but, Bertrand , est de parcourir la Colonne 11 des que je rencontre la valeur " NICKEL" je prend toute la ligne .
Autrement dit c'est de faire un ficher qu'avec les ligne dont la 11ieme colonne à la valeur "NICKEL"

Merci

[kiki29]

Salut, de la lecture Manipulation Fichiers
et pour les fichiers textes

Un exemple pour démarrer ici qu'il faudra adapter ( extension CSV en TXT et traitement de la chaine )

Code :

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

Fichier = Application.GetOpenFilename("Fichier TXT (*.txt), *.txt"

Pour traiter la chaine, qqch comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Do While Not EOF(NumFichier)
        iCol = 1
        Line Input #NumFichier, sChaine
        Ar = Split(sChaine, Separateur)
        If Ar(10) = "NICKEL" Then
            iRow = iRow + 1
            For i = LBound(Ar) To UBound(Ar)
                ShTst.Cells(iRow, iCol) = Ar(i)
                iCol = iCol + 1
            Next i
        End If
    Loop

[erlerwade]

Bonsoir Philippe

Est ce que vous pourrez me commenter un peu le code svp?

Merci

[Bear the french]

Bonsoir erlerwade,

Quand j'importe ton fichier texte, je trouve un tableau avec 19 colonnes. La 11ème colonnes est composée que de XXXX (peut-être que tu as mis ce tableau que pour l'exemple, parce qu'il n'y a pas de "NICKEL").

Pour l'importation avec une macro :

Code :

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

1
2
3
4
5
6
7
8
Sub importationfichierdetexte()
 
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\Bertrand\Downloads\Fi mag.txt", Destination:=Range("$A$1"))
        .TextFileSemicolonDelimiter = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

En commentaire :

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\Bertrand\Downloads\Fi mag.txt", Destination:=Range("$A$1")) --> Avec cette commande, tu indiques où est la base de données, le fichier texte en l'occurrence. Il te faudra changer bien sûr le chemin d'accès (en rouge dans mon exemple).

Destination:=Range("$A$1") --> Avec cette commande, tu indiques la cellule en haut à gauche, la cellule où sera coller l'importation.

.TextFileSemicolonDelimiter = True --> Avec cette commande, tu indiques que le ";" sert de séparateur entre tes colonnes.

Es-tu déjà OK pour l'importation ?
La deuxième étape sera de choisir ta ligne et de la copier puis de la coller ailleurs.

Bertrand