Bonjour,

Dans ce genre d'application, il faut créer une boucle de controle qui gere l'ouverture de chaque feuille
j'explique:

dans un module, déclarer une variable globale Menu de type Integer et ecrire une sub() qui contient ce code

Dim Menu as Integer 'variable globale accessible partout

Sub test()
'
'initialisation
'
'
'boucle de controle
Menu=1 'affiche le Menu

While menu>0

Select case menu

Case 1
userform1.show 'Feuille principale avec le Menu

Case 2
userform2.show 'Autre feuille

Case 3
userform3.show '...

'et ainsi de suite

End Select

Wend
'
'Fin du programme

End Sub


La Feuille Principale avec le Menu doit contenir un bouton Quitter en plus des autres boutons
avec ce code:

Private Sub CommandQuitter_Click()
Menu=0 'quitte la boucle
Me.Hide
End Sub

Les autres boutons de la feuiile sont codés sur le meme schéma

Private Sub CommandForm2_Click()
Menu=2 'affiche feuille2
Me.Hide
End Sub

Private Sub CommandForm3_Click()
Menu=3 'affiche feuille3
Me.Hide
End Sub

et ainsi de suite...

et chaque userform doit contenir un bouton Retour avec ce code;

Private Sub CommandRetour_Click()
Menu=1 'affiche le Menu
Me.Hide
End Sub

Ainsi la boucle tourne sans fin en activant la userform concernée
Chaque userform se termine et relance le menu jusqu'a clic sur bouton Quitter
qui met Menu=0 et sort de la boucle While..Wend

A+

Salut et merci pour ta réponse.
Ta solution semble être a peu près ce que je recherche. Mais ... je ne sais comment déclarer une variable globale...
Une variable globale, c'est bien une variable qui sera utilisable dans tt le Projet, dans n'importe quelle userform? C'est bien ça?
Si c'est ça alors c'est bien ce que je recherche mais j'ignore comment faire pour la déclarer, je vais cherche un peu mais si tu pouvais encore me donner un piti coup de pouce ce serai sympa...
Merci encore d'avoir répondu si vite !

Bonjour,

Les variables globales se déclarent dans un module, en dehors d'un bloc Sub ... End Sub.
En général on les place tout en haut du module, juste derririère la directive Option Explicit si elle est definie.

Pour inserer un module, va dans l'explorateur de projet (partie de gauche du VB Editor), clic droit , Inserer Module.

Dans l'exemple que j'ai donné, tu remarqueras que l'instruction, Dim Menu as Integer , se trouve isolée , en dehors d'une procédure. Dans ce cas la variable Menu est une variable globale, connue de tout le projet.

Si tu ne comprend pas l'exemple donné, je peux le détailler d'avantage.

A+.

Eh bien voila, pour tout te dire, ce que tu m'as envoyé ce n'est pas vraiment ce que je recherche, mon problème n'a pas grand chose à voire avec le changement de page comme tu me l'a proposé.
En fait, tu m'a fait prendre conscience du problème, et maintenant j'en ai la formulation exacte.
J'aimerai déclarer ceci :

Dim appExcel as Excel.application
Dim wbExcel as Excel.workbook
Dim wsExcel as Excel.worksheet

Set appExcel = CreateObject("Excel.application")
Set wbExcel = appExcel.Workbooks.open("C:\monfichier.xls")

Voilà, en fait j'aimerai ouvrir un fichier excel, qu'il le reste pendant toute l'utilisation de l'application et faire en sorte que je puisse intéragir avec dans chaque feuilles, sans avoir à le ré-annoncer à chaque fois.
donc autrement dit, en faire une variable globale. Est-ce possible ?
Merci !

Re,

Autant pour moi, j'étais hors sujet.

Voici comment j'ai résolu le problème:

Dans le menu Projet Propriétés de... , dans la liste déroulante Objet de démarrage, choisir Sub Main

Ajouter un module au projet, voici le code:

Option Explicit

Global appExcel As Excel.application
Global wbExcel As Excel.workbook
Global wsExcel As Excel.worksheet

Sub main()
Form1.Show 1
End Sub

Private Sub Command1_Click()
Me.Visible = False
Form2.Show 1
Me.Visible = True
End Sub

Private Sub Form_Load()
Set appExcel = CreateObject("Excel.application")
appExcel.Visible = True
Set wbExcel = appExcel.workbooks.open("Mon_Fichier.xls")
End Sub

Private Sub Form_Unload(Cancel As Integer)
appExcel.Quit
Set appExcel = Nothing
Set wbExcel = Nothing
Set wsExcel = Nothing
End Sub

Eureka! j'ai trouvé

L'erreur vient du fait que tu mets l'ouverture du classeur Excel dans le Load de la feuille.
En effet la procedure Form_Load() ne s'execute qu'une seule fois à la première ouverture de la feuille, quand elle est chargée en mémoire.
Meme si tu viens à fermer cette feuille puis à l'ouvrir à nouveau, la feuille étant déjà chargée en mémoire, la procédure Form_Load() n'agit plus.
Ceci explique pourquoi lorsqu'on ferme la feuille avec le bouton de controle (le X dans la barre de ritre de la feuille), qui à pour effet de décharger la feuille de la mémoire, le classeur Excel dans le Load de la feuille s'ouvre à nouveau.

Tu peux telecharger le code de cet exemple qui marche. J'utilise VB6 et Excel 2003.

http://www.cijoint.fr/cjlink.php?file=cj200906/cijcP9qzNE.zi­p

En résumé voici la solution:

Les variables globales (ou publiques) se déclarent en en-tete dans un module comme ceci:

Public appExcel As Excel.application
Public wbExcel As Excel.workbook
Public wsExcel As Excel.worksheet

Private Sub Command1_Click()
Dim Mon_Fichier As String
'ajuster le nom du fichier à ouvrir
Mon_Fichier = "D:\Mes documents\Mes tableaux\salaires2006.xls"
Me.Visible = False
Set appExcel = CreateObject("Excel.application")
appExcel.Visible = True
Set wbExcel = appExcel.workbooks.open(Mon_Fichier)
Form2.Show 1
Me.Visible = True
End Sub


Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub Retour_Click()
appExcel.Quit
Set appExcel = Nothing
Set wbExcel = Nothing
Set wsExcel = Nothing
Me.Hide
End Sub


Private Sub Form_Unload(Cancel As Integer)
appExcel.Quit
Set appExcel = Nothing
Set wbExcel = Nothing
Set wsExcel = Nothing
End Sub

Merci de t'être cassé la tête avec moi !! Avec ta solution je suis enfin débloqué, il me reste qu'a apporter ma touche finale sur mon projet et il sera prêt dans les temps. Merci encore, heureusement k'il y a des gens comme toi sur ces forums !
A + et encore merci