[XL-2003] Erreur "L'indice n'appartient pas à la sélection" [Résolu]

[Nemo33]

Bonjour,

Je débute en VBA et j'ai déjà des erreurs
Je souhaiterai récupérer les données qui sont dans un classeur (dont l'adresse est dans une cellule du classeur contenant la macro). A l'exécution, le message d'erreur "L'indice n'appartient pas à la sélection" apparait et je ne comprends pas pourquoi.
Voilà mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim wb1 As Workbook
Dim chemin1 As String
Sub zero()
 
chemin1 = Sheets("Console").Cells(2, 2)
 
Set wb1 = Workbooks.Open(chemin1)
 
Dim i As Integer
 
For i = 3 To 23
Sheets("Résultats").Cells(i, 3) = wb1.Sheets("Rapport1").Cells(i + 2, 4)
Sheets("Résultats").Cells(i, 4) = wb1.Sheets("Rapport1").Cells(i + 2, 6)
Sheets("Résultats").Cells(i, 5) = wb1.Sheets("Rapport1").Cells(i + 2, 5) + wb1.Sheets("Rapport1").Cells(i + 2, 6)
 
Next
 
End Sub

Merci d'avance, Bonne journée

[bbil]

l'erreur apparait sur qu'elle ligne ?

avec le code suivant tu ne précise pas le classeur concerné ce que je déconseille.(comme d'autre..) :

Code :

Sheets("Résultats")...

s'il s'agit du classeur contenant ton code place rajoute devant "ThisWorkbook"

[Nemo33]

Merci beaucoup ça marche !
Bonne journée