Exporter en pdf une feuille dans plusieurs classeurs

Bonjour à tous,

Grande débutante en VBA....: je rencontre une problématique pour réaliser un export pdf d'une feuille en boucle sur différents classeurs ouverts :

Mon code est le suivant :

Sub exportpdf()

Dim Cls As Integer

' pour passer au classeur suivant si A pas trouver

On Error Resume Next

For Cls = 1 To Windows.Application.Workbooks.Count

Nomfichier = Range("C8").Value & ".pdf"

Dossier = xxx

Chemin = Dossier & Nomfichier

Sheets("3-Fiche opération").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _

:=False, OpenAfterPublish:=False

Next Cls

End Sub

Il exporte bien un pdf avec le bon nom dans le bon dossier mais uniquement la feuille du classeur qui contient la macro, sans passer aux classeurs suivants.

Mille remerciements à celui ou celle qui pourra m'apporter son aide.

Cordialement,

Valérie

Bonjour Valérie1891,

un exemple à tester (wb.Sheets(1) indique la première feuille de chaque classeur - à adapter si nécessaire):

Sub exportpdf()

    Dim wb          As Workbook
    Dim Nomfichier  As String, Dossier As String, Chemin As String

    For Each wb In Application.Workbooks

        ' pour passer au classeur suivant si A pas trouver
        On Error Resume Next

        Nomfichier = wb.Sheets(1).Range("C8").Value & ".pdf"
        Dossier = "xxx"
        Chemin = Dossier & Nomfichier

        wb.Sheets(1).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
                                         :=False, OpenAfterPublish:=False

    Next wb

End Sub

Mille remerciements, cela fonctionne parfaitement.

Cordialement,

Valérie

Rechercher des sujets similaires à "exporter pdf feuille classeurs"