VBA - Enregistrement en PDF

Y compris Power BI, Power Query et toute autre question en lien avec Excel
D
DELAHAIE
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 28 novembre 2016
Version d'Excel : 2007

Message par DELAHAIE » 29 novembre 2016, 09:06

Bonjour,

Je sais que ce sujet a été maintes fois abordé. J'ai essayé les différentes solutions proposées, mais lorsque je lance la macro, j'ai un bug ou l'enregistrement ne se fait pas là où je le souhaiterai.
Ma problématique : Je dois enregistrer une feuille excel (2007) en PDF en renommant le automatiquement par le contenu d'une cellule. Le pdf doit s'ouvrir à la fin pour impression.
Mon fichier s'appelle : Gestion des litiges, le nom est contenu dans la cellule AC16, et le dossier de destination est : y:\commun\test.
Voici la macro que j'ai fait et merci de me dire où cela pêche:
"Sub Arc()

Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.ExportAsFixedFormat Type:=x2TypePDF
extension = ".pdf"
chemin = "y:\jmarcel\fnc fournisseur\test ne pas utiliser\"

nomfichier = ActiveSheet.Range("AC16") & extension
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier

End With
Quality = xlQualityStandard
IncludeDocProperties = True
IgnorePrintAreas = False
OpenAfterPublish = True
End Sub"

Merci d'avance de me donner un coup de pouce sur cette problématique !
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'737
Appréciations reçues : 576
Inscrit le : 27 août 2012
Version d'Excel : 365 Insider

Message par Jean-Eric » 29 novembre 2016, 09:11

Bonjour,
C'est la journée du PDF. :D
Un lien à consulter : http://www.rondebruin.nl/win/s5/pdf.htm
Cdlt.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
D
DELAHAIE
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 28 novembre 2016
Version d'Excel : 2007

Message par DELAHAIE » 29 novembre 2016, 09:18

Bonjour Jean Eric,

Merci pour cette indication, mais le gros souci , c'est que je ne parle pas un mot d'anglais. Pour faire cette macro, j'ai puisé à droite et à gauche en espérant que cela marche mais là je bloque.

Une bonne journée
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'201
Appréciations reçues : 445
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 29 novembre 2016, 09:32

Bonjour,

Bon ! Pour me réveiller ! :D
Sub Arc()
    Dim chemin As String, nomfichier As String
    chemin = "y:\jmarcel\fnc fournisseur\test ne pas utiliser\"
    With ActiveSheet
        nomfichier = .Range("AC16") & ".pdf"
        .ExportAsFixedFormat xlTypePDF, chemin & nomfichier, openafterpublish:=True
    End With
End Sub
Il serait un peu fastidieux de t'expliquer où cela pêche ! :D (ça pêche beaucoup...)

Cordialement.

Salut JeanEric !
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'737
Appréciations reçues : 576
Inscrit le : 27 août 2012
Version d'Excel : 365 Insider

Message par Jean-Eric » 29 novembre 2016, 09:35

Re,
Essaie ainsi :
Sub Arc()
Dim Chemin As String, nomFichier As String

    Chemin = "y:\jmarcel\fnc fournisseur\test ne pas utiliser\"
    With ActiveSheet
        nomFichier = .Range("AC16") & ".pdf"
        .ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=nomFichier, _
                Quality:=xlQualityStandard, _
                IncludeDocProperties:=True, _
                IgnorePrintAreas:=False, _
                OpenAfterPublish:=True
    End With

End Sub
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
D
DELAHAIE
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 28 novembre 2016
Version d'Excel : 2007

Message par DELAHAIE » 29 novembre 2016, 09:59

Super, le fichier se créé parfaitement, il s'ouvre, mais ne s'enregistre pas sur "y:\jmarcel\fnc fournisseur\test ne pas utiliser\".
Est ce normal ?
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'737
Appréciations reçues : 576
Inscrit le : 27 août 2012
Version d'Excel : 365 Insider

Message par Jean-Eric » 29 novembre 2016, 10:05

Re,
Pour ma part j'ai omis le chemin. :oops:
Prends la réponse de MFerrand (que je salue). Nos propositions sont identiques..
Cdlt.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
D
DELAHAIE
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 28 novembre 2016
Version d'Excel : 2007

Message par DELAHAIE » 29 novembre 2016, 10:20

Un grand merci à tous les 2. Cela marche super bien.

Je vous souhaite de très bonnes fêtes de fin d'année

Cordialement,
Christophe
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message