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+

 

[JCGL]

Re : Sauts d'écran avec la commande Save

Bonjour à tous,

Avec XL 2013 et Win 10 : Premier lancement OK puis les autres : dessins animés

A+ à tous

 

[tototiti2008]

Re : Sauts d'écran avec la commande Save

Bonjour à tous,

En lisant ce fil là :
Application.ScreenUpdating not working in Excel 2013-VBForums
j'ai pensé à ce bug, est-ce que la solution de contournement proposée fonctionne ?
Pour tester

 

[job75]

Re : Sauts d'écran avec la commande Save

Bonjour Marc,

J'ai toujours les sauts d'écran sur mon Excel 2013.

Par curiosité j'ai modifié la macro sauve dans les 3 fichiers :

Sub sauve()
Dim fich As Workbook
MsgBox Workbooks.Count & " fichiers ouverts"
For Each fich In Workbooks
  fich.Save
  MsgBox fich.Name & " : Screen : " & Application.ScreenUpdating
Next fich
End Sub

L'écran est toujours à Faux.

Edit : si j'inverse :

MsgBox fich.Name & " : Screen : " & Application.ScreenUpdating
fich.Save

c'est encore toujours Faux

A+

 

[tototiti2008]

Re : Sauts d'écran avec la commande Save

Bonsoir Gérard, Bonsoir à tous,

J'ai toujours les sauts d'écran sur mon Excel 2013.

Bon, tant pis, on regardera à l'avenir si d'autres solutions de contournement existent, ou sinon si une mise à jour semble arranger le problème...

 

[TheLio]

Re : Sauts d'écran avec la commande Save

Bonjour le fil le forum,
Je trouvais assez amusant de regarder ces sauts d'écrans...
Et je me suis dit que si on remettais un Application.ScreenUpdating = True ça irait peut-être arranger les choses.
Et bien oui, En Excel 2013 avec Windows 8.1 plus de saut d'écrans
Sais pas si ça résoudra le problème... mais voilà
@++
Lio

Edit : OOOps, ben non, ça le fait à nouveau
Edit 2 : Forcer Excel a travailler en mode de compatibilité est peut-être une solution (provisoire certes)