Sub import()
Dim Fichier, Repertoire As String
Repertoire = "C:\Documents and Settings\ledzepfred\Mes documents" 'mettre ici ton répertoire par défaut
ChDir "C:\Documents and Settings\Ledzepfred\Bureau" 'mettre ici le répertoire où se trouve le fichier x
Fichier = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls", , "Sélectionner un fichier.")
If Fichier <> False Then
Application.ScreenUpdating = False
Workbooks.Open Fichier
Fichier_x= Activeworkbook.name
[COLOR="Red"]If ActiveSheet.FilterMode = True Then[COLOR="SeaGreen"] 'verifie si le filtre est activé[/COLOR]
ActiveSheet.ShowAllData [COLOR="seagreen"]'si activé alors défiltre toutes les colonnes[/COLOR]
ElseIf ActiveSheet.AutoFilterMode = False Then Rows("1:1").AutoFilter
[COLOR="seagreen"]'si pas activé alors active le filtre sur ligne 1 (à adapter en fonction des entêtes de colonnes du fichier base)[/COLOR]
End If
For i = 12 To 19
If i <> 17 And i <> 18 Then
Selection.AutoFilter Field:=i, Criteria1:="=1"
End If
Next[/COLOR]
Workbooks(Fichier_x).Sheets("feuil1").Columns("A:D").Copy Workbooks("fichier j.xls").Sheets("feuil1").Columns("A:D")
Workbooks(Fichier_x).Sheets("feuil1").Columns("G").Copy Workbooks("fichier j.xls").Sheets("feuil1").Columns("G")
Workbooks(Fichier_x).Sheets("feuil1").Columns("J").Copy Workbooks("fichier j.xls").Sheets("feuil1").Columns("J")
Application.DisplayAlerts = False
Windows(Fichier_x).Close
End If
CurDir Repertoire
End Sub