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

  • Initiateur de la discussion Initiateur de la discussion alain18
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

alain18

XLDnaute Occasionnel
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.
 

Pièces jointes

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.
 
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
@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
303
Réponses
5
Affichages
472
Réponses
7
Affichages
797
Retour