XL 2013 Sauts d'écran avec la commande Save

[job75]

Bonjour le forum,

Je cherche à résoudre un problème agaçant.

Dans les 3 fichiers joints j'ai cette macro dans ThisWorkbook :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim fich As Workbook
Cancel = True
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each fich In Workbooks
  fich.Save
Next fich
Application.EnableEvents = True
End Sub

Ouvrez les 3 fichiers et cliquez sur la commande "Enregistrer".

Malgré Application.ScreenUpdating = False il y a des sauts d'écran.

Comment les éviter ?

A+

 

[Iznogood1]

Re : Sauts d'écran avec la commande Save

Bonjour,

aucun saut d'écran sur mon PC quand je fais le test !
Je n'ai pas d'idée.

 

[job75]

Re : Sauts d'écran avec la commande Save

Bonjour Iznogood1,

Merci pour la réponse.

Les 3 fichiers sont bien ouverts quand vous testez ?

Dans ce cas ce serait un bug propre à Excel 2013...

A+

 

[JCGL]

Re : Sauts d'écran avec la commande Save

Bonjour à tous,
Salut Gérard,

En direct du boulot sous XL 2010 : aucun saut... Avec les trois fichiers ouverts et seulement ceux-là.

A++ mon ami
A+ à tous

 

[job75]

Re : Sauts d'écran avec la commande Save

Bonjour Jean-Claude 🙂 merci beaucoup,

Donc a priori pas de saut d'écran ni sur Excel 2007, ni sur Excel 2010.

C'est donc bien un problème propre à Excel 2013.

Si quelqu'un peut tester sur Excel 2003 ou sur Excel 2016...

Edit : je joins les fichiers .xls pour Excel 2003.

A+

 

[job75]

Re : Sauts d'écran avec la commande Save

Re,

Ah bien ça c'est très curieux.

Sur mon ordi avec Excel 2013 j'ai testé les fichiers convertis en .xls du post précédent.

Il n'y a pas de saut d'écran mais il y a clignotement de la cellule active 😕

A+

 

[tototiti2008]

Re : Sauts d'écran avec la commande Save

Bonjour job, Iznogood, JCGL, 🙂

Pas de clignotement visible en 2003
Sur 2013, le ruban devient juste temporairement gris, et le nom des fichiers change dans la barre des titres

 

[job75]

Re : Sauts d'écran avec la commande Save

Bonjour Marc,

Oui chez moi dans tous les cas la barre des titres affiche successivement les fichiers.

Avec en plus le saut d'écran pour les fichiers .xlsm.

Pas de grisé du ruban.

A+

 

[tototiti2008]

Re : Sauts d'écran avec la commande Save

Re,

Pas de saut d'écran chez moi sur 2013 en xlsm, l'écran est toujours sur mon bureau 😀
saut d'écran, tu veux dire écran blanc ? ça ressemble à quoi ?

 

[job75]

Re : Sauts d'écran avec la commande Save

Re,

saut d'écran, tu veux dire écran blanc ? ça ressemble à quoi ?

Pas d'écran blanc, simplement le tableau affiché se modifie, les données des 3 feuilles se succèdent.

A+

 

[tototiti2008]

Re : Sauts d'écran avec la commande Save

Re,

Toujours XL2013 en xlsm :
Non, je ne vois pas le contenu des autres fichiers, juste ruban grisé un instant, nom des fichiers qui change

 

[job75]

Re : Sauts d'écran avec la commande Save

Re,

J'ai mis les 3 fenêtres des fichiers en "normal" et dans des positions différentes.

En fait chez moi les 3 fenêtres s'affichent successivement bien que l'écran soit figé.

A+

 

[tototiti2008]

Re : Sauts d'écran avec la commande Save

Re,

chez moi c'est un XL2013 sur une machine virtuelle (en windows 7), dont les réactions graphiques peuvent être un peu bizarres, pas sûr que je sois le cas d'école. Plutôt attendre un 2013 sur un système normal...

 

[Pierrot93]

Re : Sauts d'écran avec la commande Save

Bonjour à tous,

pas 2013, mais j'ai trouvé ceci :
Excel 2013 Screenupdating - Microsoft Community

A priori il parle d'un "application.wait" qui si j'ai bien compris (pas sur) résoudrait le problème... A voir...

bon après midi
@+

 

[job75]

Re : Sauts d'écran avec la commande Save

Bonjour Pierrot,

Merci pour ce lien.

Si je comprends bien il confirme un problème avec Application.ScreenUpdating = False sur Win 8 - Excel 2013.

J'avais déjà testé, sans succès, avec Application.Wait, DoEvents, .RefreshAll.

A+