Workbooks("TAGUEUR BV.xlsm").Activate ne fonctionne pas
Résolu
Sormick
Messages postés
163
Statut
Membre
-
T3chN0g3n Messages postés 69 Date d'inscription Statut Membre Dernière intervention -
T3chN0g3n Messages postés 69 Date d'inscription Statut Membre Dernière intervention -
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
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
2 réponses
-
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. -
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
