Discussion :

[Lidem]

Bonjour,
J'ai quelques soucis avec une appli Excel VBA initialement développée sous Office 2010. Depuis la migration sous Office 2016, le passage en mode SDI perturbe passablement la gestion des fichiers et des sessions, d'autant que l'appli fait appel à de nombreux fichiers de données Excel en lecture/écriture séquentielle ou pas.
Pour éviter les sauts de fenêtre au niveau de l'appli la commande Application.Screenupdating = False est efficace mais du coup le statusbar où s'affiche la progression et l’enchainement des tâches se colore en vert foncé et devient illisible. J'ai tenté la modification de propriétés du statusbar mais sans succès.
Une autre solution serait de rendre invisibles les fichiers de données Mais je n'y arrive pas : les fichiers passés en invisible sont inaccessibles en lecture comme en écriture. Il y certainement une méthode...
Merci de vos conseils.

[Patrice740]

Bonjour,

C'est peut-être pas ce que tu cherches mais .... j'ai déjà eu un problème en employant Application.ScreenUpdating = False avec excel 2016.
Le problème est lié à la nouvelle interface SDI apparue avec Excel 2013 : L'onglet affiché n'est pas l'onglet actif !!!

Voici une démo du problème (Test) et la solution que j'avais adopté (ajouter ForEachWinDoEvents après le Application.ScreenUpdating = True)
Explication : le DoEvents n'agit que sur la fenêtre active, depuis Excel 2013, il faut en faire autant qu'il y a de fenêtres ouvertes dans l'application

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Test()
    Application.ScreenUpdating = False
    Set w1 = Workbooks.Add(xlWBATWorksheet)
    Set w2 = Workbooks.Add(xlWBATWorksheet)
    Set w3 = Workbooks.Add(xlWBATWorksheet)
    Application.ScreenUpdating = True
    'Ajouter la ligne :
    ForEachWinDoEvents
   '(ci-dessus) et essayer sans cette ligne
    w2.Activate
End Sub
Sub ForEachWinDoEvents()
Dim win As Window
  For Each win In Application.Windows
    DoEvents
  Next win
End Sub

Si ça peut te servir ...

[Lidem]

Nickel, merci Patrice et bonne journée.