XL 2019 La methode range de l'objet a échoué...

[Diterlizzi31]

Bonjour a tous

J'ai un soucis comme inscrit dans le titre...
J'ai beau tourné et retourné mon code dans tout les sens je trouve pas...
Alors un oeil neuf et neutre sera le bienvenue

juste pour le plaisir je vous dit l'idée...
Ces de copier de la feuille "Demandes" des donné sur la feuille "Accueil"
Le code que j'ai est une adaptation d'un code déjas existant


Sub Extraire_Arrivées()
On Error GoTo Extraire_Arrivées_Erreur
Application.ScreenUpdating = False
Worksheets("Demandes").Unprotect
Range("Demandes").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("Critères"), CopyToRange:=Range("Extraction"), Unique:=False
Application.ScreenUpdating = True

Worksheets("Demandes").Range("A4").AutoFilter

Worksheets("Demandes").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True

Worksheets("Accueil").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Worksheets("Accueil").EnableSelection = xlNoSelection

Extraire_Arrivées_Exit:
Exit Sub

Extraire_Arrivées_Erreur:
MsgBox Error$
Resume Extraire_Arrivées_Exit
End Sub



Merci a tout ceux qui saurons m'éclairer sur le sujet

Cordialement

 

[Staple1600]

Bonsoir le fil

Avec un fichier Excel exemple, nous serions rapidement éclairés
Alors téléverse !

 

[JM27]

bonsoir
je ne vois pas de Worksheets("Accueil").UnProtect
en début de macro

 

[laurent3372]

Bonsoir,

Avec ta routine de gestion des erreurs, on ne sait pas quelle ligne provoque l'erreur.
Enlève la ligne :
On Error GoTo Extraire_Arrivées_Erreur

et relance le test. Ca te dira quelle est la ligne qui part en erreur.

 

[Diterlizzi31]

Pas faux didonc...

a force de cligner des yeux on voit plus rien lol

Bon ou je le met maintenant attention si je louche ces foutus

Je peut pas malheureusement partager ce fichier trop de donnée privée
Si jamais les infos que je donne ne suffise pas tant pis pour moi j'ai envis de dire

Je vous tien au courrant si sa suffit a lui décoincer les doigts de la porte

 

[Staple1600]

Re, Bonsoir JM27, sylvanu, laurent3372

Et le fichier exemple? Inutile ?
(cf le message#2)
La cape d'invisibilté d'XLD a encore frappée

 

[Diterlizzi31]

voila ligne retiré

voila celle qui ressort...

Range("Critères"), CopyToRange:=Range("Extraction"), Unique:=False
Application.ScreenUpdating = True


Je vérifie de mon coté également je prend toute idée....

 

[laurent3372]

Ca doit être la plage nommée "Extraction" qui n'est pas définie

 

[Staple1600]

Re

Décidément, quand ca veut pas, ca veut pas
Allo la Terre, ici Staple
(cf message#2 et 6)

 

[laurent3372]

Ou bien la plage nommée "Critères"

 

[JM27]

Je dois être aussi transparent
J'ai testé
Je confirme
Déprotège la feuille Accueil
Cela va fonctionner une seule fois

teste cela

Sub Extraire_Arrivées()
On Error GoTo Extraire_Arrivées_Erreur
Application.ScreenUpdating = False
Worksheets("Demandes").Unprotect
Worksheets("Accueil").Unprotect
Range("Demandes").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("Critères"), CopyToRange:=Range("Extraction"), Unique:=False
Application.ScreenUpdating = True

Worksheets("Demandes").Range("A4").AutoFilter

Worksheets("Demandes").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, AllowUsingPivotTables:=True

Worksheets("Accueil").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Worksheets("Accueil").EnableSelection = xlNoSelection

Extraire_Arrivées_Exit:
Exit Sub

Extraire_Arrivées_Erreur:
MsgBox Error$
Resume Extraire_Arrivées_Exit
End Sub

 

[Diterlizzi31]

Staple désolé...

Vus que je vois pas... je comprend pas le soucis ...

Il est plus simple pour moi de copier coller le code... et pour ce qui est du partage fichier en dehors du code ... je peut vous exporter tout les fichier VBA mais sa va faire un peut lourd...

Je vérifie cette plage extraction en même temps

 

[Staple1600]

Re

je parlais d'un fichier exemple (simplifié) créé pour illustrer la problématique.
(et joins par le demandeur)

Si tu l'avais joins au premier message, on serait déjà en train de faire nos tests dessus

 

[Diterlizzi31]

je prépare un fichier exemple comme demander... je vide les données

J'ai essayer toutes les solution proposé mais rien n'y fait

Merci a vous

 

[laurent3372]

Tu as regardé les plages nommées ?