Re : Copier une macro par une macro
Merci pour ta contribution kjin, cependant à cause de la taille de l'onglet à copier dans un autre classeur, je ne souhaite pas utiliser la ligne:
Sheets("Synthèse").Copy,
mais à la place:
Cells.Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
d'où mon problème pour copier le module et le bouton par une macro... j'ai donc essayé les export et/ou import de macro, mais sans réussite.
J'ai d'autres fichiers identiques mais 10 fois plus léger, pour lesquels j'ai utilisé : Sheets("Synthèse").Copy, et je suis arrivé à y faire tout ce que je voulais, mais là pour mon gros fichier la copie de l'onglet prend une minute!!!
Et sinon à la ligne:
With wkb1.VBProject.VBComponents("Module1").CodeModule
Lcode = .Lines(1, .CountOfLines)
il me dit qu'il y a une erreur d'éxécution '1014' et que l'erreur est définie par l'application ou par l'objet.