Macro pour enregistrer une feuille excel en format pdfRésolu/Fermé

Question

Bonjour à tous,   voici mon code:

Sub Stat_Lundi()

    'Enregistrement du fichier Stat.
With Worksheets("Lundi")
fichier = "Stat_lundi" & ".pdf"
Dossier = "C:\Users\utilisateur local\Desktop\Mondossier\"
Chemin = Dossier & fichier

.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End With
    
End Sub

Office 2007
Windows 8.1 64bits

Cela bloque toujours sur la ligne ".ExportAsFixedFormat...." 

et la petite flèche jaune pointe sur la seconde ligne (IncludeDocProperties....)

Est-ce qu'un connaisseur peut me sortir de ce labyrinthe ?

J'ai passé des heures a chercher sur internet et ces deux lignes me semblent correctes mais...!.

Merci !





Configuration: Windows / Firefox 69.0

cs_Le Pivert · Answer

Bonjour,

cela fonctionne, mais il faut un dossier nommé "Mondossier" sur le Bureau:


Sub Stat_Lundi()
Dim fichier, Dossier, chemin
'Enregistrement du fichier Stat.
With Worksheets("Lundi")
fichier = "Stat_Lundi" & ".pdf"
Dossier = "C:\Users\LePivert\Desktop\Mondossier\"
chemin = Dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        chemin, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End With
End Sub
 

Voilà

Macro pour enregistrer une feuille excel en format pdf

1 réponse

Newsletters