Lecture/ écriture fichier invisible

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.

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:

---

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 ...

Nickel, merci Patrice et bonne journée.