Aux Experts Merci d'avance pour Lecture x fichier

Question

Merci pour votre Aide sur le sujet suivant.

J'ai un répertoire qui ce remplie avec des extracts dont le nom est aléatoires [Date Heure xxxxx PRD.xlsx]

Le nombre de fichier présent est lui aussi aléatoire

Le but de ma requête est de récupérer tout les fichiers présent de ce répertoire vers mon classeur.

Ci-joint une version Manuel que je voudrai automatisé

Merci de votre Aide

Bien cordialement

****************************************************************************************

Sub RecupDatas()

'

' RecupDatas Macro

'

' recup Chaque Fichier PRD présent

Workbooks.Open Filename:= _

"C:\Users\ARC-EN-CIEL\Desktop\Répertoire Extract\20150513_001916612_WK519643_PRD.xlsx"

Sheets("20150513_001916612_WK519643_PRD").Select

Sheets("20150513_001916612_WK519643_PRD").Copy After:=Workbooks( _

"DnsAutoSource.xlsx").Sheets(3)

'

Workbooks.Open Filename:= _

"C:\Users\ARC-EN-CIEL\Desktop\Répertoire Extract\20150513_003650717_WK519640_PRD.xlsx"

Sheets("20150513_003650717_WK519640_PRD").Select

Sheets("20150513_003650717_WK519640_PRD").Copy After:=Workbooks( _

"DnsAutoSource.xlsx").Sheets(3)

'Cloture les fichiers Sources Ouvert

Windows("20150513_001916612_WK519640_PRD.xlsx").Activate

ActiveWorkbook.Close

Windows("20150513_003650717_WK519643_PRD.xlsx").Activate

ActiveWorkbook.Close

End Sub

****************************************************************

Dan · Answer

Merci de lire ces quelques lignes --&gt; https://forum.excel-pratique.com/annonces/explications-et-regles-a-respecter-t13.html Et de modifier le titre de votre sujet afin que cela corresponde à votre demande De là, on vous répondra certainement Cordialement...