Discussion :

[Patrice740]

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 :

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

Curieusement, c'est le premier classeur ouvert (Add ou Open : même combat !) qui devient actif à la fin de la macro.

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

[casefayere]

Bonjour,
à ton avis, regardes bien, tu écris

Code :

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

1
2
Set w1 = Workbooks.Add(xlWBATWorksheet)
    Set w2 = Workbooks.Add(xlWBATWorksheet)

il me semble que c'est le même, non ? et il faudrait savoir ce que représente "xlWBATWorksheet"

[Patrice740]

Workbooks.Add(xlWBATWorksheet) est la commande usuelle pour créer un nouveau classeur contenant une seule feuille de calcul (xlWBATWorksheet étant le modèle des feuilles de calcul Excel)

Le problème ne se situe pas là, il y a bien 2 classeurs qui sont créés (w1 etw2). le pb c'est la commande Activate qui n'active rien !

[unparia]

Bonjour
Le classeur actif n'est pas ThisWorkbook, mais ActiveWorkbook.
Idem d'ailleurs sous 2007.

EDIT : Pour être très précis : que ce soit avec Office 2007 ou une version supérieure :
ThisWorkbook n'est pas le classeur actif, mais celui dans un des modules duquel est écrite la macro en cours d'exécution.

[Patrice740]

Le classeur actif n'est pas ThisWorkbook, mais ActiveWorkbook.

Je ne vois pas le rapport avec le problème !!!

Le rôle de la méthode Activate est de transformer un classeur existant en classeur actif

ThisWorkbook est le classeur qui contient la macro et le problème est que ThisWorkbook.Activate ne fonctionne pas (pas plus que w2.Activate) !

[casefayere]

un éclair, j'espère ne pas dire de bétise mais pour afficher le classeur et le rendre actif, passer par "Windows

Code :

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

Windows(w2).Activate

à tester, si echec ajouter l'extension

[eriiic]

Bonjour,

testé et non constaté sur excel 2016 (win10), ni sur 2010 (win7) d'ailleurs.
eric

[Patrice740]

Bonjour Eriiic,

C'est curieux, j'ai le pb sur mes 2 PC portables équipés de Windows 10 Famille.
Celui-ci avec Office Famille et Étudiant 2016 Version 16.0.6965.2058
et l'autre avec Office Famille 2013

Je n'avais pas de problème avec mon fixe (W7-Xl2007)

Je ne suis le seul a avoir ce pb : http://stackoverflow.com/questions/2...screenupdating

[Marc-L]

Bonjour, bonjour !

Quel est donc l'objet du code ?

Car un bon code n'a pas besoin de ces affreux Select & Activate !

Voilà, voilà !

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[casefayere]

et as-tu vu ma dernière réponse ? car comme je n'ai pas testé (je suis occupé), j'aimerai savoir

[Patrice740]

@casefayere
le problème est identique (pas d'activation si ScreenUpdating = False) avec Windows(w2.Name).Activate

@Marc-L

Car un bon code n'a pas besoin de ces affreux Select & Activate !

Je n’utilise Select ou Activate que quand c'est vraiment indispensable !
En l’occurrence, activer un classeur en particulier parmi tous, à la fin de la macro.

[unparia]

je n'ai pas les versions 2013 et 2016
Que se passe-t-il avec :

Code :

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

Set w2 = ActiveWorkbook

qui ne provoque pas d'erreur en 2007 ?
2007 accepte également de forcer la main :

Code :

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

Workbooks(w2.Name).Activate

Que fait avec cela 2013 ?

[eriiic]

Et si tu enregistres les classeurs ça n'aide pas excel à les ramener à la raison ?
eric

[Patrice740]

Et si tu enregistres les classeurs ça n'aide pas excel à les ramener à la raison ?
eric

Malheureusement pas !

Par contre en ajoutant un msgbox, ça fonctionne ! (mais avec DoEvents) :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Test()
Dim w1 As Workbook
Dim w2 As Workbook
    Application.ScreenUpdating = False
    Set w1 = Workbooks.Add(xlWBATWorksheet)
    Set w2 = Workbooks.Add(xlWBATWorksheet)
    MsgBox ""
    Application.ScreenUpdating = True
    w2.Activate
End Sub

[grisan29]

bonsoir patrice740 et le forum
et si tu essaye les 2 lignes de codes suivantes en même temps est ce bon

Code :

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

1
2
Application.ScreenUpdating = False
  Application.EnableEvents = False

en n'oubliant pas de les remetre en bas du code juste avant end sub mais a = true

autrement je ne peux t'aider plus

Pascal

[Klin89]

Bonsoir le fil,

Patrice740 :
Exécute ta macro en mode pas à pas.
Ajoute un espion sur ActiveWorkbook.Name.
Cela donne quoi

klin89

[eriiic]

Re,

et

Code :

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

w2.Sheets(1).Activate

?

[Patrice740]

...et si tu essaye les 2 lignes de codes suivantes en même temps est ce bon

Code :

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

1
2
Application.ScreenUpdating = False
  Application.EnableEvents = False

en n'oubliant pas de les remettre en bas du code juste avant end sub mais a = true ....

Merci Pascal de ta réponse, mais j'avais déjà essayé : je savais que ScreenUpdating = False pose parfois des problèmes lors qu'il est exécuté dans une macro événementielle, mais là, ce n'est pas le cas, il s'agit d'un module standard.

Exécute ta macro en mode pas à pas.
Ajoute un espion sur ActiveWorkbook.Name.

En mode pas à pas, ça n'est pas représentatif : ScreenUpdating revient à True à chaque fois !
Par contre, ta réponse permet de mieux cerner le problème :
Avec un Debug.Print, ActiveWorkbook tout est normal et ça correspond à la macro (i.e. w1, w2, w2, ThisWorkbook) !!!
Mais lorsque la macro rend la main c'est w1 qui est actif. On dirait que c'est l'affichage qui est resté bloqué sur le premier classeur créé.

[eriiic]

Je réitère :
et w2.Sheets(1).Activate ???

[Patrice740]

Bonjour Eriiic,

Désolé, j'ai oublié de te répondre : ça change rien, mais comme disais dans le post précédent, pour la macro le classeur actif est bien w2,c'est lorsque la macro rend la main que w1 s'affiche en temps que classeur actif.
Il y a une différence entre le classeur actif d'Excel et celui de Windows !!!
Il faut peut-être faire appel à l'API windows ???