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