Sub Ouvre_Et_Efface()
Dim vValeurs, DerL&
Dim fileExplorer As FileDialog, fichier, f As Worksheet, wbkS As Workbook
Set f = ActiveSheet
DerL = f.Cells(Rows.Count, 3).End(3).Row
vValeurs = f.Range(f.Cells(2, 2), f.Cells(DerL, 3)).Value
On Error GoTo err
Set fileExplorer = Application.FileDialog(msoFileDialogFilePicker)
fileExplorer.AllowMultiSelect = False
With fileExplorer
If .Show = -1 Then
fichier = .SelectedItems.Item(1)
Set wbkS = Workbooks.Open(fichier)
Else
MsgBox "Annulation ouverture fichier", vbCritical, "Avertissement"
fichier = vbNullString
End If
End With
wbkS.Sheets("base1").Cells(1).Resize(UBound(vValeurs, 1), UBound(vValeurs, 2)) = vValeurs
wbkS.Close True
err:
Exit Sub
End Sub