Syntaxe VBA pour copie entre fichiers XL

Marsh Posté le 23-05-2008 à 10:19:19

Bonjour,

Je veux copier la valeur d’une cellule d’un classeur dans une cellule d’un autre classeur – les deux étant ouverts, hein.

Qu'est-ce qui cloche dans ma syntaxe ci-dessous ?

Workbooks("Classeur2.xls" ).Worksheets(Feuil1).Range("J31" ) = Workbooks("Classeur1.xls" ).Worksheets(Feuil1).Range("C17" )

Merci !

---------------
Benoît

Marsh Posté le 23-05-2008 à 10:19:19

Marsh Posté le 23-05-2008 à 10:37:28

J'ai trouvé, hum : histoire de GUILLEMETS, simplement...
... Worksheets("Feuil1" )...

Mais si qqn a une syntaxe plus légère, je suis preneur...

Marsh Posté le 25-05-2008 à 14:54:58

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

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *