Discussion :

[Didier Ch.]

Bonjour,
Mon problème est simple, mais j'ai peur que la solution ne soit complexe...

Je partage un fichier Excel 2019 avec un collègue.
Dans ce fichier, je définis minutieusement sur chaque onglet (+ de 20), en fonction de l'affichage attendu par nos chefs :

• Les lignes et colonnes d'entête figés (menu Affichage > Fenêtre > Figer les volets)
• L'affichage ou pas du quadrillage (menu Affichage> Afficher > Quadrillage)

Le problème, est que mon collègue travaille dans ce fichier avec 2 fenêtres grâce à la fonction Affichage > Fenêtre > Nouvelle fenêtre.
La seconde fenêtre ouverte ne reprend pas mes définitions "minutieuses" ci-dessus. Et quand il enregistre ses modification, tout mon paramétrage est perdu au profit du paramétrage par défaut d'un nouveau classeur Excel :

• Aucune ligne ni colonne figée, sur aucun onglet
• Quadrillage affiché sur tous les onglets

Et je suis donc régulièrement obligé de redéfinir mes lignes et colonnes figées sur chaque onglet, et d'enlever le quadrillage.

Existerait-il des moyens d'éviter ou contourner ce problème ?
Par exemple en forçant la nouvelle fenêtre à reprendre les paramètres d'affichage de la précédente ?

Les solutions par modification des options de Excel, par macro VBA ou autres astuces sont les bienvenues !
Merci d'avance à ceux qui pourront se pencher sur cette question...

[Pierre Dumas]

Bonjour

Malheureusement pour vous, je n'ai pas de solution. C'est effectivement un comportement que j'avais déjà remarqué.

La seule chose qui fasse que tous vos paramétrages puissent être conservés c'est que votre collègue ferme d'abord la nouvelle fenêtre qu'il a ouverte PUIS qu'il enregistre. Mais surtout pas de fermer la fenêtre 1 avant d'enregistrer. Sinon, effectivement, tout est perdu.

En espérant pour vous que quelqu'un aura une solution apportant plus d'optimisme que cette solution basée sur la manipulation.

En espérant malgré tout que cela aide

Bonne soirée

Pierre Dumas

[Didier Ch.]

En espérant malgré tout que cela aide

Bonjour Pierre.
Merci, cela m'éclaire déjà un peu.
Je vais voir si je peux le convaincre de faire comme ça :

• Fermer d'abord la nouvelle fenêtre
• Puis enregistrer et fermer le fichier

Mais je crains qu'il n'oublie une fois sur deux...

J'espère toujours que quelqu'un aura une solution automatisée qui évite les oublis…

Cordialement,
Didier

[Pierre Fauconnier]

Salut.

Les propriétés du groupe Fenêtre de l'onglet Affichage du ruban sont bien liées à une fenêtre. Perso, j'aurais apprécié que l'option de quadrillage se trouve également dans le groupe Fenêtre, puisque c'est une propriété de fenêtre.

Dès lors, pour être certain de fermer les fenêtres supplémentaires et de remettre les paramètres corrects à celle qui reste, je ne vois qu'une solution en VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ManageWindows()
  Dim i As Long
 
  For i = ThisWorkbook.Windows.Count To 2 Step -1
    ThisWorkbook.Windows(i).Close
  Next
 
  Feuil5.Activate
  Range("c2").Activate
  With ActiveWindow
    .FreezePanes = True
    .DisplayGridlines = False
  End With
End Sub

Ce code sera appelé par exemple lors de la demande de fermeture

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  ManageWindows
End Sub

[Didier Ch.]

Merci Pierre !
Ta proposition est très intéressante.
Mais si j'ai bien compris l'observation du "premier" Pierre (Dumas), si mon collègue enregistre son fichier avant de demander sa fermeture, ça ne va pas marcher. Il faudrait forcer à fermer les fenêtres secondaires comme tu le fais avant d'enregistrer (j'espère que l'évènement existe, je n'ai pas encore pu vérifier…).
je regarde plus précisément la semaine prochaine, et je vous tiens au courant...

[Pierre Fauconnier]

La procédure ManageWindows (indépendante d'un évènement, ce qui toujours mieux que de "coder dans l'évènement", voir mon billet qui explique pourquoi) peut être appelée au départ d'un évènement, par exemple ThisWorkbook_BeforeClose ou ThisWorkobook_BeforeSave. C'est à toi de déterminer sur quoi tu veux appeler la gestions des fenêtres

[Didier Ch.]

Bonjour.
J'ai testé le code de Pierre P., et cela ne fonctionne pas.
Si j'ai plusieurs fenêtres :

• La première (celle suffixée ":1" dans le titre de la fenêtre) est la "bonne" avec le paramétrage initial des volets figés et autres options d'affichage (quadrillage, entêtes, etc.)
• Les autres n'ont pas de volets figés (etc.) et le but est donc des les ignorer lors de la sauvegarde.

Si j'enregistre manuellement, comme l'a dit Pierre D. :

• Depuis la première fenêtre : j'enregistre bien mes volets figés, et je les retrouve à la réouverture du fichier.
• Depuis une autre fenêtre : je perds mes volets figés, car Excel enregistre la configuration de la fenêtre depuis laquelle l'enregistrement est demandé.

Le problème vient du fait que cette notion de première fenêtre ou de fenêtres suivantes ne correspond pas à la notion d'indice i dans

ThisWorkbook.Windows(i)

utilisée dans le code de Pierre F.
En effet, d'après mon petit test, l'indice 1 correspond toujours à la fenêtre active. Confirmé sur le support Microsoft :

Notez que la fenêtre active est toujours Windows(1).

Je me suis alors inspiré d'une autre discussion de ce forum :

Le bon code, à appeler depuis Workbook_BeforeSave est donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = ThisWorkbook.Windows.Count To 2 Step -1
  ThisWorkbook.Windows(ThisWorkbook.Name & ":" & i).Close
Next

Cela ferme toutes les fenêtres ouvertes en supplément (et donc sans les bons paramétrages d'affichage). La sauvegarde se fait donc forcément sur la "première" fenêtre, celle qui a le bon paramétrage.
Inutile ensuite de définir en VBA les volets à figer (etc.) dans chacun de mes 20+ onglets !
Merci à Pierre D. et Pierre F. pour vos contributions !