Workbooks("TAGUEUR BV.xlsm").Activate ne fonctionne pas
Résolu
Sormick
Messages postés
163
Statut
Membre
-
T3chN0g3n Messages postés 6006 Statut Membre -
T3chN0g3n Messages postés 6006 Statut Membre -
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
A voir également:
- Youtube/activate ne marche pas
- Comment télécharger une vidéo youtube - Guide
- Supprimer pub youtube - Accueil - Streaming
- Youtube mp3 - Guide
- Script vidéo youtube - Guide
- Télécharger youtube gratuit en arabe - Télécharger - TV & Vidéo
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 :
https://docs.microsoft.com/fr-fr/office/vba/api/excel.application.windowstate
Cdlt.
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