Bonjour à tous,
Dans un classeur ,j'ai une extraction de base de données par MSQUERY d'environ 100000 lignes.
J'aimerais filtrer cette base en supprimant tous les enregistrements datant de plus de 90 jours.
Le problème : cette base s'alimente jour après jour donc j'aimerais garder tout le temps les enregistrements les plus récents ( 90j ).
J'ai une macro qui me permet de supprimer ce que je veux dedans (ça marche très bien mais c'est long).
Comme vous pouvez le voir , le formatage date dans l'extraction est AAAAMMJJ.
Mon but : filtrer sur 90 jours (avec 2 variables je pense; une correspondant à aujourd'hui et l'autre à aujourd'hui -90).
Si quelqu'un avait une méthode plus rapide pour filtrer et supprimer je suis preneur aussi.
Si tout cela n'est pas clair je peut fournir un échantillon du fichier à la demande.
Merci d'avance
Cdt
Patrice
Dans un classeur ,j'ai une extraction de base de données par MSQUERY d'environ 100000 lignes.
J'aimerais filtrer cette base en supprimant tous les enregistrements datant de plus de 90 jours.
Le problème : cette base s'alimente jour après jour donc j'aimerais garder tout le temps les enregistrements les plus récents ( 90j ).
J'ai une macro qui me permet de supprimer ce que je veux dedans (ça marche très bien mais c'est long).
Code:
Sub Test()
Dim lCt As Long
Dim oArea As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
With ActiveSheet.ListObjects(1)
.Range.AutoFilter Field:=3, Criteria1:="20140212"
For Each oArea In .DataBodyRange.SpecialCells(xlCellTypeVisible).Areas
For lCt = oArea.Rows.Count To 1 Step -1
oArea.EntireRow.Rows(lCt).Delete
Next
Next
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Comme vous pouvez le voir , le formatage date dans l'extraction est AAAAMMJJ.
Mon but : filtrer sur 90 jours (avec 2 variables je pense; une correspondant à aujourd'hui et l'autre à aujourd'hui -90).
Si quelqu'un avait une méthode plus rapide pour filtrer et supprimer je suis preneur aussi.
Si tout cela n'est pas clair je peut fournir un échantillon du fichier à la demande.
Merci d'avance
Cdt
Patrice