Option Explicit
Dim chemin As String
Dim dossier As String
Dim fichier As String
Dim c As Integer 'c comme case


'importe les documents .ctx se situant dans un fichier donné dans un la feuil2 et les places dans des cases disponibles

Sub import_des_documents_ctx()

 Dim Fso As Scripting.FileSystemObject
 Dim FileItem As Scripting.File
 
'liste les fichiers du répertoire
 chemin = "U:\automatisation du catalogue outil C-S\BD outils"
 fichier = Dir(chemin & "\*.ctx")
 
 c = 1
'Boucle sur les fichiers
     Do
        Set Fso = CreateObject("Scripting.FileSystemObject")
        Set FileItem = Fso.GetFile(chemin & "\" & fichier)
        fichier = Fso.GetFile(chemin & "\" & fichier)
        
    'vérifie la disponiblilité de la case
        Do Until Worksheets("Feuil2").Range("A" & c) = 0
            c = c + 1
        Loop
        
    'importe le document
        ThisWorkbook.XmlImport URL:=Fso.GetFile(fichier), ImportMap:=Nothing, Overwrite:=True, Destination:=Worksheets("Feuil2").Range("A" & c)
         
        c = c + 1
        fichier = Dir
    Loop Until fichier = ""

End Sub