Discussion :

[Secco]

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

[papimcha]

Bonjour,

j'ai eu le même soucis mais en signalant sur quelle feuille se situe les cellules, je n'ai eu aucun souci.
Tu dis.

Code :

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

1
2
Set CelSource = shSource.Range(shSource.Cells(1, 1), shSource.Cells(4, 4))
Set CelCible = shCible.Range(shSource.Cells(1, 1), shSource.Cells(4, 4))

Cordialement.

[Secco]

Merci beaucoup !!!