Bonjour,

J'étais entrain de tester ma gestion d'erreur lorsque je me suis aperçu qu'il y a des erreurs récurantes sur une partie de code.

Voici le bout de code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
    ThisWorkbook.Activate
    ActiveWorkbook.Sheets("LISTE").Activate
    Range("A10").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Application.CutCopyMode = xlCopy
    Selection.Copy
 
 
    Workbooks("Fichier2.xls").Activate
    ActiveWorkbook.Sheets("LISTE").Activate
    Range("A10").Select
    ActiveWorkbook.ActiveSheet.Paste
    Application.CutCopyMode = False
Le principe si j'ai bien compris est de copier les cellules de la feuille LISTE du fichier 1 vers la feuille LISTE du fichier 2

En faisant du pas à pas, soit l'application EXCEL reste bloqué et je suis obligé de la tuer soit j'ai ses messages là :
Erreur n°1004 Description: La méthode 'Range' de l'objet '_Global' a échoué

Erreur n°1004 Description: Erreur définie par l'application ou par l'objet

Erreur n°1004 Description: La méthode Paste de la classe Worksheet a échoué.

Erreur n°9 Description: L'indice n'appartient pas à la sélection.
D'abord j'aimerais savoir si ce code ci est juste, car il fonctionnait avant ma gestion d'erreur?
Si non, pouvez vous m'indiqué une solution?

Cordialement