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.