Erreur d'exécution
Bonjour à tous,
Lorsque j'ouvre le document (feuille "ETIQUETTES EXPE") et lance la macro "Filtrer_DP_Etiquettes_Expe()" (bouton "FILTRER DP), une erreur d'éxécution '1004' apparaît.
L'erreur se situe à la ligne 3 de la macro :
Sub Filtrer_DP_Etiquettes_Expe()
Sheets("ETIQUETTES EXPE").Select
Range("C1").Font.Color = RGB(0, 255, 0)
If Application.WorksheetFunction.CountIf(Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row), Range("C1")) = 0 Then
MsgBox "N° DP introuvable : " & Range("C1")
Exit Sub
End If
Selection.AutoFilter Field:=1, Criteria1:=Range("C1")
Selection.AutoFilter Field:=2, Criteria1:="DS"
derlig = Sheets("ETIQUETTES EXPE").Range("A65536").End(xlUp).Row
Range("A2").Select
Application.CutCopyMode = False
Worksheets("ETIQUETTES EXPE").Protect UserInterfaceOnly:=True
End SubL'erreur disparaît lorsque j'ôte la protection de la feuille (mot de passe : magasin)
Auriez-vous une idée pour résoudre ce problème tout en conservant la protection de la feuille?
Merci
Fabien
Bonjour Fabien55, le forum,
L'erreur disparaît lorsque j'ôte la protection de la feuille (mot de passe : magasin)
Peut-être faut-il déprotéger la feuille en début de macro pour qu'elle puisse faire son travail, puis la protéger de nouveau en fin de macro,
Cordialement,
Bonjour xorsankukai,
Merci
Voici la solution pour ceux à qui ça porrait intérésser :
Déprotéger le classeur : ActiveWorkbook.Protect Structure:=False, Windows:=True, password:="magasin"
Protéger le classeur : ActiveWorkbook.Protect Structure:=true, Windows:=True, password:="magasin"