bonjour,
les réponses trouvées sur le forum ne fonctionne pas sur mon tableau et je ne comprends pas pourquoi. Explication : j'ai six tableaux de suivi incrémentés par des personnes qui utilisent des filtres automatique. Leur responsable doit visualiser les six tableaux fusionnés en un seul. pas de soucis à l ouverture la mise à jour de l'ensemble se fait bien, mais s'il y a des filtres en cours seules les données non filtrées sont rappatriées. sur le forum j'ai trouvé deux solutions :
Sheets(4).FilterMode = False
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
ou
On Error Resume Next
Sheets(4).ShowAllData
On Error GoTo 0
et cela ne fonctionne pas :-(
ci dessous mon code quelqu'un peut il me dire où est mon erreur sinon je vais etre obligé de reprendre la vieille methode des formules (très lourde)
merci de votre aide . Bonne journée . Cordialement . Bénédicte
-----------------------------------------------------------------------------
Private Sub Workbook_Open()
Sheets(1).Range("A1").CurrentRegion.Offset(1).Clear
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For i = 1 To 6
ligne = Sheets(1).Range("A1").CurrentRegion.Rows.Count + 1
If i < 10 Then
fichier = "S0" & i & ".xls"
Else
fichier = "S" & i & ".xls"
End If
Workbooks.Open ("Z:\F.T.Investissement\ADV\SUIVI DES VENTES\-2011-\suivis\" & fichier)
Workbooks(fichier).Sheets(4).Activate
Range("A1").Select
Sheets(4).FilterMode = False
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
'On Error Resume Next
'Sheets(4).ShowAllData
'On Error GoTo 0
Selection.CurrentRegion.Select
Selection.Offset(1).Select
Selection.Copy
ActiveWorkbook.Close
Sheets(1).Select
Cells(ligne, 1).Select
ActiveSheet.Paste
Next i
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
les réponses trouvées sur le forum ne fonctionne pas sur mon tableau et je ne comprends pas pourquoi. Explication : j'ai six tableaux de suivi incrémentés par des personnes qui utilisent des filtres automatique. Leur responsable doit visualiser les six tableaux fusionnés en un seul. pas de soucis à l ouverture la mise à jour de l'ensemble se fait bien, mais s'il y a des filtres en cours seules les données non filtrées sont rappatriées. sur le forum j'ai trouvé deux solutions :
Sheets(4).FilterMode = False
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
ou
On Error Resume Next
Sheets(4).ShowAllData
On Error GoTo 0
et cela ne fonctionne pas :-(
ci dessous mon code quelqu'un peut il me dire où est mon erreur sinon je vais etre obligé de reprendre la vieille methode des formules (très lourde)
merci de votre aide . Bonne journée . Cordialement . Bénédicte
-----------------------------------------------------------------------------
Private Sub Workbook_Open()
Sheets(1).Range("A1").CurrentRegion.Offset(1).Clear
Application.DisplayAlerts = False
Application.ScreenUpdating = False
For i = 1 To 6
ligne = Sheets(1).Range("A1").CurrentRegion.Rows.Count + 1
If i < 10 Then
fichier = "S0" & i & ".xls"
Else
fichier = "S" & i & ".xls"
End If
Workbooks.Open ("Z:\F.T.Investissement\ADV\SUIVI DES VENTES\-2011-\suivis\" & fichier)
Workbooks(fichier).Sheets(4).Activate
Range("A1").Select
Sheets(4).FilterMode = False
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
'On Error Resume Next
'Sheets(4).ShowAllData
'On Error GoTo 0
Selection.CurrentRegion.Select
Selection.Offset(1).Select
Selection.Copy
ActiveWorkbook.Close
Sheets(1).Select
Cells(ligne, 1).Select
ActiveSheet.Paste
Next i
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub