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 ca 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)
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) :
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 ca 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