Sujet Précédent Sujet Suivant

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

Résolu
Sormick Messages postés 145 Date d'inscription dimanche 10 novembre 2013 Statut Membre Dernière intervention 26 janvier 2023 - 20 juin 2022 à 10:24
T3chN0g3n Messages postés 4481 Date d'inscription samedi 16 février 2019 Statut Membre Dernière intervention 2 février 2023 - 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

Réponse 1 / 2
T3chN0g3n Messages postés 4481 Date d'inscription samedi 16 février 2019 Statut Membre Dernière intervention 2 février 2023 999
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
Réponse 2 / 2
Sormick Messages postés 145 Date d'inscription dimanche 10 novembre 2013 Statut Membre Dernière intervention 26 janvier 2023
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 4481 Date d'inscription samedi 16 février 2019 Statut Membre Dernière intervention 2 février 2023 999
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