XL 2016 Erreur d'execution 5

[KTM]

Bonsoir Chers tous
Je suis entrain de passer un sale quart d'heure avec ma macro
Je voudrais sauvegarder au format pdf un document via une macro.
Elle a fonctionné correctement une fois et maintenant lorsqu'elle est exécutée un message d'erreur 5: " argument ou appel de procédure incorrecte "
je comprends plus rien. Quelqu’un pourrait- il m'apporter des explications ? Merci

Sub Sauvegarder_Registre()
Application.ScreenUpdating = False
With Sheets("Registres")
.Unprotect "2580"
.Range("$A$7:$B$39").AutoFilter Field:=2, Criteria1:="<>0", _
Operator:=xlAnd
Dim chemin As String
Dim fichier As String
chemin = ThisWorkbook.Path & "\Registres\"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin
fichier = Sheets("Menu").Range("C11") & "-" & "Registre" & "-" & .Range("A2") & "_" & Format(Sheets("Menu").Range("C9"), "mmmm yyyy")
.PageSetup.PrintArea = ""
.PageSetup.PrintArea = .Range("A1:E39").Address
........................................................................................................................................................................ligne d'ou vient l'erreur
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & fichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
......................................................................................................................................
.AutoFilterMode = False
.Protect "2580"
End With
End Sub

 

[sousou]

En changeant chemin et fichier pour test
Ca fonctionne chez moi

 

[KTM]

En changeant chemin et fichier pour test
Ca fonctionne chez moi

j'ai pas bien saisi . Que voulez vous dire ?

 

[sousou]

J ai simplement changer la variable chemin et la variable fichier, pour appliquer la procédure à mon context

 

[KTM]

J ai simplement changer la variable chemin et la variable fichier, pour appliquer la procédure à mon context

Étrange phénomène !!
Toujours le même problème

 

[KTM]

Étrange phénomène !!
Toujours le même problème

Oups!!!!!
Toutes mes excuses à vous
Je viens de me rendre compte que je suis en train de travailler sur un classeur ou des feuilles sont souvent masquées.
La macro étant située sur une autre feuille (Tableau de Bord ); je devais rendre ma feuille " Registres " visible avant de pouvoir l'exporter au format pdf. Donc ajouter .Visible=true a mon debut de code.
Sinon ma macro est correcte.
Merci pour votre intervention.

 

[sousou]