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:
Merci @++
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:
Code:
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 SubMerci @++