Ouvrir un classeur dans un classeur, possible ?

[Résolu/Fermé]
Signaler
Messages postés
15
Date d'inscription
mardi 25 septembre 2012
Statut
Membre
Dernière intervention
30 octobre 2015
-
Messages postés
15
Date d'inscription
mardi 25 septembre 2012
Statut
Membre
Dernière intervention
30 octobre 2015
-
Bonjour à tous,

Je souhaiterais créer via Excel une base de données. Je souhaiterais organiser mes classeurs en plusieurs "types", dont notamment un classeur "index" qui via des boutons envoie dans d'autres classeurs. Cependant, je souhaiterais l'ouverture de 30 classeurs ... Est-il possible d'ouvrir un classeur dans un autre classeurs ? (Pour ne pas avoir visuellement 30 icônes de classeurs dans la barre de tâches).

Ou sinon est-il possible de répartir des feuilles de calcul dans des "catégorie" permettant ainsi lors de l'ouverture d'une catégorie, de n'avoir afficher uniquement les feuilles concernées ?

Je sais pas si c'est très claire, mais je garde espoir !

Merci d'avance !
Bald

4 réponses

Messages postés
5704
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
26 octobre 2021
667
Bonjour

Dans votre classeur vous pouvez avoir 30 feuilles et avec une macro masquer certaines feuilles pour n'avoir que celles que vous utilisez à ce moment d'affichées

exemple pour masquer des feuilles un petit bout de macro suffit

Sub affichage_mode1()
'
' affichage_mode1 Macro
'
'
'Masque les feuilles 2 et 4
Sheets(Array("Feuil2", "Feuil4")).Select
ActiveWindow.SelectedSheets.Visible = False
'Se positionne en A1 feuil1
Sheets("feuil1").Select
Range("A1").Select
End Sub

Et pour afficher les feuilles masquées

Sub affichage_mode2()
'
' affichage_mode2 Macro
'
'

'Montre la feuille 2
Sheets("Feuil2").Visible = True
'Montre la feuille 4
Sheets("Feuil4").Visible = True
'Se positionne en A1 feuil1
Sheets("feuil1").Select
Range("A1").Select
End Sub

1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

Messages postés
5704
Date d'inscription
lundi 16 avril 2012
Statut
Contributeur
Dernière intervention
26 octobre 2021
667
Bonjour

Sub masque1()
'
' masque1 Macro
'

'
Sheets("Feuil1").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Feuil2").Select
ActiveWindow.SelectedSheets.Visible = True
Sheets("Feuil3").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Feuil4").Select
ActiveWindow.SelectedSheets.Visible = True
Sheets("Feuil5").Select
ActiveWindow.SelectedSheets.Visible = False
Range("A1").Select
End Sub

Pour changer il suffit de mettre true ou false sur la feuille à afficher ou à masquer
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 41989 internautes nous ont dit merci ce mois-ci

Messages postés
15
Date d'inscription
mardi 25 septembre 2012
Statut
Membre
Dernière intervention
30 octobre 2015

Merci beaucoup !!!

J'aurais du coup une dernière question concernant cette macro, est-il possible de faire une macro qui ouvrira par exemple les feuilles 2 et 4, tout en fermant les feuilles 1, 3, 5 ? Ou est-ce obligatoirement deux macro distinctes ? (Désolé pour cette question surement évidente, mais mon cerveau n'arrive plus à être logique quand il s'agit de macro et de choses du genre ...)

Une fois de plus merci d'avance !
Messages postés
15
Date d'inscription
mardi 25 septembre 2012
Statut
Membre
Dernière intervention
30 octobre 2015

Ok ! Merci beaucoup et bonne journée !