Bonjour le Forum
Avec Excel 2016 et 2013 la méthode Activate appliquée à un workbook ne fonctionne plus, après avoir ouvert un ou plusieurs fichiers alors que ScreenUpdating = False. Cela fonctionne parfaitement avec Excel 2003 et 2007.
Par exemple :
Curieusement, c'est le premier classeur ouvert (Add ou Open : même combat !) qui devient actif à la fin de la macro.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Sub Test() 'avec[xl2016] Workbook.Activate ne fonctionne pas, 'quand ScreenUpdating = False ! Dim w1 As Workbook Dim w2 As Workbook Application.ScreenUpdating = False Set w1 = Workbooks.Add(xlWBATWorksheet) Set w2 = Workbooks.Add(xlWBATWorksheet) Application.ScreenUpdating = True w2.Activate 'ça fonctionne pas : w1 qui reste actif !!! ThisWorkbook.Activate 'idem End Sub
J'ai essayer de placer plusieurs DoEvents sans succès.
Bien évidemment, si on supprime ScreenUpdating = False, ça fonctionne normalement.
Je n'ai pas trouvé de solution dans les post similaires.
Edit : avec Excel 2016 et 2013 - Modif Titre
Partager