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

Diterlizzi31

XLDnaute Nouveau
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
 

Diterlizzi31

XLDnaute Nouveau
Voici le fameux fichier

jéspère que le fait de retirer les donnée ne l'on pas trop pourris... sur le principe je pense pas

Merci a vous pour votre temps

Sinon staple si je crois que j'ai finis par comprendre... quand je met du code VBVA il y a une manip a faire pour qu'il apparaisse jolie pour vous...

je vais faire attention la prochaine fois

Cordialement
 

Pièces jointes

  • exemple vierge.xlsm
    207 KB · Affichages: 6

Staple1600

XLDnaute Barbatruc
Re

Sylvanu avait soulevé le lièvre ;)

=>Diterlizzi31
Fais ce test
VB:
Sub Extraire_Arrivées_test()
Application.ScreenUpdating = False
Worksheets("Demandes").Unprotect
Worksheets("Accueil").Unprotect
MsgBox Range("Demandes").Address
End Sub
 
Dernière édition:

laurent3372

XLDnaute Impliqué
Supporter XLD
C'est bien ce que je pensais. Les noms "Extraction" et "Demandes" ne sont pas définis.
Par contre il y existe une plage nommée "Extraire" qui semble convenir à la place d"Extraction"
Il n'y a pas de plage nommé "Demandes".

Cela explique le message d'erreur signalé (méthode Range a échoué).

Cordialement,
--
LR
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 945
Membres
101 849
dernier inscrit
florentMIG