[XL-2003] Parcourir une feuille d'un autre classeur [Résolu]

[did85]

Bonjour,
je cherche à lire au fur et à mesure des lignes du haut vers le bas dans une feuille donnée dans un classeur.
Je cherche à utiliser une ligne de code sous la forme :
<Nom du classeur à lire>.<Feuille du classeur à lire>.<parcourir un range de cellules>

J'ai le message d'erreur :

Erreur d'execution 1404 : "La méthode 'Range' de l'objet '_worksheet' a échoué

je ne trouve pas mon erreur dans le code suivant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
Sub Importation(sNomFeuille As String)
    Dim lSource As Long, lDest As Long
    Dim WbSource As Workbook, wbCible As Workbook
    Dim shCible As Worksheet
    Dim rPlageCell As Range

Set WbSource = ThisWorkbook
Set wbCible = Application.Workbooks.Open(Application.GetOpenFilename)
Set shCible = Workbooks(wbCible.Name).Worksheets(sNomFeuille)

For lSource = 3 To shCible.Range("A56536").End(xlUp).Row
    'Set rPlageCell = shCible.Range("A" & lSource) 'Cette ligne fonctionne
    Set rPlageCell = shCible.Range(Cells(lSource, 1), Cells(lSource, 3))
Next lSource
End Sub

En rouge la ligne qui provoque l'erreur, je dois mal me débrouiller avec l'utilisation :

Code :

range(cells(lig, col), cells(lig,col))

Le ligne du dessus en commentaire fonctionne, mais ne me permet pas de lire la plage de cellules dont j'ai besoin par la suite.

Je vous joins les 2 fichiers que j'ai épuré pour l'exemple.
Le fichier classeursource.xls est à ouvrir en 1er, puis un clic sur le bouton Importation dans un des onglets demande l'ouverture du second fichier : classeurcommande.xls

Merci de votre aide
Did85

[did85]

J'ai trouvé, il faut ajouter dans la ligne en rouge :

Code :

Set rPlageCell = shCible.Range(shCible.Cells(lSource, 1), shCible.Cells(lSource, 3))

Merci

[Fvandermeulen]

Salut,
Quand tu utilise Range(Cells(x,y),cells(x,z)) il vaut toujours mieux préciser la feuille sur laquelle la plage doit être récupérée, surtout si tu travaille avec deux fichiers.
En fait la fait de préciser avant Range ne suffit pas car il considère que Cells appartient à la feuille active.
Ta ligne doit donc s'écrire

Code :

Set rPlageCell = shCible.Range(shCible.Cells(lSource, 1), shCible.Cells(lSource, 3))

A+

Edit: Post inutile, désolé j'avais pas rafraichi...