KTM
XLDnaute Impliqué
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
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