U
Un_gars
Guest
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
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