Discussion :

[Alvaten]

Bonjour,

Je développe actuellement un code VBA pour Excel qui copie une feuille de mon classeur principale dans un nouveau classeur et le sauvegarde. Le truc est que j'ai une macro dans la feuille Excel copié et lors de la copie, l'objet bouton est copié mais pas le code de la macro, la macro du nouveau classeur point vers le module du classeur principal. Vous suivez ?

Avez-vous une solution pour copier le code concerné dans un module dans le nouveau classeur de façon à ce que si je donne mon nouveau classeur à quelqu'un sans le classeur principal ma macro fonctionne quand même ?

Merci d'avance.

Alvaten

[cafeine]

Hello,

c'est pas plus simple de faire un enregistrer sous et de supprimer toutes les feuilles sauf la principale ?

[fred65200]

Bonsoir,

Tu peux toujours exporter ta macro dans ton nouveau classeur
Par exemple place ta macro seule dans un module nommé "modExport"

ensuite la macro suivante
Exportera le module modExport dans un fichier temporaire.
Importera ce fichier temporaire dans le classeur actif.
Supprimera le fichier temp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Sub ExportationModule()
Quoi = "modExport" ' remplace modExport par le nom du module à exporter
ThisWorkbook.VBProject.VBComponents(Quoi).Export ("temp.bas")
ActiveWorkbook.VBProject.VBComponents.Import ("temp.bas")
Kill ("temp.bas")
End Sub

[Alvaten]

Merci, le module à bien été copié, le problème c'est que mes macro pointe toujours sur le module du classeur principale et non vers leur propre module.

[fred65200]

bonjour

après avoir exporter ton module,

tapes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  ActiveSheet.Shapes("Button 1").OnAction =  "taMacro"

Ajuste le nom de ton bouton et de ta macro


Salutations

[Alvaten]

Merci pour votre aide,

j'ai juste du ajouter le nom de mon classeur pour que cela marche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ActiveSheet.Shapes("Button 1").OnAction = MonNouveauClasseur & "!MaMacro"

[yodu29]

Merci fred65200 pour ton code simple, pur et rapide!

Tout cela fonctionne parfaitement, alors que je cherchais depuis 1 heure...