Feuille à l'ouverture du doc .xls

[kohta]

Bonjour, je souhaite integrer en vba une option sur mon document pour que celui-ci s'ouvre systématiquement sur une feuille définie (ma feuille "accueil").

Comment procéder?

Merci

 

[porcinet82]

Re : Feuille à l'ouverture du doc .xls

Salut,

Sous vba (Alt+F11), dans le menu a gauche (VBAProject), tu selectionnes le module ThisWorkbook et tu colles le code suivant :

Private Sub Workbook_Open()
Sheets("accueil").Select
End Sub

@+

 

[jeanpierre]

Re : Feuille à l'ouverture du doc .xls

Bonjour kohta, le forum,

Alt F11, pour aller sous VBE, et Affichage Explorateur de projet, tu developpes (petite croix) ton classeur et tu colles dans ThisworlBook :

Private Sub Workbook_beforesave(ByVal SaveAsUI As Boolean, cancel As Boolean)
ActiveWorkbook.Worksheets("accueil").Activate
End Sub

Bonne journée.

Jean-Pierre

Edit : Salut Romain et Bonne fête. Un peu lent, moi.

 

[kohta]

Re : Feuille à l'ouverture du doc .xls

Bonjour Romain, Bonjour Jean-Pierre, et merci beaucoup pour votre aide, cela fonctionne parfaitement.

J'aurais aussi aimé masquer le quadrillage sur la feuille d'accueil UNIQUEMENT, je n'ai trouvé que ceci:

ActiveWindow.DisplayGridlines = False

mais cela ne fonctionne qu'avec l'ensemble des feuilles de mon classeur.

Comment puis-je utiliser ceci en ciblant sur la feuille accueil uniquement?

Merci

 

[porcinet82]

Re : Feuille à l'ouverture du doc .xls

re, Salut JeanPierre 🙂,

Tu es sur ? Parce chez moi, si j'execute ce code, ca me mets ou non le quadrillage seulement sur la feuille qui est selectionnée.

@+

PS : Merci JeanPierre 😉

 

[kohta]

Re : Feuille à l'ouverture du doc .xls

Oui, certain, j'ai eu beau vérifier, au démarrage du document, ma page d'accueil récupére son quadrillage...

Je ne vois pas d'autre solution vu que l'on ne peut pas associer une page précise à la fonction displaygridlines.

 

[porcinet82]

Re : Feuille à l'ouverture du doc .xls

re,

Essaye peut etre comme ceci :

Private Sub Workbook_Open()
Sheets("accueil").Select
ActiveWindow.DisplayGridlines = False
End Sub

@+

 

[kohta]

Re : Feuille à l'ouverture du doc .xls

Toujours pas...

Ce n'est pas grave, je me suis débrouillé en fusionnant toutes les cellules et en protégeant ma page.

Merci de ton aide