Réduire excel

dran_200 · 30 Août 2010

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 · 30 Août 2010

Re : Réduire excel

Bonjour,

essaye ainsi :

Code:

Application.WindowState = xlMinimized

bonne journée
@+

Edition : à placer avant la fermeture du classeur

dran_200 · 30 Août 2010

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 · 30 Août 2010

Re : Réduire excel

Re,

avais-tu vu mon édition :

Edition : à placer avant la fermeture du classeur

@+

dran_200 · 30 Août 2010

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 · 30 Août 2010

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 · 30 Août 2010

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 · 30 Août 2010

Re : Réduire excel

Re,

essaie ainsi :

Code:

Unload Me
Application.WindowState = xlMinimized
ThisWorkbook.Close

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

dran_200 · 30 Août 2010

Re : Réduire excel

Re Bonjour
Merci ça fonctionne.

Réduire excel

dran_200

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

dran_200

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

dran_200

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

dran_200

XLDnaute Occasionnel

Pièces jointes

Pierrot93

XLDnaute Barbatruc

dran_200

XLDnaute Occasionnel

Discussions similaires