Re : Copier coller automatique entre plusieurs classeurs
J'ai trouvé une solution qui fonctionne :
Sub Macro1()
'
Windows("Classeur1").Activate
Range("A1:I34").Select
Selection.Copy
Windows("Classeur4").Activate
Cells(65535, 1).End(xlUp)(2).Select
ActiveSheet.Paste
Windows("Classeur2").Activate
Range("A1:I34").Select
Selection.Copy
Windows("Classeur4").Activate
Cells(65535, 1).End(xlUp)(2).Select
ActiveSheet.Paste
Windows("Classeur3").Activate
Range("A1:I34").Select
Selection.Copy
Windows("Classeur4").Activate
Cells(65535, 1).End(xlUp)(2).Select
ActiveSheet.Paste
End Sub
le seul soucis c'est que je voudrais faire ce travail sur un serveur, les classeur 1,2 et 3 sont des exportations excel de données contenues dans un logiciel. Le problème c'est que quand je copie cette macro dans un nouveau classeur 4 dans le serveur, ça ne fonctionne pas ("l'indice n'appartient pas à la sélection") !! Je ne comprend pas pourquoi, tout est identique pourtant, vous avez une idée?