Discussion :

[viscere]

Bonjour,

J'ai une application excel sous la forme d'un UserForm qui me génere des classeurs excel en sortie. Je souhaiterais que quand je génere un nouveau classeur et que je le selectionne, mon userform disparaisse. (Une histoire de Focus?) et que quand je selectionne mon classeur contenant le userform il me le réaffiche.

Merci.

Laurent

[ouskel'n'or]

Non ! Une histoire de Hide ->
Si tu as un problème avec ton clavier, tu dis, on t'indiquera la voie à suivre

Edit
Bon, pour être tout à fait honnête, c'est un tout petit peu plus compliqué "après", pour le ré-afficher... Là il te faut un moyen. Je suggère le bouton dans une barre d'outils, que tu places à l'ouverture de ton fichier dans une barre d'outils d'Excel, et que tu supprimes à la fermeture de ton fichier.
Ensuite, ton userform doit avoir la propriété ShowModal = False, sinon tu ne pourras pas accéder à ta feuille de calculs.
Bref, tu vois et tu nous tiens au courant

[fred65200]

bonsoir, comme le dit ouskel'n'or, tu "hide" ton userform

Dans le classeur d'origine, tu insères

Code :

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

1
2
3
4
 
Sub AfficherUF
userform1.show
End Sub

et dans le classeur généré, tu codes dans ThisWorkbook

Code :

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

1
2
3
4
 
Private Sub Workbook_Activate()
 Run "ClasseurOrigine.xls" & "!AfficherUF"
End Sub

@+

[viscere]

Bonjour,

Merci pour les infos.

Donc premièrement, mon classeur résultat peut être généré à partir de différents formulaires (4). Donc existe-t-il une variable qui pointe sur le formulaire actif ou ouvert en dernier...

Deuxiemement, comment créer la fonction WorkbookActivate du classeur généré à partir du classeur d'origine???

Merci,

Laurent

[ouskel'n'or]

Comment génères-tu ce classeur ?

Tiens, un exemple pour écrire du code dans un module (ici ThisWorkbook)

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
Sub EcrireDuCodeDansUnModule()
Dim i, nomFich, x As Long
nomFich = ThisWorkbook.Name 'Nom du classeur concerné à adapter
    For i = 1 To Application.VBE.VBProjects.Count
        'vérifie le nom du classeur
        If InStr(Application.VBE.VBProjects(i).Filename, nomFich) <> 0 Then
            'vérifie le nom du module
            For Each LeModule In Application.VBE.VBProjects(i).VBComponents
                If LeModule.Name = "Module1" Then
                    x = LeModule.CodeModule.CountOfLines
                    LeModule.CodeModule.InsertLines x + 1, "Private Sub LaMacroInseree()"
                    LeModule.CodeModule.InsertLines x + 2, "    Msgbox ""Bienvenue sur le forum !"""
                    LeModule.CodeModule.InsertLines x + 3, "End sub"
                End If
            Next
        End If
    Next i
End Sub

Le mieux serait de faire un tableau des ligne à insérer puis d'insérer les éléments du tableau dans une boucle for i = x + 1 to NbLignes.
Cela éviterait d'avoir à incrémenter manuellement le N° de ligne
A+

[viscere]

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
Sub EcrireDuCodeDansUnModule(FinalWorkbook As Workbook)
Dim i, nomFich, x As Long
nomFich = FinalWorkbook.Name 'Nom du classeur concerné à adapter
    For i = 1 To Application.VBE.VBProjects.Count
        'vérifie le nom du classeur
        If InStr(Application.VBE.VBProjects(i).Filename, nomFich) <> 0 Then
            'vérifie le nom du module
            For Each LeModule In Application.VBE.VBProjects(i).VBComponents
                If LeModule.Name = "ThisWorkBook" Then
                    x = LeModule.CodeModule.CountOfLines
                    LeModule.CodeModule.InsertLines x + 1, "Private Sub Workbook_Activate()"
                    LeModule.CodeModule.InsertLines x + 2, "    Run /"ClasseurOrigine.xls/" & /"!AfficherUF/""
                    LeModule.CodeModule.InsertLines x + 3, "End sub"
                End If
            Next
        End If
    Next i
End Sub

Ca marche pour thisWorkbook?