XL 2010 masquer les Usf

[herve62]

Bonjour
Je ne mets pas de fichier .... déjà il fait 10Mo !! ensuite c'est juste un Pb de METHODE !
Workbook Open : USF 1 ( il fait tout l'écran)
2) Un choix par clic sur Label > ouvre un second USF
3° Un choix par clic sur Label > Ouvre un fichier Excel
Le Pb .... On ne voit pas le fichier ?? . Donc je fais des HIDE des 2 USF Mais comme j'ai déjà eu il y a très longtemps ( donc oublié)
Je rencontre le Pb MODAL !!
Normalement il y a une méthode à appliquer ( avec les 0 et 1 ) ...etc
Pouvez vous me la rappeler ? je cherche aussi de mon côté

 

[patricktoulon]

Bonjour
et ben fait des .show 0 partout a la place de .show ou l'inverse
donc tout modal ou tout non modal

question:
comment tu met ton USF1 en plein ecran (api or not api)???????

 

[herve62]

Merci Patrick
C'est bon j'avais déjà avancé en suivant l'avis de MS : masquer dans l'ordre du plan
puis j'ai tout mis à 0 ; mais restait 2 application.visible = false !!! aie aie
le code du plein écran ( c'est pas de moi !!) , bon avec une belle image de fond ...ça jette !!!!

Private Sub UserForm_Activate()
    
    With Me
        large = .Width: haut = .Height
        .Height = Application.Height + Me.Height - Me.InsideHeight
        .Width = Application.Width + 12
        .Left = -6
        .Top = -(Me.Height - Me.InsideHeight)
    End With
End Sub
-------------------
Private Sub UserForm_Resize()
    newlarge = Me.Width / large
    newhaut = Me.Height / haut
    For Each ctrl In Me.Controls
        With ctrl
            mem = Split(.Tag, ";")
            .Left = mem(0) * newlarge: .Width = mem(2) * newlarge
            .Top = mem(1) * newhaut: .Height = mem(3) * newhaut
            On Error Resume Next
            .Font.Size = mem(4) * newhaut
            Err.Clear
        End With
    Next
End Sub

 

[patricktoulon]

bon ben il est de moi ce code je le reconnais 😉
ok c'est pas avec les api donc
question
le classeur ouvert par click droit sur label est il ouvert dans l'intance ou une autre instance de l'app excel ?

essaie windows(nom de ton classeur).activate apres le open pour voir si il re monte