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

Résolu/Fermé
Sormick Messages postés 146 Date d'inscription dimanche 10 novembre 2013 Statut Membre Dernière intervention 22 septembre 2024 - 20 juin 2022 à 10:24
T3chN0g3n Messages postés 5157 Date d'inscription samedi 16 février 2019 Statut Membre Dernière intervention 20 février 2025 - 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 5157 Date d'inscription samedi 16 février 2019 Statut Membre Dernière intervention 20 février 2025 1 148
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 146 Date d'inscription dimanche 10 novembre 2013 Statut Membre Dernière intervention 22 septembre 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 5157 Date d'inscription samedi 16 février 2019 Statut Membre Dernière intervention 20 février 2025 1 148
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