Macro pour afficher une feuille excel

[batdu07]

Bonjour,

J'ai un petit probleme avec un document excel. en effet, à l'ouverture j'ai fait afficher automatiquement une boite de dialogue. sur celle ci se trouve 2 bouton qui permettent d'afficher 2 feuilles diferentes. or si je clique sur un, alors il m'affiche la feuille souhaitée. Cependant un fois revenu sur l'écran d'acceuil et que je clique de nouveau sur l'un des 2, il m'affiche alor la feuille en arriere plan. je sui alors obligé de revenir sur l'écran d'acceuil pour que je puisse avoir accese à la feuille souhaitée.


voici le code utilisé :

Private Sub Cmdf2_Click()
Application.ScreenUpdating = True
Worksheets("feuille2").Activate
frmouvert.Hide
End Sub

Private Sub Cmdf5_Click()
Application.ScreenUpdating = True
Worksheets("feuille5").Activate
frmouvert.Hide
End Sub

 

[matthieu33]

Re : Macro pour afficher une feuille excel

Bonjour batdu07,

Pourrais-tu faire un essai en remplaçant "frmouvert.Hide" par "Unload frmouvert" ?

Merci

@+

 

[batdu07]

Re : Macro pour afficher une feuille excel

slt,

J'ai essayé mais le pb est toujours là.
frmouvert corespond à la boite de dialogue d'ouverture
merci quand meme

 

[matthieu33]

Re : Macro pour afficher une feuille excel

re,

Pourrais-tu joindre un extrait de ton fichier ?

Merci
@+

 

[batdu07]

Re : Macro pour afficher une feuille excel

Dans l'exemple, je ne fais ouvrir qu'une feuille. cependant j'ai le meme pb avec la deuxieme.
merci pour ton aide

 

[matthieu33]

Re : Macro pour afficher une feuille excel

Au niveau du boutou Retour, l'activation de la feuille doit s'effectuer avant l'affichage de la USF.

Private Sub Cmdretour_Click()
    Application.ScreenUpdating = True
    Sheets("menu").Select   ' Mettre cette ligne avant le show
    frmouvert.Show
    Application.ScreenUpdating = False
End Sub

@+

 

[batdu07]

Re : Macro pour afficher une feuille excel

Re,

Merci bien pour ton aide.
elle m'aura été très utile

@+