Discussion :

[Simon et ulrich]

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 !!

[Philippe Tulliez]

Bonjour,
Il serait plus simple d'expliquer ce que tu veux faire.
Copier : Une cellule, plusieurs cellules (contiguë, non-contiguë) , une feuille complète, un classeur ?
Vers : Une cellule, plusieurs cellules, une feuille complète, un classeur ?

[Daniel.C]

Bonjour,
"Worksheet" n'est pas une propriété ou une méthode de "Window". Utilise "Workbooks" à la place.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("Essais.xls").Worksheets("Paravertébrale").Cells(k + 57, 2).Value = Workbooks(toto).Worksheets(1).Cells(k + i, j).Value

[Simon et ulrich]

Merci c'était ça tout bêtement.