Application.Visible=False [Résolu]

pipive 5 Messages postés lundi 19 novembre 2007Date d'inscription 27 août 2010 Dernière intervention - 26 août 2010 à 22:42 - Dernière réponse : cs_Jack 14010 Messages postés samedi 29 décembre 2001Date d'inscription 28 août 2015 Dernière intervention
- 27 août 2010 à 09:22
Salut,
Je rencontre un petit problème d'affichage avec Vba Excel. Lorsque j'active mon userform je veux fermer juste le fichier excel correspondant. Mais avec "Application.Visible=False" tous les fichiers excel ouverts deviennent invisible.
Cordialement,
Pipiv
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
cs_Jack 14010 Messages postés samedi 29 décembre 2001Date d'inscription 28 août 2015 Dernière intervention - 27 août 2010 à 09:22
3
Merci
"le fichier excel peut toujours être visible"
Tu veux dire qu'il reste affiché à l'écran ?
Parce que, normalement, il devrait se placer en icone dans la barre des tâches.

Je viens de faire l'essai.
Oui, il faut que ta UserForm soit de type Modeless pour que cela fonctionne - Voir propriété ShowModal de ta UserForm, à mettre à False)
Par contre, cela change la méthode d'appel.

Je viens d'essayer ce code suivant :
Un bouton sur une feuille Excel - mais ce code pourrait se trouver dans Workbook_Open si tu veux que ça s'exécute au lancement du fichier.
    Dim maForme As UserForm1
    Set maForme = New UserForm1
        maForme.Show  ' la forme s'affiche mais rend la main de suite
        Do While maForme.Visible
            DoEvents  ' Boucle d'attente du 'Hide'
        Loop
    Unload maForme
    Set maForme = Nothing

Ensuite, dans la UserForm (avec un bouton pour quitter) :
Private Sub UserForm_Activate()
    ThisWorkbook.Application.WindowState = xlMinimized
    Me.Show
End Sub

Private Sub CommandButton1_Click()
    ThisWorkbook.Application.WindowState = xlNormal
    Me.Hide
End Sub

Merci cs_Jack 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 72 internautes ce mois-ci

Commenter la réponse de cs_Jack
cs_Jack 14010 Messages postés samedi 29 décembre 2001Date d'inscription 28 août 2015 Dernière intervention - 26 août 2010 à 23:45
0
Merci
Salut

Essaye avec un truc du genre (tu es dans ta UserForm) :
ThisWorkbook.Application.WindowState = xlMinimized

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Commenter la réponse de cs_Jack
pipive 5 Messages postés lundi 19 novembre 2007Date d'inscription 27 août 2010 Dernière intervention - 27 août 2010 à 00:03
0
Merci
Merci pour la réponse, mais lorsque j'utilise xlMinimized le fichier excel peut toujours être visible. J'aimerais que celui qui utilise le userform ne puisse pas voir le fichier excel, sans pour autant fermer tous ses autres fichiers ouverts
Cordialement,
Franck
Commenter la réponse de pipive

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.