Erreur n°9 de Workbooks

[Un_gars]

Salut;

Sous Win 2000, j'ai un message d'erreur d'exécution "L'indice n'appartient pas à la sélection". A partir du fichier courant 'courant.xls', je veux ouvrir un classeur dans "D:/machin/truc.xls" et faire des manips. Par exemple, je recherche une ligne vide de 'truc.xls' :

Dim str as String

'ouvre un autre classeur
str = "D:/machin/truc.xls"
Workbooks.Open (str)

' Recherche le nouvel enregistrement
Dim i As Integer
i = 6
While Workbooks(str).Worksheets("Feuil1").Range("A" & i) <> ""
i = i + 1
Wend

L'erreur est pointé à la boucle While dans le Workbooks. Aidez-moi SVP

 

[michel]

Bonsoir

peux tu faire un essai en remplaçant Workbooks(str) par ActiveWorkbook

Sub xyz()
Dim str As String
'ouvre un autre classeur
str = "D:\dossier\general\excel\a suivre.xls"
Workbooks.Open (str)
' Recherche le nouvel enregistrement
Dim i As Integer
i = 6
While ActiveWorkbook.Worksheets("Feuil1").Range("A" & i).Value <> ""
i = i + 1
Wend
End Sub


bonne soirée
Michel