Afficher des feuilles Excel via un formulaire
Bonjour famile,
j'ai besoin de vos lumières pour regler un problème d'Affichage des feuilles excels( les onglets) de mon classeur.
J'ai créer une petite appli sous VBA EXCEL; je me sers d'un formulaire pour faire apparaitre les feuilles du classeur à l'aide de boutons de commande.
J'ai constaté un problème qui me gène et je souhaiterais votre appui.
lorsqu' il n'y a aucun classeur excel déja ouvert et que je lance mon fichier excel (TEST PAIE), l'affichage des différentes feuilles
de ce classeur TEST via les commandes de mon formulaire se passe très bien.
Mais lorsqu'un classeur EXCEL est déja ouvert, l'affichage d'une feuille quelconque de mon fichier est masqué
par le classeur excel initialement ouvert; je suis obligé de réduire ce classeur afin d'accéder à la feuille sollicitée;
j'ai joint le classeur en question pour que vous puissiez le constater vous même.
FICHIER EXCEL : https://www.cjoint.com/c/IJkpyxLGYc6
voici le code vba derrière un bouton de commande qui me permet d'appeler une feuille du classeur:
Private Sub btn_livrepaie_Click()
Application.Visible = True
Application.WindowState = xlMaximized
Feuil7.Activate
Range("A100000").End(xlUp).Select
ACCUEIL.Hide
End Sub
je pense que le problème se trouve dans le code mais je ne sais pas où.
ce que j'aimerai c'est d'insérer dans le code ci dessus une ligne de code qui reduira dans la barre
des taches tous les classeurs déja ouverts et ensuite afficher la feuille demandée.
Aidez moi s'il vous plait
Bonjour
A essayer :
Private Sub btn_livrepaie_Click()
Application.Visible = True
Windows(ThisWorkbook.Name).WindowState = xlMaximized
Feuil7.Activate
Range("A100000").End(xlUp).Select
ACCUEIL.Hide
End SubBonjour
A essayer :
Private Sub btn_livrepaie_Click() Application.Visible = True Windows(ThisWorkbook.Name).WindowState = xlMaximized Feuil7.Activate Range("A100000").End(xlUp).Select ACCUEIL.Hide End Sub
Merci énormément GGautier ton code marche parfaitement. tu m'as été d'un grand secours.
Je vais marqué comme résolu.
Tant mieux, bonne continuation