Bonjour

Partant d'un classeur "Base" (qui est ouvert et dans lequel je suis), je cherche a sauvegarder des données dans un autre classeur "Toto"
J'ai bien un code qui marche mais je voudrais diminuer le nombre de lignes

J'appelle d'abord Toto

Workbooks.Open Filename:="K:\Toto.xlsx"

Je dois l'ouvrir à chaque fois car j'ai beaucoup de fichiers à créer depuis ma base, les lignes étant différentes à chaque fois, je veux les sauvegarder sous des noms différents, Titi, Tata etc...
Mais ça j'y arrive, mon souci est d'arriver à copier coller sur des fichiers différents

Je revient sur "Base", vais dans la feuille qui m'intéresse copie, passe a toto et colle (dans la même feuille)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Windows("Base.xlsm").Activate
Sheets("HA").Select
Rows("4:12").Select
Selection.Copy
Windows("Toto.xlsx").Activate
Sheets("HA").Select
Range("A4").Paste
On m'a donné un autre code sensé fonctionner qui pourrait faire la même chose, il a que 2 lignes (hors ouverture de toto) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Workbooks.Open Filename:="K:\Toto.xlsx"
Workbook("Base.xlsm").Sheets("HA").Rows("4:12").Copy
Workbook("Toto.xlsx").Sheets("HA").Range("A4").Paste
Sauf que ça ne marche pas , Il ne comprend pas les Workbook : Sub ou fonction mal définie.
J'ai essayé d'activer la fenêtre avant, mais je n'y arrive pas, je n'ai pas l'impression que l'erreur vient de là..

Merci beaucoup pour votre aide