creation de macro par code

Bonjour à tous,

Je travaille actuellement sur une application en vba.

Pour vous expliquez ce que je fais j'ai un fichier xla qui contient mes traitement et qui est placé dans le fichier XLSTART pour qu il soit ouvert au demarrage d'excel.

A partir de la une personne ouvre un autre fichier excel pour que je fasse mes traitements. Pour un soucis de simplicité je souhaite ecrire des macros dans le nouveau document ouvert dans la partie ThisWorkbook afin que mon xla puisse travaillé plus facilement avec le document encour.

Le soucis n'est pas tant la création de ma macro dans le fichier mais j'ai un plantage d'Excel !! J'ai l'impression qu il essaie d'exécuter le code implanté donc qui crée un conflit forcément et qui fait tout planter !

Voici le code que j'utilise:

Code:

---

1 2 3

ActiveWorkbook.Application.EnableEvents = False Set Wb = ActiveWorkbook toto=Wb.VBProject.VBComponents("ThisWorkbook").CodeModule.CreateEventProc("Activate", "Workbook" )

---

Comme vous pouvez le voir, j'ai essayé de désactiver les évènements mais cela ne change rien.

Si vous avez une idée sur ce probleme ?

Merci pour votre aide :merci:

Bonjour,
Tu veux créer un événement qui existe déjà !
Ecrire simplement le code dans le module ThisWorkBook, a condition que le Activate n'existe pas, c'est d'ailleur une remarque à faire, si l'utilisateur sauve le classeur et le réouvre ?? il y aura déjà l'événement Activate, et là, la réécrire va poser problème.
A+