Microsoft 365 Export PDF filtre après filtre automatiquement

[DELATTE]

Bonjour à tous,

Afin de créer automatiquement des détails de paiements fournisseurs, j'aimerais exporter en PDF un document pour chaque fournisseur existant.

Pour le moment, la macro présente sur le dessin entonnoir permet de filtre sur le numéro de fournisseur choisi.

Ensuite, manuellement, je fais exporter en PDF, et je nomme le fichier "Numéro Frs - Nom Frs" que j'enregistre dans un dossier en particulier.

J'aimerais automatiser ce travail : Filtrer premier fournisseur par ma macro en indiquant F0012, exporter en PDF avec comme nom de fichier le numéro et nom filtré, enregistrer dans C:/Frs et ensuite passer au fournisseur suivant.

Merci d'avance pour votre aide.

 

[Jacky67]

Bonjour à tous,

Afin de créer automatiquement des détails de paiements fournisseurs, j'aimerais exporter en PDF un document pour chaque fournisseur existant.

Pour le moment, la macro présente sur le dessin entonnoir permet de filtre sur le numéro de fournisseur choisi.

Ensuite, manuellement, je fais exporter en PDF, et je nomme le fichier "Numéro Frs - Nom Frs" que j'enregistre dans un dossier en particulier.

J'aimerais automatiser ce travail : Filtrer premier fournisseur par ma macro en indiquant F0012, exporter en PDF avec comme nom de fichier le numéro et nom filtré, enregistrer dans C:/Frs et ensuite passer au fournisseur suivant.

Merci d'avance pour votre aide.

Bonjour,
Une proposition avec ce code
Le répertoire "Frs" doit exister sur le lecteur "C" dans cet exemple

Sub ExtrationEnPDFJJ()
    Dim Plage, C As Range, tmp$
    If Feuil2.FilterMode Then Feuil2.ShowAllData
    Application.ScreenUpdating = False
    Set Plage = Feuil2.Range("a1:a" & Feuil2.Cells(Feuil2.Rows.Count, "A").End(xlUp).Row)
    For Each C In Plage
        If UCase(Left(C, 5)) = "TOTAL" Then
            tmp = Mid(C, 7, 9 ^ 9)
            Plage.AutoFilter Field:=1, Criteria1:="*" & tmp & "*"
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Frs\" & Replace(tmp & " " & C.Offset(, 1), "/", "-")
        End If
    Next
    Plage.AutoFilter
End Sub

 

[DELATTE]

Bonjour Jacky,

Un grand merci à vous.

Excellente journée.

Cordialement,

JP