Bonsoir chers tous
Je voudrais enregistrer une feuille Excel au format pdf .
Je lance mon code mais un message d'erreur me revient : " document non enregistré"
Sub Sauvegarder_Registre_Inventaire()
Application.ScreenUpdating = False
Dim chemin As String, i, Ls As Long
Dim fichier As String, F As Worksheet
chemin = ThisWorkbook.Path & "\Registres Inventaire\" 'à adapter
If Dir(chemin, vbDirectory) = "" Then MkDir chemin
Application.ScreenUpdating = False
fichier = Sheets("Menu").Range("A5") & "_ REG_INV CMU" & Format(Sheets("Menu").Range("A4"), "mmmm yyyy")
With Sheets("Registre inventaire")
Application.ScreenUpdating = False
.Range("$P$7:$Q$238").AutoFilter Field:=2, Criteria1:="<>0"
.PageSetup.PrintArea = ""
.PageSetup.LeftMargin = Application.InchesToPoints(0.118110236220472)
.PageSetup.RightMargin = Application.InchesToPoints(0.118110236220472)
.PageSetup.PrintArea = .Range("$A$1:$P$242").Address
.PageSetup.PrintTitleRows = "$7:$7"
'.PageSetup.Orientation = xlPortrait
.PageSetup.Orientation = xlLandscape
.PageSetup.Zoom = False
.PageSetup.FitToPagesTall = False
.PageSetup.FitToPagesWide = 1
.PageSetup.RightFooter = "&P de &N"
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
.AutoFilterMode = False
End With
End Sub
L'erreur est signalée ici :
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False