Discussion :

[MickaelKeul]

Bonjour,

J'aimerai faire (et je ne sais pas du tout comment ...) une macro pour filtrer un tableau selon un critère et exporter les données dans de nouveaux fichiers (et les enregistrer).

Dans mon tableau joint, je voudrais qu'en sélectionnant via le user form "import" ou "export", ça génère 1 fichier par fournisseur avec juste ses données et enregistrer automatiquement chaque fichiers.

J'espere ne pas avoir été trop confus et merci d'avance pour votre aide !

[EricDgn]

Bonjour,

Une façon de faire.
Code dans l'userform:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Option Explicit
 
Private Sub CommandButton1_Click()
    If Me.OptionButton1 Then SauverSelonFiltre Me.OptionButton1.Caption
    If Me.OptionButton2 Then SauverSelonFiltre Me.OptionButton2.Caption
    Me.Hide
End Sub

et code dans un module:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
 
Sub SauverSelonFiltre(sFiltre As String)
    Dim lo As ListObject, sFileName As String
    '--- filtrer - copier
    Set lo = ThisWorkbook.Worksheets("Base").ListObjects("BaseArticles")
    With lo.Range
        .AutoFilter Field:=lo.ListColumns("Entité").Index, Criteria1:=sFiltre
        .Copy
    End With
    '--- créer nouveau fichier - coller - sauver
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    sFileName = ThisWorkbook.Path & "\" & sFiltre & " " & Format(Date, "yyyy-mm-dd") & ".xlsx"
    ActiveWorkbook.SaveAs Filename:=sFileName, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close
    '--- défiltrer
    lo.Range.AutoFilter Field:=lo.ListColumns("Entité").Index
    Set lo = Nothing
End Sub

A comprendre et adapter.
Cordialement.

[MickaelKeul]

C'est top !! merci beaucoup, ça marche parfaitement !!