Bonjour à tous,

Je me trouve face à une bizarrerie...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Set wbSource = ThisWorkbook
'chemin = "\\Scm1\....xls"
Workbooks.Open chemin
Set wbCible = Workbooks("Document2.xls")
 
Set shSource = wbSource.Sheets(3)
Set shCible = wbCible.Sheets(2)
 
'... un certain nombre d'action où je ne redéfinis jamais ni classeur ni feuille.
 
Set CelSource = shSource.Range(Cells(1, 1), Cells(4, 4))
Set CelCible = shCible.Range(Cells(1, 1), Cells(4, 4))
Il me met en débogage sur l'avant dernière ligne : "Erreur d'éxecution 1004 : La méthode 'Range' de l'objet '_worksheet'a échoué", alors que si je mets :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Set CelSource = shSource.Range("A1:D4")
Set CelCible = shCible.Range("A1:D4")
Ca passe nickel !

Avez vous une explication... Car pour moi, c'est un grand mystère...