Export feuilles Excel en PDF

Bonjour,

Je me casse la tête sur une opération qui va sembler être simple pour ceux qui maîtrise le VBA.

Voila mon équation :

J'ai un fichier Excel d'une centaine de feuilles.

Je souhaite exporter chacune des feuilles dans un fichier PDF différent qui aura pour nom le contenu de la cellule B7

Merci d'avance pour votre aide

Bonjour,

Ton profil indique que tu utilises Excel 2002 !...

Peux-tu confirmer la chose ?

Cdlt.

Bonjour bricoleur, Jean-Eric, le forum,

A tester.....

Sub exportPDF()

Dim Ws As Worksheet, nompdf As String, dossier As String

  For Each Ws In ThisWorkbook.Worksheets

    'dossier = ThisWorkbook.Path
    dossier = "C:\Users\maison\Desktop\Nouveau dossier\"    ' a adapter
    nompdf = Ws.Range("B7")
    chemin = dossier & nompdf

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  Next Ws

End Sub

Sous réserve que cette macro soit compatible avec ta version d'excel (testée sous excel 2010),

Cordialement,

Re,

@ xorsankukai,

Si Excel 2002, ta procédure ne pourra pas fonctionner.

ExportAsFixedFormat est apparu avec Excel 2007 !...

Cdlt.

Re,

@Jean-Eric :

Si Excel 2002, ta procédure ne pourra pas fonctionner.

Je m'en doutais un peu vu ton précédent post...merci pour l'info,

Amicalement,

Excusez moi, je n'avais pas mis à jour mon profil (C'est fait désormais)

J'ai une version Excel 2016

Merci pour votre contribution rapide.

Cependant, la macro me créer bien le nombre de fichier correspondant aux onglets mais le contenu de chacun des fichiers pdf est identique à la 1ère feuille

plus précisément : identique à la feuille depuis laquelle j'exécute la macro

Re,

Oups....un petit oubli...remplace:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

par

Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

....Acivesheet = feuille active; Ws = toutes les feuilles

Sub exportPDF()

Dim Ws As Worksheet, nompdf As String, dossier As String

  For Each Ws In ThisWorkbook.Worksheets

    'dossier = ThisWorkbook.Path
    dossier = "C:\Users\maison\Desktop\Nouveau dossier\"    ' a adapter
    nompdf = Ws.Range("B7")
    chemin = dossier & nompdf

 Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  Next Ws

End Sub

Cordialement,

Bonjour,

Essaie ainsi :

Sub exportPDF()
Dim Ws As Worksheet, nompdf As String, dossier As String
    Application.ScreenUpdating = False
    dossier = "C:\Users\maison\Desktop\Nouveau dossier\"    ' a adapter
    For Each Ws In ThisWorkbook.Worksheets
        nompdf = Ws.Range("B7")
        chemin = dossier & nompdf
        Ws.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=chemin, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
    Next Ws

End Sub

J'ai un problème, lors de l'exécution de la macro, le système me renvoi un deboggage en surlignant toute la ligne :

Ws.ExportAsFixedFormat _

Type:=xlTypePDF, _

Filename:=chemin, _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False

Le code n'est pas incorrect car quand je le test (sous Excel 2016) avec un fichier contenant 3 onglets et seulement quelques champs de rempli, cela fonctionne très bien.

Par contre quand je l'exécute depuis le fichier souhaité (100 onglets et énormément de champ saisi) cela renvoi l'erreur.

Le contenu de chaque feuille peut elle créer cette erreur ? (exemple des champs qui font déborder l'impression PDF sur une autre page ou autre ou bien un contenu qui génèrerait une erreur)

Bonjour,

Il faut certainement définir des plages de cellules et non des feuilles entières !...

Cdlt.