Plein écran pour certains onglets et pas par défaut

Bonjour

étant novice en excel VBA je fais appel a vos conseils.

je souhaite que lorsque j'ouvre un fichier la page à l'ouverture apparaisse en plein écran , c'est a dire sans barre de formule, sans N° de ligne, etc.

j'ai bien trouvé une formule à mettre dans thisworkbook mais le souci c'est que lorsque j'enregistre mon fichier c'est une autre page qui s'ouvre en plein écran que par rapport au fichier modèle et là je ne souhaite pas que le plein écran apparaisse.

en résumé je voudrais choisir les feuilles pour lesquelles ce plein écran apparaisse et pas forcement la page qui s'ouvre par défaut

j'espère être suffisamment clair

merci par avance

seb

Hello,

Tu as un fichier avec le code?

Sinon active la feuille que tu veux en avec ton code.

Worksheets("Sheet1").Activate

BJR

Voici le code que j'ai mis dans thisworkbook

Private Sub Workbook_Open()

Application.DisplayFullScreen = True

' Masquer les en-têtes

ActiveWindow.DisplayHeadings = False

' Masquer les barres de défilement

ActiveWindow.DisplayHorizontalScrollBar = False

ActiveWindow.DisplayVerticalScrollBar = False

End Sub

merci par avance

seb


Salut Nonesofar

voici le code que j'ai insérer dans ma page d'ouverture appelée "choix"

Private Sub Worksheet_Change(ByVal Target As Range)

Worksheets("choix").Activate

Application.DisplayFullScreen = True

' Masquer les en-têtes

ActiveWindow.DisplayHeadings = False

' Masquer les barres de défilement

ActiveWindow.DisplayHorizontalScrollBar = False

ActiveWindow.DisplayVerticalScrollBar = False

End Sub

mais celà ne fonctionne pas

merci par avance pour ton aide et conseils

seb

Ok,

ça te convient le test en PJ?

Attention active le contenu sinon ça va pas marcher.

19seblet.xlsm (13.50 Ko)

Bonjour,

ton code mis en application avec un double-clic

le grand écran ne s'ouvre que sur double-clic d'une feuille

Amicalement

Pierrot

Merci a vous

Pierrot : je souhaiterai que la fonction se fasse toute seule sans avoir besoin de cliquer pour celà

Nenosofar : merci mais comme mentionné au début je ne veux pas que le code soit inscrit dans thisworkbook car mon fichier est un modele et quand j'enregistre sous il fait disparaitre la feuille "choix" et s'ouvre sur un nouvel onglet

dans ce nouvel onglet je ne veux pas de plein écran. c'est pourquoi si je mets le code dans this workbook, le nouveau fichier créé s'ouvrira en plain écran chose que je ne veux pas

j'espère que tu comprendras ce que je veux dire

merci

seb

Hello,

Pas facile de comprendre !!

Tu veux en fait que choisir soit une feuille masquée et que lorsque tu l'ouvres elle soit en plein ecran?

Sinon donne le fichier le plus proche de ce que tu souhaites faire.

@+

Oui je sais pas facile a comprendre

j'ai un fichier modele que je veux ouvrir en plein écran (feuille choix) ; lorsque je clic sur un bouton intégré à cette feuille, celà ouvre une autre page qui sera en écran normal et cache le feuille d'origine (choix)

j'en registre le tout dans un nouveau fichier qui s'ouvrira tout le temps en écran normal

en fait je veux seulement que lorsque j'ouvre mon écran modele celà fasse un plain écran. mais si je mets le code en thisworkbook celà lancera également le plein écran dans mon nouveau fichier ; chose que je ne souhaite pas

voilà j'espère que c'est plus clair

seb

Ben tu appelle ton fichier avec le nom modèle.

A l'ouverture de celui -ci tu teste si le nom du fichier en vba ActiveWorkbook.Name = modèle

En gros

ActiveWorkbook.Name dans une variable test

si test = modèle alors ton code ecran 

sinon ben rien de spécial.

Je te laisse revenir si tu bloques.

Rechercher des sujets similaires à "plein ecran certains onglets pas defaut"