Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro excel adaptation classeur taille maxi tout écran

  • Initiateur de la discussion Initiateur de la discussion casamartin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

C

casamartin

Guest
Bonjour les As,

Un souci concernant la mise en page à l'ouverture dans le ThisWorkbook d'un classeur de 2 fenêtres.
Macro simplifiée ci-dessous:

Option Explicit
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Windows("Classeur.xls:1").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Feuil1").Select
ActiveSheet.Protect "Motdepasse", Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Range("$A$1:$X$1").Select
ActiveWindow.Zoom = True
Sheets("Feuil2").Select
ActiveSheet.Protect "Motdepasse", Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Range("$A$1:$U$1").Select
ActiveWindow.Zoom = True
Windows("Classeur:2").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Feuil1").Select
ActiveSheet.Protect "Motdepasse", Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Range("$C$1:$R1").Select
ActiveWindow.Zoom = True
Sheets("Feuil2").Select
ActiveSheet.Protect "Motdepasse", Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Range("$A$1:$S$1").Select
ActiveWindow.Zoom = True
ActiveWorkbook.Protect "Motdepasse", Structure:=True, Windows:=True
Application.ScreenUpdating = True
End Sub

Cette macro adapte automatiquement le classeur à la taille de l'écran.
La première fenêtre pose problème, elle se positionne en xlnormal alors la demande est xlmaximized
En changeant dans dans la dernière ligne de sauvegarde en Windows:=False, les 2 fenêtres xlaximized mais les fenêtres ne sont pas bloquées.
J'en déduit que seul la fenêtre en premier plan est xlmaximized
La question est la suivante comment adapter la feuille en arrière plan au maxi xlnormal de l'écran en protection classeur windows:True.
 
Re : macro excel adaptation classeur taille maxi tout écran

Bonjour,
Je ne comprends pas bien tes explications.
Pour adapter la fenêtre Excel à la taille de l'écran, tu dois utiliser
Code:
Application.WindowState = xlMaximized
et non
Code:
ActiveWindow.WindowState = xlMaximized
qui adapte la fenêtre du classeur à la fenêtre Excel.

A+
 
Re : macro excel adaptation classeur taille maxi tout écran

Bonjour Hippolite, bonjour à tous,

Que cela soit avec activeWindow ou Application, le résultât est le même, quand on protège le classeur ,en fenêtre double, la fenêtre en arrière plan est en xlnormal.
Si je n'avais pas de double fenêtre dans les classeurs pas de problème
Si je ne protège pas le classeur ça fonctionne trés bien quelque soit le nombre de fenêtres.

C'est pour cela que je pense que l'on ne peut pas avoir dans un classeur deux fenêtres xlMaximized en mode protégé

Je voudrais donc avoir la fenêtre en arrière plan en XLnormal dimensions maximal dans le cadre intérieur d'excel.
pour l'obtenir je passe en mode semi-auto.
Actuellement, j'ouvre un classeur menu qui contient les macros de pilotage.
J'ouvre par bouton un classeur à double fenêtre, il est paramétré à l'ouverture dans le ThisWorkbook.
Ma fenêtre en arrière plan est xlNormal trop petite.
C'est là ou je ne comprends pas c'est que lorsque je déprotège mon classeur manuellement et que je réactive la macro de paramètrage, la fenêtre en arrière plan est Xlnormal maxi, c'est ce que je voudrais automatique
 
Re : macro excel adaptation classeur taille maxi tout écran

Euréka, j'ai trouvé, quand je sauvegarde mon classeur, il reste protégé, j'ai donc inclus en première ligne
ActiveWorkbook.unProtect "Motdepasse" et la fenêtre en arrière plan est xlNormal maxi.
C'est pour cela que quand je réactivé manuellement ma macro mon classeur été déprotégé et ça fonctionné.

Merci pour tout, j'ai enregistré le mode Application qui est plus logique.
 
Re : macro excel adaptation classeur taille maxi tout écran

Une question subsidière, je ne peux pas utiliser:
Option Explicit
Public Const mdp As String = "Mot de passe"
dans ThisWorkbook.
Il y a t'il une autre approche ?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

O
Réponses
3
Affichages
801
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…