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