VBA - Enregistrement en PDF

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 !

Bonjour,

C'est la journée du PDF.

Un lien à consulter : http://www.rondebruin.nl/win/s5/pdf.htm

Cdlt.

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

Bonjour,

Bon ! Pour me réveiller !

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 ! (ça pêche beaucoup...)

Cordialement.

Salut JeanEric !

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

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 ?

Re,

Pour ma part j'ai omis le chemin.

Prends la réponse de MFerrand (que je salue). Nos propositions sont identiques..

Cdlt.

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

Rechercher des sujets similaires à "vba enregistrement pdf"