Bonjour à tous,
j'ai trouvé un super code me permettant de dispatcher les donneés d'une bdd en créant plusieurs classeurs. Seulement, ça fait longtemps que je n'ai pas pratiqué vba et j'avoue que je suis perdue quand il s'agit d'adapter ce code à la création de feuilles (ou onglets) et non pas de classeurs par pays.
Le voici ci-dessous :
Crée un classeur par pays
Merci pour votre aide !
j'ai trouvé un super code me permettant de dispatcher les donneés d'une bdd en créant plusieurs classeurs. Seulement, ça fait longtemps que je n'ai pas pratiqué vba et j'avoue que je suis perdue quand il s'agit d'adapter ce code à la création de feuilles (ou onglets) et non pas de classeurs par pays.
Le voici ci-dessous :
Crée un classeur par pays
Code:
Sub CreeClasseurs()
Application.DisplayAlerts = False
[A1:D10000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[g1], Unique:=True
For Each c In Range("G2", Range("G65000").End(xlUp))
Range("G2") = c
Sheets.Add
Sheets("BD2").[A1:D10000].AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("BD2").[G1:G2], CopyToRange:=[A1], Unique:=False
ActiveSheet.Copy
ActiveSheet.Name = c
ActiveWorkbook.SaveAs Filename:=c
ActiveWorkbook.Close
ActiveSheet.Delete
Sheets("BD2").Select
Next c
End Sub