Enregistrement PDF Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
T
Tom Colbert
Jeune membre
Jeune membre
Messages : 26
Inscrit le : 29 mars 2016
Version d'Excel : 2007

Message par Tom Colbert » 31 mars 2016, 09:48

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
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'606
Appréciations reçues : 564
Inscrit le : 27 août 2012
Version d'Excel : 365 Insider

Message par Jean-Eric » 31 mars 2016, 11:04

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

Je ne réponds pas aux M.P. non sollicités.
T
Tom Colbert
Jeune membre
Jeune membre
Messages : 26
Inscrit le : 29 mars 2016
Version d'Excel : 2007

Message par Tom Colbert » 31 mars 2016, 11:21

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!!
Version Forum 2.xlsm
(73.22 Kio) Téléchargé 26 fois
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'606
Appréciations reçues : 564
Inscrit le : 27 août 2012
Version d'Excel : 365 Insider

Message par Jean-Eric » 31 mars 2016, 11:46

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
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
T
Tom Colbert
Jeune membre
Jeune membre
Messages : 26
Inscrit le : 29 mars 2016
Version d'Excel : 2007

Message par Tom Colbert » 31 mars 2016, 11:53

Un grand merci Jean-Eric :twisted: :twisted: :twisted: :twisted: :twisted: :twisted: :twisted: :twisted: :twisted: :twisted: :twisted: :twisted: :twisted: :twisted: :twisted: :twisted: :twisted: :twisted: :twisted:
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'606
Appréciations reçues : 564
Inscrit le : 27 août 2012
Version d'Excel : 365 Insider

Message par Jean-Eric » 31 mars 2016, 11:54

Re,
Pense à clore le sujet.
Cdlt.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
T
Tom Colbert
Jeune membre
Jeune membre
Messages : 26
Inscrit le : 29 mars 2016
Version d'Excel : 2007

Message par Tom Colbert » 31 mars 2016, 12:38

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é...

:oops: Comprend pas...
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'606
Appréciations reçues : 564
Inscrit le : 27 août 2012
Version d'Excel : 365 Insider

Message par Jean-Eric » 31 mars 2016, 15:42

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 réponds pas aux M.P. non sollicités.
T
Tom Colbert
Jeune membre
Jeune membre
Messages : 26
Inscrit le : 29 mars 2016
Version d'Excel : 2007

Message par Tom Colbert » 1 avril 2016, 10:06

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
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'606
Appréciations reçues : 564
Inscrit le : 27 août 2012
Version d'Excel : 365 Insider

Message par Jean-Eric » 1 avril 2016, 10:37

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.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message