Workbooks("TAGUEUR BV.xlsm").Activate ne fonctionne pas

Résolu/Fermé
Sormick Messages postés 143 Date d'inscription dimanche 10 novembre 2013 Statut Membre Dernière intervention 26 février 2024 - 20 juin 2022 à 10:24
T3chN0g3n Messages postés 4864 Date d'inscription samedi 16 février 2019 Statut Membre Dernière intervention 1 mars 2024 - 20 juin 2022 à 10:44
Bonjour,

J'ai trois tableaux excel ouverts dont le tableau "TAGUEUR BV.xlsm"

lorsque je mets Workbooks("TAGUEUR BV.xlsm").Activate, ce tableau ne s'affiche pas, pourtant il semble activé car lorsque je rajoute le code msgbox thisworkbook.name c'est bien le tableau "TAGUEUR BV.xlsm" qui est activé.

Je ne comprends pas. pourriez-vous m'aider?




Configuration: Windows / Chrome 102.0.0.0
A voir également:

2 réponses

T3chN0g3n Messages postés 4864 Date d'inscription samedi 16 février 2019 Statut Membre Dernière intervention 1 mars 2024 1 074
Modifié le 20 juin 2022 à 10:41
Bonjour,

Ne pas confondre activer et afficher, c'est deux choses différentes.
Une fois activé, pour l'afficher il faut par exemple l'agrandir avec :
ActiveWindow.WindowState = xlMaximized

https://docs.microsoft.com/fr-fr/office/vba/api/excel.application.windowstate

Cdlt.
1
Sormick Messages postés 143 Date d'inscription dimanche 10 novembre 2013 Statut Membre Dernière intervention 26 février 2024
20 juin 2022 à 10:40
Du coup j'ai réussi à résoudre mon problème en rajoutant ce code


Workbooks("TAGUEUR BV.xlsm").Activate

Application.ScreenUpdating = False
Dim WB As Workbook
For Each WB In Workbooks
If WB.Name <> ThisWorkbook.Name Then
WB.Activate
ActiveWindow.WindowState = xlMinimized
End If
Next WB
ThisWorkbook.Activate
ActiveWindow.WindowState = xlMaximized
Application.ScreenUpdating = True
0
T3chN0g3n Messages postés 4864 Date d'inscription samedi 16 février 2019 Statut Membre Dernière intervention 1 mars 2024 1 074
Modifié le 20 juin 2022 à 10:45
Je pense pas qu'il y'ait besoin de tous ça ...
Workbooks("TAGUEUR BV.xlsm").Activate
ActiveWindow.WindowState = xlMaximized

ça devrait suffire.
0