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
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
A voir également:
- Youtube/activate ne marche pas
- Comment télécharger une vidéo youtube - Guide
- Youtube sans pub - Accueil - Streaming
- Script vidéo youtube - Guide
- Convertir youtube en mp3 avec audacity - Guide
- Télécharger youtube gratuit en arabe - Télécharger - TV & Vidéo
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
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 :
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.
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
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
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
Modifié le 20 juin 2022 à 10:45
Je pense pas qu'il y'ait besoin de tous ça ...
ça devrait suffire.
Workbooks("TAGUEUR BV.xlsm").Activate ActiveWindow.WindowState = xlMaximized
ça devrait suffire.