Ouverture Dossier

[Alain]

Bonjour à tous

J'ai deux petites questions à poser.

La premiére, comment faire pour, lorsque l'on ouvre un dossier avec plusieurs feuilles, celui-ci démarre toujours par la page de garde?
La deuxiéme, comment faire pour que les onglets n'apparaissent pas?

D'avance merci de vos réponses

Alain

 

[phlaurent55]

Re : Ouverture Dossier

Salut Alain,

à l'ouverture , ça démarrera sur la feuille qui était visible à l'écran lors de la dernière sauvegarde de ton fichier
Pour que les onglets n'apparaissent pas il faut les cacher.........également avant ta dernière sauvegarde

 

[Guillaumega]

Re : Ouverture Dossier

Bonjour à toi, bonjour au forum,

Pour la seconde question, il faut faire outil, options, puis décocher la case "onglets du classeur".

Bien à toi,
Guillaumega

 

[Guillaumega]

Re : Ouverture Dossier

Salut Alain,

à l'ouverture , ça démarrera sur la feuille qui était visible à l'écran lors de la dernière sauvegarde de ton fichier

Oui tout à fait. Il doit être possible d'activer une sheet à l'ouverture du fichier avec une macro évènementielle.

Je laisse les spécialistes de la macro regarder 🙂

 

[gfortin9]

Re : Ouverture Dossier

Allô!

Question 1 et 2 une à la suite de l'autre....

Sub Aut😵pen()

Sheets("page de garde").Select
ActiveWindow.DisplayWorkbookTabs = False

End Sub


Cela convient-il ?

.

 

[phlaurent55]

Re : Ouverture Dossier

Bravo gfortin
j'y avais pas pensé😱

 

[Brigitte]

Re : Ouverture Dossier

Bonjour,

En mettant dans This Workbook une macro qui active la feuille que l'on souhaite :

Private Sub Workbook_Open()
' Activer la première feuille
Worksheets("Nom Feuille souhaitée").Activate
End Sub

Bon courage

Edit : pardon, j'ai posté sans rafraîchir ; je bidouillais sur mon excel avec un petit souci... Cette macro sert pour ouvrir tjs sur la feuille que l'on souhaite qui peut être la première bien sûr....

 

[JNP]

Re : Ouverture Dossier

Bonjour Alain, PhLaurent55 🙂,
Le plus simple, c'est de mettre dans le code de ThisWorkbook le code suivant:

Private Sub Workbook_Open()
Sheets("Page de garde").Activate
ActiveWindow.DisplayWorkbookTabs = False
End Sub

Ne pas oublier de rajouter :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWindow.DisplayWorkbookTabs = True
End Sub

Sinon, les onglets risquent d'être absent longtemps...
Bon dimanche 😎

 

[Alain]

Re : Ouverture Dossier

Merci de vos réponse ultra rapide, je pense trouver mon bonheur dans tout ça.

Encore merci

Alain