Sub exporter_copie_getopen()
'--- on utilise un GETOPENFILE pour choisir le fichier qui se trouve dans un autre répertoire
Dim FichierAouvrir As Variant, a, classeur As Workbook, i
Dim derligne As Integer
Dim aw As Workbook
Set aw = ActiveWorkbook
1 FichierAouvrir = Application.GetOpenFilename("Fichiers Excel (*.xls*), *.xls*")
If FichierAouvrir = False Then Exit Sub
If Dir(FichierAouvrir) = ThisWorkbook.Name Then GoTo 1 'fichier de même nom
On Error Resume Next 'sécurité, si une feuille n'existe pas
Set classeur = Workbooks.Open(FichierAouvrir)
With classeur.Sheets(1)
[A:D].AutoFilter 1, "*" & "XAM" & "*" 'filtre automatique
Set P = classeur.Sheets(1).UsedRange.Offset(1, 0)
End With
P.copy aw.Sheets("Details").Cells(aw.Sheets("Details").Cells(Rows.Count, 1).End(3)(2).Row, 1)
classeur.Close False
aw.Sheets(2).Activate
End Sub