Importation de données d'un autre fichier Excel

bonjour

j'aimerais avoir un code vba pour parcourir l ensemble des fichiers xlsx dans le pc et l'ouvrir dans une autre feuille Excel cible d'un autre classeur

j'ai essaye avec ce code en créant un userform avec un bouton "importer" mais ce code s'arrête juste au point de parcourir les fichiers de mon pc et non pas les importer et les ouvrir dans ma feuille

Dim ce As Integer: Dim le As Integer  
Dim lf As Integer: Dim cf As Integer 
Dim ld As Integer: Dim cd As Integer

Private Sub annuler_Click()
importation.Hide
End Sub

Private Sub importer_Click()

Dim fichier_choisi As String
fichier_choisi = Application.GetOpenFilename("files(.), .")

If (LCase(fichier_choisi) <> "faux" And fichier_choisi <> "0") Then
liste.AddItem (fichier_choisi)
End If

End Sub

Private Sub traiter_Click()
Dim nom_fichier As String
ld = 1: cd = 1
le = ld: ce = cd
Cells.Clear
For i = 0 To liste.ListCount - 1
lecture (liste.List(i))

End Sub

Private Sub lecture(fichier As String)

Dim depart As Integer, position As Integer
Dim texte As String, tampon As String

Open fichier For Input As #1
   Do While Not EOF(1)
    Line Input #1, texte
    depart = 1: position = 1
          Do While (position <> 0)
          position = InStr(depart, texte, ";", 1)
                   If position = 0 Then
                   tampon = Mid(texte, depart)
                   Sheets("TRANSPORT_SHIPPEO - DATA (1)").Cells(le, ce).Value = tampon
           Exit Do
                     Else
                     tampon = Mid(texte, depart, position - depart)
                     End If
   Sheets("TRANSPORT_SHIPPEO - DATA (1)").Cells(le, ce).Value = tampon
   depart = position + 1
   ce = ce + 1
   Loop
   ce = cd
   le = le + 1

 Loop
Close #1

End Sub

Hello,

Tu n'utilises pas la bonne methode pour ouvrir un doc xlsx

Open fichier For Input As #1
   Do While Not EOF(1)

Pour moi, cette syntaxe s'utilise pour d'autres formats de fichier, type .txt. Mais ne permet pas de lire un fichier xlsx ( à confirmer car j'ai quand même un doute )

Pour ouvrir un fichier xlsx il faut utiliser cette synthaxe :

workbooks.open "C:\ ...."

mais j'ai pas un path précis pour le document xlsx a importer pour utiliser la méthode workbooks.open il faut parcourir l ensemble des fichiers dans le pc afin d'ouvrir la cible