Discussion :

[Mariquiqui]

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!

[Pierre Fauconnier]

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.

[Mariquiqui]

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!

[Mariquiqui]

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 :

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

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 :

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

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!

[Mariquiqui]

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

Code :

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

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!

[mercatog]

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 :

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

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

[Mariquiqui]

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!