Bah, en soit il n'y a pas de syntaxe plus légère sauf si tu as pleins de cellules à copier. Dans ce cas, un code de ce type peut-être plus "propre" :
Code :
- Dim shSource as Worksheet
- Dim shTarget as Worksheet
- Set shSource = Workbooks("Classeur1.xls" ).Worksheets("Feuil1" )
- Set shTarget = Workbooks("Classeur2.xls" ).Worksheets("Feuil1" )
- With shTarget
- .Range("J31" ) = shSource.Range("C17" )
- .Range(...) = shSource.Range(...)
- ...
- End With
|
Cette syntaxe est largement préférable :
- pour + d'une valeur
- surtout pour des raisons de maintenabilité (si jamais il faut rajouter une valeur à copier par la suite, ou si les feuilles changent de noms, ...)
Message édité par dreameddeath le 25-05-2008 à 19:22:40
