VBA - Import fichier texte

Question

Je suis actuellement un exercice VBA pour importer des fichiers textes. Je rencontre un soucis quant à la détection des lignes. En effet, après avoir repris plusieurs fois la procédure indiqué je m'aperçois que chaque fichier texte ilmporté dans la feuille "Import" est importé sur une ligne entière dans celle-ci. Dans le code on se sert de la position du ";" déterminée par la fonction InStr et dès que celle-ci est égale à 0 cela doit signifier que l'on se trouve à la fin de la ligne. Mais comme on peut le voir dans le fichier texte si les points-virgules il y en aura de détecté jusqu'à la fin de la variable texte. Visuellement il n'y en a plus sur la ligne mais si je demande de regarder ce que j'ai chargé dans la variable texte, le seul moment où InStr va indique "0" comme position pour le ";" c'est à la fin du fichier.. Ce que je ne comprends pas c'est que dans la video de la formation tout fonctionne correctement une fois qu'on teste le code via F5. Et j'ai recopié le code à l'identique ligne pour ligne .... Je me dis que j'ai du faire une erreur ou un oubli sur un détail quelque part ... mais je vois pas du tout où .... Je vous joins le fichier avec un fichier texte utillisé pour l'import j'y ai passé 3 4 heures hier et pareil ce matin, je ne vois vraiment pas ......

h2so4 · Accepted Answer

Je n'ai pas de problème avec ce code (sans déclaration de variables). Si une variable n'est pas déclarée elle est par défaut de type variant, et VBA essaie de déterminer un type en fonction du contenu au moment de l'exécution de l'instruction qui y fait référence. Private Sub lecture(fichier As String) Open fichier For Input As #1 Do While Not EOF(1) Line Input #1, lignefichier tabtexte = Split(lignefichier, vbLf) For i = LBound(tabtexte) To UBound(tabtexte) texte = tabtexte(i) depart = 1: position = 1 Do While (position &lt;&gt; 0) position = InStr(depart, texte, ";", 1) If position = 0 Then tampon = Mid(texte, depart) Sheets("Import").Cells(ligne_enCours, colonne_enCours).Value = tampon Exit Do Else tampon = Mid(texte, depart, position - depart) End If Sheets("Import").Cells(ligne_enCours, colonne_enCours).Value = tampon depart = position + 1 colonne_enCours = colonne_enCours + 1 Loop colonne_enCours = colonne_debut ligne_enCours = ligne_enCours + 1 Next i Loop Close #1 End Sub...

h2so4 · Answer

Line input lit une ligne qui est terminée par les caractères CR et LF (carriage return et line feed) (format windows) ton fichier est au format unix et chaque ligne est terminée par LF uniquement (format unix). VBA ne détecte pas ce caractère unique comme une fin de ligne. il faut soit adapter le fichier, soit adapter ta macro...

fanfan38 · Answer

Comment tu lances la macro lecture? ci joint ma solution A+ François...

h2so4 · Answer

Pour modifier le/les caractères de fin de ligne, tu peux faire cela via Notepad++, il y a une option de gestion de la fin de ligne. tu peux aussi utiliser les possibilités offertes en standard par excel (import fichier texte, powerquery, ...) sinon une proposition de modification de ton code pour gérer des fichiers avec CRLF ou LF Private Sub lecture(fichier As String) Dim depart As Integer, position As Integer Dim texte As String, tampon As String, lignefichier as String, tabtexte Open fichier For Input As #1 Do While Not EOF(1) Line Input #1, lignefichier tabtexte = Split(lignefichier, vbLf) For i = LBound(tabtexte) To UBound(tabtexte) texte = tabtexte(i) depart = 1: position = 1 Do While (position &lt;&gt; 0) position = InStr(depart, texte, ";", 1) If position = 0 Then tampon = Mid(texte, depart) Sheets("Import").Cells(ligne_enCours, colonne_enCours).Value = tampon Exit Do Else tampon = Mid(texte, depart, position - depart) End If Sheets("Import").Cells(ligne_enCours, colonne_enCours).Value = tampon depart = position + 1 colonne_enCours = colonne_enCours + 1 Loop colonne_enCours = colonne_debut ligne_enCours = ligne_enCours + 1 Next i Loop Close #1 End Sub...

fanfan38 · Answer

Le problème c'est 1 la macro lecture n'était pas lu 2 ligne_encours et colonne_encours ne sont pas affecté A+ François...

h2so4 · Answer

@fanfan38, sorry je n'ai pas vu ton message, je répondais à SHTOUR...

h2so4 · Answer

Variables pas définies : une paresse de ma part. J'ai adapté le code pour ajouter leur définition. Il n'y a pas de message d'erreur si tu n'as indiqué qu'il fallait en générer pour des variables non définies ( option explicit à mettre en début de module). Variable différente : ton code de découpe de ligne fonctionne avec la variable texte. Je ne voulais pas toucher à cette partie du code. j'ai ajouté une nouvelle variable pour lire une ligne du fichier texte (qui peut selon la nature du fichier être un fichier dont les lignes se terminent par CRLF ou LF tout cours. si c'est LF, il faut découper la ligne lue en autant de lignes qu'il y a de LF (c'est le but de l'instruction split, qui charge ces lignes dans un tableau VBA) on exploite ensuite chacune des lignes de ce tableau VBA en les mettant dans ta variable texte et en déroulant la suite de ton code si c'est CRLF, la ligne lue est une ligne qui ne contiendra pas de LF. Le tableau VBA contiendra une seule ligne et sera exploité de la même manière qu'un tableau contenant plusieurs lignes...