Salut,
Je me permets de ré-up le sujet ; je te cache pas que je n'ai pas réussi à obtenir le résultat que je souhaitais. Du coup, je suis parti sur un enregistrement ".xls". Du coup je voudrais qu'une fois que ma base de donnée soit filtrée, je copie les données filtrées sur un nouveau classeur et je l'enregistre sous ce format.
Je me suis inspiré d'un code d'un membre qui m'avait fait à peu près la même chose mais sous forme de nouvelles feuilles mais, en l'adaptant, ça me dis que que la procédure ou la fonction n'a pas été définie.
Private Sub ExportXls()
Dim ClasseurSource As Workbook
Dim Ws As Worksheet
Dim Criteres As Range
Dim FName$, Fchemin$, Fxls$
FName = "Ventilation de la société " & Dest
Fchemin = ThisWorkbook.Path
Fxls = Fchemin & FName & ".xls" 'cette variable a pour finalité de se placer au Attachments.Add
Set ClasseurSource = ThisWorkbook
FeuilleSource = [TBD].Parent.Name
Set Criteres = ClasseurSource.Sheets("Prm").Range("G1:G2")
For Each Nom In [TFlop].ListObject.DataBodyRange.Cells 'représente la plage de valeurs sans l'entête
Criteres.Cells(2, 1) = Nom
Workbooks.Add
Set Ws = ActiveSheet
Ws.Name = Nom
ClasseurSource.Sheets(FeuilleSource).Range("TBD[#All]").AdvancedFilter _
Action:=xlFilterCopy, CriteriaRange:=Criteres, _
CopyToRange:=ActiveWorkbook.Sheets(1).Range("A1"), Unique:=True
SaveAs Fxls
Next Nom
End Sub
Pourrais-tu m'éclaircir ?