Code VBA pour commande d'affichage et fermeture de 2 feuilles

[alain18]

Bonjour,
Je cherche à résoudre un petit problème VBA, mais n'étant pas un spécialiste je viens vers les personnes compétentes.
Je souhaite avoir accès à 2 feuilles situées sur le même fichier en même temps sur mon écran. J'ai effectué cette manip en y associant une macro qui réalise parfaitement le travail.
Ensuite, j'ai mis en place une 2ème macro pour fermer cette 2ème feuille, là non plus pas de problème, MAIS, il y a toutefois un petit souci si l'utilisateur clic par inadvertance sur ce bouton de fermeture de feuille alors que celle-ci est déjà fermée, un message d'erreur apparait (ce qui est normal)
Il y a sans doute un petit bout de code à ajouter à cette macro de fermeture pour éviter cette erreur.
Un exemple en PJ sera plus simple à tester.
Merci de vos conseils.

 

[Pierrot93]

Re : Code VBA pour commande d'affichage et fermeture de 2 feuilles

bonjour,

ceci devrait le faire :

Sub fermeture1()
'
' fermeture1 Macro
Windows.BreakSideBySide

End Sub

bon après midi
@+

 

[alain18]

Re : Code VBA pour commande d'affichage et fermeture de 2 feuilles

Merci Pierrot93,
Il n'y a effectivement plus de bug en appliquant ton code mais la feuille 2 n'est en fait pas fermée totalement puisqu'elle apparait en arrière plan. D'ailleurs si on fait plusieurs fois la manip toutes les feuilles 2 restent ouvertes. On s'en aperçoit en passant la souris sur l’icône Excel 3, 4 ou 5 feuilles restent ouvertes.
Ma première macro fermait bien totalement la fenêtre 2 mais entrainait ce message d'erreur si on venait cliquer à nouveau sur le bouton de fermeture de la feuille.
Il est sans doute possible d'éviter ce dernier petit souci.
Merci.

 

[Pierrot93]

Re : Code VBA pour commande d'affichage et fermeture de 2 feuilles

Re,

place peut être alors un :

On Error Resume Next

sur la première ligne de la procédure...

 

[Pierrot93]

Re : Code VBA pour commande d'affichage et fermeture de 2 feuilles

Re,

comme ceci :

Sub fermeture1()
    On Error Resume Next
    Windows("classeur1.xls:2").Close
End Sub

 

[alain18]

Re : Code VBA pour commande d'affichage et fermeture de 2 feuilles

Voila on y arrive !!
Il y avait encore problème mais il fallait seulement corriger ainsi:

Sub fermeture1()
On Error Resume Next
Windows("Deux fenètres.xls:2").Close
End Sub

Merci Pierrot93
@+

 

[Pierrot93]

Re : Code VBA pour commande d'affichage et fermeture de 2 feuilles

Re,

oui voir post #5