Discussion :

[krysss]

Bonjour,

je souhaiterais avoir des renseignements pour pouvoir ouvrir deux fichiers texte simultanément et les mettre dans un seul classeur excel (avec une boucle).

A chaque qu'un de mes fichiers s'ouvre, il se referme et l'autre s'ouvre à sa place, je suis perdu...


Voilà mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
For Each test In Dossier.Files
            If LCase(Right(test, 3)) = "txt" Then
                 m = m + 1
            End If
 
        Next
 
                MsgBox "Il y a " & m & " fichier(s) trouvé(s)."
 
        For n = 1 To m
               Workbooks.Open Filename:=monchemin & "\*.txt" 
        Next n

Merci d'avance.

[Fvandermeulen]

Salut,

Vu ton message et ton code, je ne suis pas certain d'avoir compris si tu voulais que ce soit ouvert simultanément ou pas (ton code étant une boucle, ce n'est pas simultanément...)

Quoi qu'il en soit, voici un exemple pour ouvrir plusieurs TXT à la suite (pas simultanément) peut-être que ça t'aidera
Attention, j'ai supprimé des lignes de codes qui n'ont aucun intérêt pour toi, il se peut donc qu'il ne soit pas tout à fait fonctionnel.

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
fichiersAOuvrir = Application.GetOpenFilename("Calendar Text files (*.txt),*.txt", , "Select the file: ", , True)
If IsArray(fichiersAOuvrir) Then
    For F = LBound(fichiersAOuvrir, 1) To UBound(fichiersAOuvrir, 1)
        MyCheck = fichiersAOuvrir(F) Like "*_BackUp_Calendar_*"
        If MyCheck = False Then
            MsgBox "Please check the file you want to import, all files have to contain ..._Calendar_...", vbCritical, "HiDaC Conso - Alert"
            Exit Sub
        End If
    Next F
    For F = LBound(fichiersAOuvrir, 1) To UBound(fichiersAOuvrir, 1)
        i = 0
        Open fichiersAOuvrir(F) For Input As #1
        Do While Not EOF(1)
            i = i + 1
            Input #1, ligne
            WsInter.Cells(i, 1).Value = Replace(ligne, "/", "§")
        Loop
        Close #1
 
    Next F
Else
    MsgBox "Multi-selection failled, please contact Excel-Et-Vous", vbOKOnly, "HiDaC Conso - Alert"
    Application.Calculation = xlCalculationAutomatic
    Exit Sub
End If

[krysss]

Merci beaucoup ! Après réadaptation, la macro fonctionne !

Je mets le code si ça en intéresse :

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
 
     fichiersAOuvrir = Application.GetOpenFilename("Text files (*.txt),*.txt", , "Select the file: ", , True)
If IsArray(fichiersAOuvrir) Then
    For F = LBound(fichiersAOuvrir, 1) To UBound(fichiersAOuvrir, 1)
        MyCheck = fichiersAOuvrir(F) Like "*.txt"
        If MyCheck = False Then
            MsgBox "Sélectionnez un ou des fichiers .txt"
            Exit Sub
        End If
    Next F
    For F = LBound(fichiersAOuvrir, 1) To UBound(fichiersAOuvrir, 1)
        i = 0
        Workbooks.Open fichiersAOuvrir(F)
    Next F
 
End If

Encore merci.