Bonjour,

Je suis à la recherche d'une solution en VBA en vue d'ouvrir un fichier .txt puis d'en structurer ses données. Aussi, je voudrais voir les colonnes et leurs données associées. 

Le fichier .txt de départ est illisible. 

Il y aurait 2 solutions : 

ou j'enregistre une macro afin d'obtenir le bloc de codes VBA pour ouvrir et structurer le fichier mais cela n'a pas fonctionné car des erreurs apparaissent ou j'utilise  Workbooks.OpenText Filename mais je ne sais pas comment faire pour paramétrer cette fonction-ci. 

Manuellement, je sais comment faire tout cela.

Merci à vous. 

-
Edité par LHH_120 28 juillet 2023 à 9:41:53

un fichier txt c'est un fichier avec du texte donc potentiellement n'importe quoi sans forcément de structure propre.

Si le fichier n'est pas "humainement lisible" dans le bloc notes, alors c'est probablement un fichier binaire.

Ton fichier vient d'où ? il a été créé par quel logiciel ? 

Si il n'est pas lisible, comment sais-tu qu'il y a des colonnes ?

Tu sais rendre lisible ton fichier texte manuellement ? si oui, comment? et dans ce cas, faire la même chose en vba.

Peut-être nous montrer quelques lignes de ce fichier ?

Bonjour,

Navré pour un tel retard. 

J'ai finis par trouver à force de tâtonnement.  

Au départ, je dispose d'un fichier non structuré dont les valeurs sont séparées par des virgules. 

J'ignore comment le fichier a été crée, il est émis périodiquement par une tierce personne. Je sais que ce fichier contient des colonnes selon les dires d'une de mes collègues. Ci-dessous vous voyez une partie du code. J'ordonne à EXCEL d'insérer les données dans un fichier de sortie EXCEL .xlsx. En dessous il est simplement question de lire le fichier d'entrée et d'écrire les données d'une façon qui correspond au bon vouloir de l'utilisateur. 

Voici les paramètres : 

    Workbooks.OpenText Filename:=cheminimp _

                       , Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _

                       :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:= _

                       False, Comma:=True, Space:=False, Other:=False, _

                       TrailingMinusNumbers:=True

J'ai indiqué à la fonction le paramètre "Comma:=True". Résultat, dans un fichier EXCEL .xlsx, j'obtiens les données qui se retrouvent rangées de manière lisible. 

Etudiant31.

-
Edité par LHH_120 14 septembre 2023 à 17:22:19

Bonjour

Ce fichier est probablement un fichier CSV (comma separated values) pour valeurs séparées par une virgule

Bonjour,

Oui. C'est exact, ce sont des fichiers .csv .  Désolé de revenir tard. 

Merci de votre aide chers développeurs. 

-
Edité par LHH_120 30 octobre 2023 à 9:44:23