Sub Nomdufichier()
Dim class_actif As Workbook, class_source As Workbook, plgSource As Range
Set class_actif = ActiveWorkbook.Name
Dim NomFichier
NomFichier = Application.GetOpenFilename
If VarType(NomFichier) = vbBoolean Then
MsgBox ("Action annulée")
Exit Sub
End If
MsgBox ("Importation des données de l'essai du fichier : " & NomFichier & " vers " & class_actif)
'ouvrir le fichier source
Set class_source = Workbooks.Open(NomFichier)
class_actif.Activate
'copier les valeurs de la source dans le classeur actif
With class_source.Worksheets(poutrelle).Range(recup_data)
class_actif.Worksheets(Feuil1).Range("A1").Resize(.Rows.Count, .Columns.Count).Values = .Value
End With
End Sub