Function Lire_Fichier(sNom_Fichier As String) As Variant Dim intFic As Integer intFic = FreeFile Dim strLigne As String Dim Tbl_result() Dim X X = 1 'Ouverture du fichier Open sNom_Fichier For Input As intFic 'Lecture du fichier jusqu'à la fin While Not EOF(intFic) Line Input #intFic, strLigne Debug.Print strLigne 'affichage dans la fenetre d'execution ReDim Preserve Tbl_result(X) Tbl_result(X) = strLigne X = X + 1 Wend ' Fermeture du Fichier texte Close intFic Lire_Fichier = Tbl_result End Function Sub crea_tableau() Dim Tbl() Dim sFichier As String sFichier = "C:\Documents and Settings\j_reynet.INFG-ORLS\Bureau\fichier1.txt" Tbl = Lire_Fichier(sFichier) For l = 1 To UBound(Tbl) i = 1 Debug.Print Tbl(l) ' séparation des cases Tbl_Case = Split(Tbl(l), ";") For C = 0 To UBound(Tbl_Case) 'recuperation des valeurs des différents case Val_Case = Mid(Tbl_Case(C), 7, Len(Tbl_Case(C)) - 6) Debug.Print Val_Case Cells(1, i) = Val_Case i = i + 1 Next Next End Sub
Avec un commande dos je peux au préalable en faire la liste et l'intégrer dans une feuille excel si besoin
je pense que la seule solution pour les identifier est de repérer dans le texte certains chaines de caractère ("case1" par exemple) et extraire les données chiffrées qui suivent immédiatement après.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question