Code VBA parcourir un répertoire

Bonjour,

Je cherche un code VBA qui doit parcourir un répertoire contient des fichiers EXCEL et générer dans le fichier ouvert des feuilles avec leur contenu à partir du répertoire parcouru (Chaque fichier Excel du répertoire parcouru doit être recopié dans une feuille du fichier Excel ouvert)

Je vous remercie par avance

Bonjour,

Voici un premier essai assez générique et basique (car trop peu de détails), à adapter à votre cas :

Sub SonderRecuperer()

dim wbme as workbook, wb as workbook
dim ws as worksheet
dim rep$, fichier$, chemin$

set wbme = thisworkbook 'classeur executant
rep = "C:\....\BLA" 'repertoire renseigné (à modifier ou à affecter autrement, depuis cellule par ex)
fichier = dir(rep & "\*.xls*") 'premier nom de fichier excel du répertoire

while  fichier <> "" 'tant que fichier n'est pas vide
    chemin = rep & "\" & fichier
    set wb = workbooks.open(chemin) 'ouvre le fichier
    for each ws in wb.worksheets 'pour chaque feuille du fichier
        ws.copy after:=wbme.sheets(wbme.sheets.count) 'on copie la feuille dans wbme, à la fin
    next ws
    wb.close true 'on ferme le fichier
    fichier = dir 'on passe au suivant
wend

end sub

Cdlt,

Bonjour,

Je tenais tout d'abord à vous remercier de m'avoir répondu.
En effet, le code bug sur cette ligne:

Set wb = Workbooks.Open(fichier) 'ouvre le fichier

Avec mes remerciements

re

bonsoir juste en passant

dir renvoie le nom du fichier pas le chemin

donc pour l'open

set wb = workbooks.open(rep &"\"& fichier) 'ouvre le fichier

ça marchera mieux je pense

Bonjour,

J'ai édité le code qui tient compte de la juste remarque de patricktoulon.

Cdlt,

Bonjour

C'est de tout mon cœur que je vous remercie 3GB et patricktoulon.
Je vous suis très reconnaissant

Bien cordialement