Lire un fichier texte et récupérer son contenu dans excel [Résolu]
olivier857
- Messages postés
- 188
- Date d'inscription
- mardi 21 décembre 2004
- Statut
- Membre
- Dernière intervention
- 10 avril 2008
- Messages postés
- 6789
- Date d'inscription
- vendredi 16 décembre 2005
- Statut
- Membre
- Dernière intervention
- 21 décembre 2011
A voir également:
- Vba lire fichier texte avec séparateur
- Vba excel lire fichier texte ligne par ligne - Meilleures réponses
- Vba lire fichier texte ligne par ligne - Meilleures réponses
- VBA Excel : Lecture, Modification et Enregistrement d'un fichier txt - Conseils pratiques - Visual Basic / VB.NET
- [Déplacé VB6 --> VBA] Travailler avec un fichier *.txt sans ouvrir Excel - vba e ✓ - Forum - Visual Basic 6
- Lire fichiers texte avec séparateur - Forum - Visual Basic
- Lire fichier .txt avec séparateur VB6 ✓ - Forum - Visual Basic
- Fin de ligne fichier texte format windows ou unix - Forum - Visual Basic
18 réponses
Meilleure réponse
- Messages postés
- 14008
- Date d'inscription
- samedi 29 décembre 2001
- Statut
- Modérateur
- Dernière intervention
- 28 août 2015
Salut
Bah les fichiers de données séparées par des marqueurs, c'est une structure CSV.
Par contre, tu ne pourras lui dire de séparer un coup avec un ; et en même temps aussi avec //1//.
Il faudra le faire en deux étapes :
- Tu lis/charges le fichier avec séparateur ";"
- Tu analyses ensuite chaque cellule à la recherche des //1// et tu isoles les données internes.
Pour cette deuxième étape, il faudra passer par une macro et faire une boucle qui devra chercher :
Dans quelle cellule apparait le 1er //1//
Dans quelle cellule apparait le //1// suivant et concaténer les données situées entre deux.
et ainsi de suite.
Va falloir utiliser les fonctions de recherche de texte VBA (langage macro) ou celle de VB (instr, left, right, mid ...)
Ou ... faire l'inverse :
- Charger le fichier avec séparateur //1//
- puis découper les données de chaque cellule avec le ";"
Ce sera peut être plus simple à faire ... bof
Beau casse tête !
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Bah les fichiers de données séparées par des marqueurs, c'est une structure CSV.
Par contre, tu ne pourras lui dire de séparer un coup avec un ; et en même temps aussi avec //1//.
Il faudra le faire en deux étapes :
- Tu lis/charges le fichier avec séparateur ";"
- Tu analyses ensuite chaque cellule à la recherche des //1// et tu isoles les données internes.
Pour cette deuxième étape, il faudra passer par une macro et faire une boucle qui devra chercher :
Dans quelle cellule apparait le 1er //1//
Dans quelle cellule apparait le //1// suivant et concaténer les données situées entre deux.
et ainsi de suite.
Va falloir utiliser les fonctions de recherche de texte VBA (langage macro) ou celle de VB (instr, left, right, mid ...)
Ou ... faire l'inverse :
- Charger le fichier avec séparateur //1//
- puis découper les données de chaque cellule avec le ";"
Ce sera peut être plus simple à faire ... bof
Beau casse tête !
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Champion du monde de boule de cristal - 2005
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
205 internautes nous ont dit merci ce mois-ci
- Messages postés
- 260
- Date d'inscription
- mardi 25 novembre 2003
- Statut
- Membre
- Dernière intervention
- 6 novembre 2009
Salut,
Si on suis la logique du truc il faut d'abord eclater les lignes en fonction des "//1//" , puis parser les ";" avec split
Pour pas que tu te fatigues trop :
Sub TesterImport()
ImporterFichierDeDaube "c:\Fichiertexte.txt"
End Sub
Sub ImporterFichierDeDaube(NomDuFichier As String)
Dim ligne As String, Position As Integer, data As String
Dim fichiertempo As String
'Ouverture du fichier à lire
On Error GoTo FermezTout
Open NomDuFichier For Input As #1
'Ouverture du fichier temporaire
fichiertempo = "c:\FichierTemp.txt"
Open fichiertempo For Output As #2
While Not EOF(1)
Input #1, ligne
Position = 1
Do
'Debug.Print ligne
Position = 1
Position = InStr(Position, ligne, "//1//")
Debug.Print Position
If Position > 0 Then
'extraction de la ligne à séparateurs
data = Left(ligne, Position - 1)
Debug.Print data
'rognage de ligne pour ne garder ce qui reste à "découper"
ligne = Right(ligne, Len(ligne) - Position - Len("//1//") + 1)
Debug.Print "ligne= " + ligne
'Ecriture dans le fichier temportaire
Print #2, data
End If
Loop While Len(ligne) > 0 And Position > 0
If ligne <> "" Then Print #2, ligne
Wend
Close #2
Close #1
'Importation du fichier temporaire
'Pour l'exemple l'import se fait dans la feuille active
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & NomDuFichier , _
Destination:=Range("A1"))
.Name = "FichierTemp"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
'On efface le fichier temporaie paskeu on en a pu besoing
Kill(FichierTempo)
'-----------------------------------------------------------
GoTo Fin
FermezTout:
If FreeFile() = 3 Then
Close #2
End If
If FreeFile() = 2 Then
Close #1
End If
Fin:
End Sub
Jcbé[^]
Si on suis la logique du truc il faut d'abord eclater les lignes en fonction des "//1//" , puis parser les ";" avec split
Pour pas que tu te fatigues trop :
Sub TesterImport()
ImporterFichierDeDaube "c:\Fichiertexte.txt"
End Sub
Sub ImporterFichierDeDaube(NomDuFichier As String)
Dim ligne As String, Position As Integer, data As String
Dim fichiertempo As String
'Ouverture du fichier à lire
On Error GoTo FermezTout
Open NomDuFichier For Input As #1
'Ouverture du fichier temporaire
fichiertempo = "c:\FichierTemp.txt"
Open fichiertempo For Output As #2
While Not EOF(1)
Input #1, ligne
Position = 1
Do
'Debug.Print ligne
Position = 1
Position = InStr(Position, ligne, "//1//")
Debug.Print Position
If Position > 0 Then
'extraction de la ligne à séparateurs
data = Left(ligne, Position - 1)
Debug.Print data
'rognage de ligne pour ne garder ce qui reste à "découper"
ligne = Right(ligne, Len(ligne) - Position - Len("//1//") + 1)
Debug.Print "ligne= " + ligne
'Ecriture dans le fichier temportaire
Print #2, data
End If
Loop While Len(ligne) > 0 And Position > 0
If ligne <> "" Then Print #2, ligne
Wend
Close #2
Close #1
'Importation du fichier temporaire
'Pour l'exemple l'import se fait dans la feuille active
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & NomDuFichier , _
Destination:=Range("A1"))
.Name = "FichierTemp"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
'On efface le fichier temporaie paskeu on en a pu besoing
Kill(FichierTempo)
'-----------------------------------------------------------
GoTo Fin
FermezTout:
If FreeFile() = 3 Then
Close #2
End If
If FreeFile() = 2 Then
Close #1
End If
Fin:
End Sub
Jcbé[^]
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
205 internautes nous ont dit merci ce mois-ci
- Messages postés
- 260
- Date d'inscription
- mardi 25 novembre 2003
- Statut
- Membre
- Dernière intervention
- 6 novembre 2009
Le Split c'était une blague.
D'autre part j'ai fait une petite erreur dans le nom du fichier à importer :
With ActiveSheet.QueryTables.Add(Connection:= "TEXT;" & fichiertempo , _
Sinon, si tu ne veux tester les données tu inseres un controle sur la variable data du genre :
...
'Ecriture dans le fichier temportaire
if ControlerData(data) =true then
Print #2, data
end if
...
Pareil sur la ligne :
If ligne <> "" And ControlerData(ligne) = True Then Print #2, ligne
Dans la fonction controlerdata() tu fait une verif en récupérant les données dans un tableau exemple :
Function ControlerData(data As String) As Boolean
Dim montableau() As String
montableau = Split(data, ";")
Debug.Print montableau(0) & "..."
If Not IsNumeric(Left(montableau(0), 1)) Then
ControlerData = False
Exit Function
End If
ControlerData = True
End Function
Voila, j'ai passé en deux jours, au moins 60 minutes pour un parfait inconnu à développer un code qui ne me servira jamais à rien !!
Enfoncés MSF !!
à +
Jcbé[^]
D'autre part j'ai fait une petite erreur dans le nom du fichier à importer :
With ActiveSheet.QueryTables.Add(Connection:= "TEXT;" & fichiertempo , _
Sinon, si tu ne veux tester les données tu inseres un controle sur la variable data du genre :
...
'Ecriture dans le fichier temportaire
if ControlerData(data) =true then
Print #2, data
end if
...
Pareil sur la ligne :
If ligne <> "" And ControlerData(ligne) = True Then Print #2, ligne
Dans la fonction controlerdata() tu fait une verif en récupérant les données dans un tableau exemple :
Function ControlerData(data As String) As Boolean
Dim montableau() As String
montableau = Split(data, ";")
Debug.Print montableau(0) & "..."
If Not IsNumeric(Left(montableau(0), 1)) Then
ControlerData = False
Exit Function
End If
ControlerData = True
End Function
Voila, j'ai passé en deux jours, au moins 60 minutes pour un parfait inconnu à développer un code qui ne me servira jamais à rien !!
Enfoncés MSF !!
à +
Jcbé[^]
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
205 internautes nous ont dit merci ce mois-ci
- Messages postés
- 188
- Date d'inscription
- mardi 21 décembre 2004
- Statut
- Membre
- Dernière intervention
- 10 avril 2008
J'ai trouvé, apperement faut faire un line input au lieu de input :
Line Input #1, ligne
La gestion des fichiers texte est nouvel pour moi et j'avoue avoir un peu d emal a tout assimilé.
Je ne comprend pas non plus la fonction des debug.print
Line Input #1, ligne
La gestion des fichiers texte est nouvel pour moi et j'avoue avoir un peu d emal a tout assimilé.
Je ne comprend pas non plus la fonction des debug.print
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
205 internautes nous ont dit merci ce mois-ci
- Messages postés
- 7668
- Date d'inscription
- samedi 5 novembre 2005
- Statut
- Membre
- Dernière intervention
- 22 août 2014
J'ai mal compris la finalité, notamment en ce qui concerne les différents "types de données", mais celà n'est que secondaire.
L'utilisation de la fonction split devrait te servir, d'abord pour "éclater" les expressions séparées par des ";" puis, en leur sein , pour "éclater les expressions séparées par "//1//"
tu pourrais revenir avec un code d'essai sur ces bases ...
L'utilisation de la fonction split devrait te servir, d'abord pour "éclater" les expressions séparées par des ";" puis, en leur sein , pour "éclater les expressions séparées par "//1//"
tu pourrais revenir avec un code d'essai sur ces bases ...
- Messages postés
- 7668
- Date d'inscription
- samedi 5 novembre 2005
- Statut
- Membre
- Dernière intervention
- 22 août 2014
- Messages postés
- 188
- Date d'inscription
- mardi 21 décembre 2004
- Statut
- Membre
- Dernière intervention
- 10 avril 2008
Ok merci beaucoup,
Bon alors on peut dire que vos combats pour répondre le plus vite et le mieux possible à mes questions, ne me déplaise bien évidement pas.
Par contre du coup quand j'aurais regardé ca de plus il me faudra faire 3 fois le boulot de réponse accepté. Ca va être dure
Bon merci, je regarde çà demain ou apres demain au boulot.
Bon alors on peut dire que vos combats pour répondre le plus vite et le mieux possible à mes questions, ne me déplaise bien évidement pas.
Par contre du coup quand j'aurais regardé ca de plus il me faudra faire 3 fois le boulot de réponse accepté. Ca va être dure
Bon merci, je regarde çà demain ou apres demain au boulot.
- Messages postés
- 188
- Date d'inscription
- mardi 21 décembre 2004
- Statut
- Membre
- Dernière intervention
- 10 avril 2008
- Messages postés
- 188
- Date d'inscription
- mardi 21 décembre 2004
- Statut
- Membre
- Dernière intervention
- 10 avril 2008
Slt,
Ok pour ton code c'est sympa de penser à ne pas pas trop me fatiguer.
Bon alors je l'ai essayer, il importe bien mais données mais il garde les //1// dans les données. De plus je ne vois pas comment dans ton code je peut gérer les données situé entre chaque //1// (càd chaque groupe de données) afin de savoir si oui ou non je les récupère ou non.
Autre chose tu a parlé de split avant de me donner ton code, mais je n'en vois pas dans celui-ci ?
Merci !
Oliv
Ok pour ton code c'est sympa de penser à ne pas pas trop me fatiguer.
Bon alors je l'ai essayer, il importe bien mais données mais il garde les //1// dans les données. De plus je ne vois pas comment dans ton code je peut gérer les données situé entre chaque //1// (càd chaque groupe de données) afin de savoir si oui ou non je les récupère ou non.
Autre chose tu a parlé de split avant de me donner ton code, mais je n'en vois pas dans celui-ci ?
Merci !
Oliv
- Messages postés
- 188
- Date d'inscription
- mardi 21 décembre 2004
- Statut
- Membre
- Dernière intervention
- 10 avril 2008
Ok c'est super sympa de prendre du temps pour mon code. Ca m'aide bien.
Bon alors effectivement en ouvrant le fichier tempo au lieu d ela source ca va mieux. les //1// disparaisse bien.
Par contre maintenant j'ai un pb avec les données qui sont des chiffres décimaux. Les virgules sont interpréter comme des retours à la ligne. Du coup ca me donne un résultat traiter n'importe comment.
D'ou cela peut il venir ?
Bon alors effectivement en ouvrant le fichier tempo au lieu d ela source ca va mieux. les //1// disparaisse bien.
Par contre maintenant j'ai un pb avec les données qui sont des chiffres décimaux. Les virgules sont interpréter comme des retours à la ligne. Du coup ca me donne un résultat traiter n'importe comment.
D'ou cela peut il venir ?
- Messages postés
- 188
- Date d'inscription
- mardi 21 décembre 2004
- Statut
- Membre
- Dernière intervention
- 10 avril 2008
En fait c'est au niveau de la ligne Input #1, ligne que ca merde.
Le prog ne stock pas tout dans la variable ligne, il s'arette à la première virgule trouvée et ne prend pas la suite. Du coup ca print a chaque virgule et on obtient un résultat sans virgule et avec de retour à la ligne à la place.
Le prog ne stock pas tout dans la variable ligne, il s'arette à la première virgule trouvée et ne prend pas la suite. Du coup ca print a chaque virgule et on obtient un résultat sans virgule et avec de retour à la ligne à la place.
- Messages postés
- 188
- Date d'inscription
- mardi 21 décembre 2004
- Statut
- Membre
- Dernière intervention
- 10 avril 2008