Microsoft 365 Résolu : VBA - Cacher Excel à l'ouverture d'UF

Angus HEYERDAHL

XLDnaute Junior
Bonjour à tous,

Je voudrais quand j'ouvre mon Userform cacher l'application qui y est associé. le problème est que lorsque d'autres fichiers sont ouvert, ils sont cacher aussi puisque j'utilise le code suivant :
Application.Visible = False
j'ai essayé naïvement de changer "Application" par "ThisWorkBook", mais sans succès.

Y aurait-il une méthode pour cacher uniquement le fichier concerné par le Userform?

EN vous remerciant par avance
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Angus,
Un essai en PJ avec :
VB:
Module :
Sub Test()
    ' Masque la feuille et ouvre l'userform
    NomFichier = ThisWorkbook.Name
    Windows(NomFichier).Visible = False
    UserForm1.Show
End Sub

Userform :
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ' Interdit la fermeture de l'userform par la croix
    If CloseMode = vbFormControlMenu Then Cancel = True
End Sub
Private Sub CommandButton1_Click()
    ' Rend visible la feuille appli et ferme l'userform
    NomFichier = ThisWorkbook.Name
    Windows(NomFichier).Visible = True
    Unload UserForm1
End Sub
 

Pièces jointes

  • Classeur3.xlsm
    17.2 KB · Affichages: 6

Discussions similaires