Bonjour à toutes et à tous !

J'essaie de récupérer certaines valeurs d'un classeur excel vers un autre, tout cela dans plusieurs sheets (pour rendre les choses + sympa !)

Du coup j'ai essayé un truc du genre :

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
16
17
18
19
20
21
22
 
Dim chemin As String
chemin = "C:\Documents and Settings\valdenai\Mes documents\Comparaison VMAT - CK\Patients\"
 
Workbooks.Open Filename:=chemin & Worksheets("Paravertébrale").[B4].Value & ".xls"    ' (Ici le chemin est complété par une chaines contenue dans la feuille "paravertébrale"...)  
toto = ActiveWorkbook.Name
 
For i = 48 To 52
For j = 1 To 10
 
If Cells(i, j).Value Like "*Dose (%)*" Then
 
For k = 0 To 1000
 
Windows("Essais.xls").Worksheets("Paravertébrale").Cells(k + 57, 2).Value = Workbooks(toto).Worksheets(1).Cells(k + i, j).Value
 
Next k
 
End If
 
Next j
Next i

Seulement malédiction, tout cela ne marche point !
On me dit : Propriété ou méthode non gérée par cet objet en me surlignant la grande ligne.
Je ne veux pas passer par des copier-coller car j'aurai en plus de celle-la beaucoup d'autre chose à copier et les "sélect" a foison me font peur...


Une idée ?

Merci !!