Macro enregistrement en pdf

Bonsoir à tous,

Je reviens vers vous pour un pb de code.

Je voudrais modifié le code pour qu'Excel prenne lors de l'enregistrement le numéro de facture que j'ai dans la feuille "Facture" en C13.

Merci d'avance et pour votre aide

Sub enregistrement_pdf()
'
' enregistrement_pdf Macro
'

'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Jérôme\Documents\BET Metreur\Facture\Facture clients\Facture pdf\Facturation.pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
End Sub

Bonsoir,

Essaie ainsi :

Public Sub enregistrement_pdf()
Dim Chemin As String, nomFichier As String

    Chemin = "C:\Users\Jérôme\Documents\BET Metreur\Facture\Facture clients\Facture pdf\"
    nomFichier = ActiveSheet.Range("C13").Value

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

End Sub

Bonsoir Jean-Eric

Cela ne fonctionne pas j'ai un message d'erreur d’exécution.

Re,

Tu peux préciser la ligne de code ou se situe l'erreur?

cdlt.

C'est tout le paragraphe ci-dessous qui est en jaune fluo.

ActiveSheet.ExportAsFixedFormat _

Type:=xlTypePDF, _

Filename:=Chemin & nomFichier, _

Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False

Le message "document non enregistré"

Re,

Le chemin et le nom du fichier sont-ils valides?

Modifie :

 nomFichier = ActiveSheet.Range("C13").Value

par

 nomFichier = ActiveSheet.Range("C13").Value & ".pdf"

Cdlt.

Super Merci

il manquait le &"pdf" pour le nomfichier

Je note résolu.

On peut toujours faire confiance aux personnes du Forum Excel-pratique.

Merci à toi

Rechercher des sujets similaires à "macro enregistrement pdf"