Automatiser l'extraction de données via filtre

[istartedin2009]

Bonjour,
je cherche a créer un macro qui créera pour chaque valeur d'un champ une feuille et y copiera dessus les enregistrement qui contient la valeur a l'aide d'un filtre automatique auparavant créer sur la feuille de données
voila mon macro

Sub ExtractBackup(backup As String)

Sheets("DataFiltred").Select
Selection.AutoFilter Field:=1, Criteria1:="backup"
Rows("1:2000").Select
Selection.Copy
'''''Sheets("DataFiltred").Select
Sheets.Add
Rows("1:1").Select
ActiveSheet.Paste
ActiveSheet.Name = backup


End Sub

et voila la fonction de test

Sub testExctractBuckup()
ExtractBackup ("SAP P07_archivelogs_daily")
End Sub

le probleme que je rencontre est que la copie ne se fait pas bien alors que la fueille est créé, veuillez m'aider SVP

 

[skoobi]

Re : Automatiser l'extraction de données via filtre

Bonjour,

enlève les " autours de backup:

Selection.AutoFilter Field:=1, Criteria1:="backup"

Ca devrait aller mieux

 

[istartedin2009]

Re : Automatiser l'extraction de données via filtre

C vrai
merci pour la réponse,
il faut que j'avoue que je me suis bourré sur cette faute
merci encore.