Discussion :

[claire9999]

c'est exactement ce que je voulais
Merci Beaucoup PARMI de ta précieuse aide c'est très gentil de ta part

[claire9999]

Bonjour Parmi,
Me Revoilà encore avec mes questions et je suis vraiment désolé,
j'ai eu un petit souci sur un fichier; les données que je recherchais étaient classées sur deux voir trois lignes sur un fichier texte
exemple:

Code :

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

1
2
3
4
 
[in....
.......
......fos]

vue que ton code établi sa recherche en ligne/ligne, ces données ne sont pas prises compte.
j'ai essayé de voir sur des tuto pour qu'il prend en compte la donnée du début jusqu'à la fin et ceux pour n ligne.
est ce que ceci est faisable?
Merci

[parmi]

Essaie comme ceci pour voir

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sub ExtraireTexte()
    Dim I As Long, J As Long
    Dim Fichier As Variant
    Dim strTemp As String, Chaine As String
    Dim Ligne As Long
    Dim Tablo As Variant
    Dim FF As Integer
 
    ChDrive "C"
    ChDir "C:\"
 
    Fichier = Application.GetOpenFilename("Fichiers Texte (*.txt),*.txt", MultiSelect:=True)
 
    If Not IsArray(Fichier) Then Exit Sub
 
    For I = 1 To UBound(Fichier)
        ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = Right(Fichier(I), Len(Fichier(I)) - InStrRev(Fichier(I), "\"))
        Ligne = 1
        FF = FreeFile
        Open Fichier(I) For Input As #FF
            strTemp = Input(LOF(FF), #FF)   'charge tout le fichier
            Chaine = CleanString(strTemp)   'transforme la chaîne
            If Trim(Chaine) <> "" Then
                Tablo = Split(Chaine, vbCrLf)
                For J = 0 To UBound(Tablo)
                    Ligne = Ligne + 1
                    ActiveSheet.Range("A" & Ligne) = Tablo(J)
                Next
            End If
 
        Close #FF
    Next
End Sub
 
Function CleanString(Chaine As String) As String
    Dim I As Long
    Dim Debut As Long, Fin As Long
    Dim strTemp As String
 
    Chaine = Replace(Chaine, vbCrLf, " ")
 
    For I = 1 To Len(Chaine)
        If Mid(Chaine, I, 1) = "[" Then Debut = I
        If Mid(Chaine, I, 1) = "]" Then Fin = I
        If Debut > 0 And Fin > 0 Then
            strTemp = strTemp & Mid(Chaine, Debut, Fin - Debut + 1) & vbCrLf
            Debut = 0: Fin = 0
        End If
    Next
    CleanString = strTemp
End Function

[claire9999]

Merci beaucoup parmi de ton aide, tout marche à merveille

[patricktoulon]

Bonjour
ayant regardé le resultat souhaité pour moi il y avait beaucoup plus simple

exemple avec un fichier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub test1()
    Dim File As Object, fso As Object, result As Variant, tablo As Variant, a As Long, fichier As String, newsheet As Worksheet
    fichier = "C:\Users\polux\Desktop\Nouveau dossier\exemple.txt"
        Set newsheet = Sheets.Add(After:=Sheets(Sheets.Count))
       newsheet.name = Split(fichier, "\")(UBound(Split(fichier, "\")))
       Set fso = CreateObject("Scripting.FileSystemObject")
    Set File = fso.OpenTextFile(fichier, 1, True)
        texte = File.Readall
    result = Split(texte, "[")
    ReDim tablo(UBound(result) * 2, 1)
    a = 1
    For I = 1 To UBound(result)
        tablo(a, 0) = "[" & Split(result(I), "]")(0) & "]"
        a = a + 2
    Next
    newsheet.Range("A1").Resize(UBound(tablo)) = tablo
End Sub

il te suffirait mettre ce code dans une boucle sur la fonction "DIR" sur un dossier pour faire tout le dossier
Marc va encore me traiter de maniaque de la fonction "SPLIT"

[Marc-L]

Pas du tout Patrick !

Et je serais mal placé car moi aussi j'en suis adepte !