Erreur d'éxecution 9

[benoit73]

Bonjour,
j'ai créé une macro qui me met un message "erreur d'éxécution 9".
Pourquoi ?
Voici le code, et en pièce jointe mon fichier.
Sub Macro1()

Sheets("RESULTAT").Select
Cells.ClearContents
Sheets("2012RH008").Select

ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Criteria1:="Monsieur"
Range("A1:V" & Range("A65535").End(xlUp).Row).Select
Selection.Copy
Sheets("RESULTAT").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("2012RH008").Select
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1


Application.ScreenUpdating = True
MsgBox ("Opération de transfert terminée")
End Sub

 

[mromain]

Re : Erreur d'éxecution 9

Bonjour Benoit,

Une solution serait de remplacer dans ton code

ActiveSheet.ListObjects("Tableau1").Range

par

ThisWorkbook.Names("Tableau1").RefersToRange

Bonne journée

Miki

 

[benoit73]

Re : Erreur d'éxecution 9

Merci,
ça fonctionne beaucoup mieux maintenant.

 

[cavo789]

Re : Erreur d'éxecution 9

Salut

Juste une appréciation : ton code ne contient aucun contrôle comme par exemple vérifier si "Tableau1" est un nom existant. Ce type de test permet de plus aisément comprendre ce qui coince et où.