Code dynamique workbook_windowactivate

Bonjour,

J'ai créé des macros qui ouvrent 2 types de documents Excel, traitent leur contenu et crée un formulaire/type pour permettre à l'utilisateur de générer des graphiques en choisissant leurs paramètres.

Le problème est que si le user ouvre le premier document et roule la macro, le formulaire correspondant s'ouvre, ce qui est OK, mais si le user ouvre l'autre document, qui lui utilise une autre macro et un autre formulaire, le formulaire du premier demeure ouvert dans l'autre document. J'ai cherché à utiliser le worksheet.activate pour cacher le formulaire non correspondant, mais il ne se déclenche que lorsque je change de sheet, non pas de workbook. Si je mets le code dans workbook_windowactivate, je peux voir l'évènement, mais je dois l'y entrer manuellement.

Ma question est; est-il possible de mettre du code dynamiquement dans l'évènement d'un workbook, comme on le fait avec les worksheet?

Merci!

Bonjour

Je crois avoir compris que ton code se trouve dans un autre classeur que ceux que tu ouvres. Tu n'as pas besoin d'injecter du code dynamiquement dans ces classeurs.

Le principe est de capturer les évènement d'application, en instanciant un objet de type application, public ou privé, dans le module ThisWorkbook du classeur pilote. Tu déclareras l'objet avec WithEvents pour pouvoir gérer ses procédures évènementielles. Dans celles-ci, tu trouveras les évènements propres à un workbook.open, workbook.activate, etc, qui sont déclenchés à l'ouverture, l'activation, ..., d'un classeur.

Au sein du code évènementielle, tu testes quel classeur est activé (via son nom ou son codename (par défaut ThisWorkbook, mais que tu peux modifier) pour déterminer ce qui doit se passer à l'activation/désactivation d'un classeur.

http://fauconnier.developpez.com/for...s/objetapp.png

Bonjour et merci de m'aider.
Je crois que vous avez bien saisi mon problème, mais j'ai essayé votre truc, que je trouve très sensé, mais ça ne fonctionne pas.

Voici ce que je fais exactement. L'utilisateur ouvre un fichier txt dans Excel, et part la macro TraitePremier(qui se trouve dans le classeur Perso.xls), qui enregistre le document courant sous le format xls(premier.xls) et traite ses données pour afficher un formulaire adapté aux données contenues.

Le but est d'ensuite ouvrir un autre document(deuxieme.xls), et de faire la même chose avec une autre macro(TraiteDeuxieme) située elle aussi dans Perso.xls, mais lorsque je bascule d'un classeur à l'autre, je voudrais cacher le formulaire du premier si c'est le deuxième classeur qui est actif.

Votre logique est bonne, j'ai mis l'instanciation de l'objet Excel.Application avec évènements dans mon classeur Perso.xls, avec un msgbox sur le WindowActivate, mais ça ne fonctionne pas. J'ai dû mal comprendre quelque chose...
Merci de votre aide!

Il me semble que ça fait 2 jours que je cherche des choses sans résultat...
Un autre problème s'est ajouté.

J'ai un bouton "Reset" sur chacune des worksheet, dont le code est généré dynamiquement, qui appelle une fonction dans la macro "TraitePremiere" qui se trouve dans le classeur "Perso.xls" et qui supprime le userform(nommé "NomFormulaire1") qui se trouve dans le premier classeur(le même que le bouton).

Voici le code;

Code:

---

1 2 3 4

ActiveWorkbook.VBProject.VBComponents.Item("NomFormulaire1").Hide ActiveWorkbook.VBProject.VBComponents.Remove ActiveWorkbook.VBProject.VBComponents.Item("NomFormulaire1") ActiveWorkbook.VBProject.VBComponents.Unload ActiveWorkbook.VBProject.VBComponents.Item("NomFormulaire1")

---

J'ai bien lu qu'il ne fallait pas que le userform soit en cours d'affichage pour qu'il puisse être supprimé, et mon code fonctionne bien, mais si je le recrée et donne à ce nouveau userform le même nom, soit "NomFormulaire1", il me fait l'erreur

Code:

---

Erreur d'exécution '75': Erreur d'accès Chemin/Fichier

---

comme s'il existait encore(c'est pourquoi j'ai essayé le unload). On dirait qu,il le garde en mémoire... pourtant, dans l'éditeur VB, il n'y est plus! Et si je parcours les vbcomponents de type 3 par code, il n'y est plus! J'ai même essayé en supprimant so code avant, rien n'y fait! Avez-vous une idée
à ce sujet?

Merci!

J'ai réussi à écrire du code dynamiquement dans "ThisWorkbook", et ça fonctionne. Pour ceux que ça pourrait intéresser;

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim lsCode As String Dim I, J As Integer If Workbooks.Count > 1 Then For I = 1 To Workbooks.Count For J = 1 To Workbooks(I).VBProject.vbcomponents.Count If LCase(Workbooks(I).VBProject.vbcomponents(J).Name) = "thisworkbook" Then lsCode = "Private Sub Workbook_Activate()" & vbCrLf lsCode = lsCode & "msgbox activeworkbook.name" & vbCrLf lsCode = lsCode & "End sub" & vbCrLf Workbooks(I).VBProject.vbcomponents(J).CodeModule.DeleteLines 1, Workbooks(I).VBProject.vbcomponents(J).CodeModule.CountOfLines Workbooks(I).VBProject.vbcomponents(J).CodeModule.InsertLines 1, lsCode End If   Next Next End If End Sub

---

Merci de votre aide!

Ton code se résume à ceci, j'ai quand même des réticences à l'évènement choisi pour lancer le code (à chaque sélection d'une cellule)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim lsCode As String Dim i As Integer   If Workbooks.Count > 1 Then lsCode = "Option Explicit" & vbCrLf & vbCrLf lsCode = lsCode & "Private Sub Workbook_Activate()" & vbCrLf lsCode = lsCode & vbTab & "msgbox activeworkbook.name" & vbCrLf lsCode = lsCode & "End sub" & vbCrLf   For i = 1 To Workbooks.Count With Workbooks(i).VBProject.vbcomponents("ThisWorkbook").CodeModule .DeleteLines 1, .CountOfLines .InsertLines 1, lsCode End With Next i End If

---

Oui, désolée, je ne l'avais pas simplifier, j'ai laissé mes traces! J'y suis arrivée par essai/erreur, et j'avais autres choses à vérifier, alors c'est pourquoi il y avait d'autres vérifs.

Au moins, j'arrvie à quelque chose en mettant mon code pour cacher le formulaire dans l'évènement window_deactivate...

Bonne journée!