Export au format pdf
Bonjour chers tous
Ma macro renvoie une erreur d’exécution '1004' du Genre :
Document non enregistré.Le document est peut être ouvert ou une erreur s'est produite lors de l'enregistrement.
Je comprends rien .
Pouvez vous m’éclairer ?
Voici la ligne incriminée
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & fichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Sub Sauvegarder_PPI()
With Sheets("PPI")
If .Range("K7").Value > 0 Then
.Range("$J$9:$K$41").AutoFilter Field:=2, Criteria1:="<>0", _
Operator:=xlAnd
Dim chemin As String
Dim fichier As String
chemin = ThisWorkbook.Path & "\PPI\" 'à adapter
If Dir(chemin, vbDirectory) = "" Then MkDir chemin 'création du sous-dossier
fichier = "PPI ARV" & "-" & Sheets("Menu").Range("C9")
.PageSetup.PrintArea = ""
.PageSetup.CenterHeader = ""
.PageSetup.PrintArea = .Range("A1:K41").Address
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & fichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
.AutoFilterMode = False
End If
End With
End Sub
Bonjour
peut-être
chemin & fichier & ".pdf"
Merci beaucoup
C'est ok