Private Sub CommandButton1_Click()
Dim oSh As Object, pfile As Object
Dim pIni As Variant
Dim FichierExport As String, Chemin As String
pIni = "C:\" 'Ton répertoire à ouvrir
Set oSh = CreateObject("Shell.Application")
On Error Resume Next
Set pfile = oSh.BrowseForFolder(0&, "Sélectionnez un dossier", &H1 + &H40 + &H200 + &H4000, pIni)
If Not pfile Is Nothing Then
Workbooks.Open pfile.items.Item.Path
Call MEF
ActiveWorkbook.Sheets(1).[A1].CurrentRegion.Copy ThisWorkbook.Sheets(1).[A6]
ActiveWorkbook.Close
Kill pfile.items.Item.Path
End If
On Error GoTo 0
Set pIni = Nothing
Set pfile = Nothing
Set oSh = Nothing
End Sub