Réduire excel

[dran_200]

Bonjour,
J'ai un petit soucis. A l'ouverture de mon fichier je masque excel pour ne laisser qu'un USF visible. A la fermeture de mon classeur je remet excel visible et je ferme mon classeur avec cette macro :

Private Sub CommandButton1_Click()
Application.Visible = True
MasquerExcel.Visible = True
MontrerExcel.Visible = False
ThisWorkbook.Close SaveChanges:=False
End Sub

Mon fichier se ferme sans probleme, mais je voudrais que excel soit reduit dans la barre des taches, pas en pleine écran. Est ce possible ?
Merci pour votre aide

 

[Pierrot93]

Re : Réduire excel

Bonjour,

essaye ainsi :

Application.WindowState = xlMinimized

bonne journée
@+

Edition : à placer avant la fermeture du classeur

 

[dran_200]

Re : Réduire excel

Bonjour
J'ai essayé. Ca ferme mon dossier mais excel reste ouvert en plein écran. Je voudrais que excel soit réduit dans la barre des taches.
Merci pour ton aide

 

[Pierrot93]

Re : Réduire excel

Re,

avais-tu vu mon édition :

Edition : à placer avant la fermeture du classeur

@+

 

[dran_200]

Re : Réduire excel

Re Bonjour,
J'ai essayé avec ce code, ça ne fonctionne pas :

Private Sub CommandButton1_Click()

Application.Visible = True
MasquerExcel.Visible = True
MontrerExcel.Visible = False

Application.WindowState = xlMinimized

ThisWorkbook.Close SaveChanges:=False

End Sub

Merci

 

[Pierrot93]

Re : Réduire excel

Re,

si ton bouton est sur un USF, il faut le décharger ou le masquer au préalable...

 

[dran_200]

Re : Réduire excel

Re Bonjour,
Oui, mon bouton est sur un USF, comment tu fais pour le masquer ?
Je te joint un fichier.
Encore Merci

 

[Pierrot93]

Re : Réduire excel

Re,

essaie ainsi :

Unload Me
Application.WindowState = xlMinimized
ThisWorkbook.Close

Edition : ce code le décharge et non le masque, comme tu fermes le classeur...

 

[dran_200]

Re : Réduire excel

Re Bonjour
Merci ça fonctionne.