Workbooks("TAGUEUR BV.xlsm").Activate ne fonctionne pas
Résolu/Fermé
Sormick
Messages postés
143
Date d'inscription
dimanche 10 novembre 2013
Statut
Membre
Dernière intervention
26 février 2024
-
20 juin 2022 à 10:24
T3chN0g3n Messages postés 4968 Date d'inscription samedi 16 février 2019 Statut Membre Dernière intervention 27 mars 2024 - 20 juin 2022 à 10:44
T3chN0g3n Messages postés 4968 Date d'inscription samedi 16 février 2019 Statut Membre Dernière intervention 27 mars 2024 - 20 juin 2022 à 10:44
A voir également:
- Youtube/activate ne marche pas
- Bloqueur de pub youtube - Guide
- Recuperer video youtube - Guide
- Convertisseur mp3 youtube comment ca marche - Guide
- Transcription youtube - Guide
- Télécharger youtube gratuit en arabe - Télécharger - TV & Vidéo
2 réponses
T3chN0g3n
Messages postés
4968
Date d'inscription
samedi 16 février 2019
Statut
Membre
Dernière intervention
27 mars 2024
1 091
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
143
Date d'inscription
dimanche 10 novembre 2013
Statut
Membre
Dernière intervention
26 février 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
4968
Date d'inscription
samedi 16 février 2019
Statut
Membre
Dernière intervention
27 mars 2024
1 091
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.