Définir des plages en VBA pour copier/coller dasn autre classeur

[Jacques25]

Bonjour à tous,

Afin de simplifier un code je souhaiterai savoir s'il est possible de définir des plages dans une feuille pour les coller en une seule fois dans un autre classeur. Sachant que j'ai 5 plages non contigüe à coller dans un ordre différents.

Actuellement à chaque plage je passe d'un fichier à l'autre avec :

dl = ActiveSheet.Range("D5000").End(xlUp).Row

ActiveSheet.Range("C3😀" & dl).Copy

Windows("toto.xls").Activate
Range("M2").Select
ActiveSheet.Paste

windows("toto2.xls).activate
ActiveSheet.Range("H3:H" & dl).Copy

Windows("toto.xls").Activate
Range("B2").Select
ActiveSheet.Paste

...

J'imagine quelque chose de la sorte (ne vous arrachez pas les cheveux, c'est juste une idée, un croquis de ce que je souhaiterai):

nom = ActiveSheet.Range("C3😀" & dl)
numero = ActiveSheet.Range("H3:H" & dl)
...

nom.copy
numero.copy

windows("toto").activate

Range("M2").Select
ActiveSheet.Paste (il faudrait copier nom)

Range("B2").Select
ActiveSheet.Paste (il faudrait copier Numero)

J'espère que c'est assez clair même si ça neressemble à rien et que quelqu'un pourra m'aider.

Bonne journée.

Jack

 

[Jacques25]

Re : Définir des plages en VBA pour copier/coller dasn autre classeur

Re,

C'est OK ça marche, mon code est optimisé comme je le souhaitai. Merci pour ton aide précieuse.

Bonne fin de journée à tous,

Jacques