Enregistrement PDF

Bonjour à tous,

J'ai une macro qui met en page une cinquantaine de feuille dans mon classeur via une boucle (La macro s'effectue donc feuille par feuille).

Une fois que cette mise en page est faite, je souhaite rajouter le code afin que l'activesheet s'enregistre au format PDF dans le chemin suivant : X:\Transport\TOM\OUTIL COMPTA\archive

J'ai également besoin de le PDF soit enregistré avec le contenu (texte) de la cellule B7

Je souhaite donc ajouter à mon code de mise en page l'enregistrement de l'activesheet.

Quelqu'un aurai-t-il un pistE?

Merci d'avance pour votre aide

Bonjour,

Une recherche sur le forum, ou encore la liste des sujets identiques en dessous de ce message te fourniront peut-être une aide précieuse.

Tu peux aussi opter pour joindre un fichier représentatif à ta demande.

Cdlt.

Jean-Eric,

Merci pour ta réponse, j'ai parcouru forum mais je n'ai pas rien trouvé qui corresponde à ma demande.

Voici mon code actuel pour l'enregistrement PDF:

    Dim Chemin As String

    Chemin = "X:\Transport\TOM\OUTIL COMPTA\archive"
    Chemin = Chemin & Range("D9").Value & ".pdf"

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

Je rencontre 2 problèmes avec ce code:

  • L'enregistrement ne se fait pas dans : X:\Transport\TOM\OUTIL COMPTA\archive MAIS dans X:\Transport\TOM\OUTIL COMPTA
  • Le PDF ne s'enregistre pas avec la valeur texte de la cellule D9

Ci-joint un exemple.

Merci de ton retour!!

Re,

Essaie ainsi.

La procédure va boucler sur les 3 feuilles de ton classeur pour les enregistrer en pdf.

Assure toi que te cellules D9 comportent une donnée valide (non vide pour commencer).

Cdlt.

Public Sub CreerPDFs()
Dim ws As Worksheet
Dim Chemin As String, Fichier As String

    Chemin = "X:\Transport\TOM\OUTIL COMPTA\archive\"
    For Each ws In ActiveWorkbook.Worksheets
        Fichier = ws.Range("D9").Value
        ws.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=Chemin & Fichier, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
    Next

End Sub

Un grand merci Jean-Eric

Re,

Pense à clore le sujet.

Cdlt.

JeanEric,

ton code a marché lors de mon premier essai mais j'ai fait une second test qui ne marche pas.

J'ai ce message d'erreur:

Erreur d'execution -2147024773 (8007007b)':

La méthode "Exoprt as fixed format' de l'objet '_Worksheet à echoué...

Comprend pas...

Re,

Quelles sont les valeurs que prennent tes cellules en D9 ? N'y a t il pas des caractères non valides ? etc...

Que veux tu que je dise ?

Cdlt.

Jean-Eric,

Je ne suis pas du tout expert en vba. Autrement dit je ne comprend pas le code que tu m'a donné: (je l'ai copié collé betement et ca a fonctionné une fois. Mais pas la deuxieme):

Public Sub CreerPDFs()
Dim ws As Worksheet
Dim Chemin As String, Fichier As String

    Chemin = "X:\Transport\TOM\OUTIL COMPTA\archive\"
    For Each ws In ActiveWorkbook.Worksheets
        Fichier = ws.Range("D9").Value
        ws.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=Chemin & Fichier, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=False
    Next

End Sub

Je me suis assuré que mes cellules D9 ne sont jamais vide (Soit du texte soit des valeurs)

Lorsque je lance la macro, cette partie est en erreur (surlignement en jaune) :

        ws.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=Chemin & Fichier, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=False

Quelles sont les valeurs que prennent tes cellules en D9 ? N'y a t il pas des caractères non valides ? etc...

Etc = ??? Car je ne pense pas qu'il y ai de caractère non valide.

Merci,

Tom

Bonjour,

J'ai de nouveau vérifié chez moi et avec Excel 2013 et je n'ai pas de problèmes.

Mais je travaille en local !

Travailles-tu en réseau ?

Cdlt.

En effet, je suis au bureau en reseau? Ca change quoi?

Re,

Le chemin est certainement à revoir...

Cdlt

Rechercher des sujets similaires à "enregistrement pdf"