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

[Angus HEYERDAHL]

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]

Bonjour Angus,
Un essai en PJ avec :

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

 

[Angus HEYERDAHL]

Merci Sylvanu,
Ca fonctionne parfaitement.

Merci beaucoup