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