Importer données depuis feuille avec filtre auto

[arnaudbu]

Hello,

J'ai une macro qui copie les données de feuilles de 5 classeurs. Sur ces feuilles il y a des filtres automatique.

Si des données sont filtrées, ma macro ne me les copie pas .... Y a t-il un contournement ??

Voici le code qui importe les données:

Option Explicit

Const Chemin As String = "C:\TEST\"

Const Onglet As String = "Actions"

Const plage As String = "A3:G100"

Sub importdatas()

Dim W As Workbook, arrClass, Plg As Range, i As Byte
Set W = ThisWorkbook

Dim MSG As Long

MSG = MsgBox("Afin d'éviter tout disfonctionnement, les fichiers doivent être fermés" _
& vbNewLine & " " & vbNewLine & "Importer les actions ?", _
vbQuestion + vbYesNo, "Information")
If (MSG = 6) Then

Application.ScreenUpdating = False

Rows("3:700").Select
    Selection.Delete Shift:=xlUp
    Selection.RowHeight = 21

Set Plg = _
W.Sheets("Config").Range("A2:A" & W.Sheets("Config").[A65536].End(xlUp).Row)
arrClass = Application.Transpose(Plg.Value)

For i = 1 To UBound(arrClass)
    Workbooks.Open Chemin & CStr(arrClass(i))
    With ActiveWorkbook
        .Sheets(Onglet).Range(plage).Copy W.Sheets("Suivi_general").Range("A65536").End(xlUp).Offset(1, 0)
        .Close False
        Application.CutCopyMode = False
    End With
Next

Application.ScreenUpdating = True

Range("A3").Select

MSG = MsgBox("Les actions ont été importées !", vbYes, "Information")

End If

End Sub

Merci @++

 

[skoobi]

Re : Importer données depuis feuille avec filtre auto

Bonjour arnaudbu,

dans ce cas, désactive le filtre avant la copie comme ceci:

.Sheets(Onglet).Range(plage).AutoFilter

 

[arnaudbu]

Re : Importer données depuis feuille avec filtre auto

OK merci. Il faut aussi que je rajoute la déprotection/protection de la feuille. Pas le choix ou autre possibilité ?

@++

 

[skoobi]

Re : Importer données depuis feuille avec filtre auto

Re bonjour,

utilise l'enregistreur de macro et le code tu auras...

 

[arnaudbu]

Re : Importer données depuis feuille avec filtre auto

Ok merci je sais faire la protection/de-protection. Mais comme les feuilles protégée autorise le filtre automatique, je ne vois pas pourquoi il faut déprotéger...

@++