Résolu - Macro qui s'active sur tout les classeurs excel ouvert

  • Initiateur de la discussion Initiateur de la discussion aleks73
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

aleks73

XLDnaute Nouveau
Bonjour,

Novice en VBA, j'ai ecris une macro dans le "thisworkbook" pour cas l'ouverture du fichier celui-ci passe en mode "utilisateur" (un mode pleine ecran).
Mon probléme est que cette macro s'active sur tout mes autres classeurs excel ouvert. Est-il possible de la restreindre seulement a ce classeur ?
Merci pour votre aide

Cordialement,

PS: Voici le code dans le workbook
Private Sub Workbook_Open()
'
' ActiverLeModeUtilisateur Macro
'
'
Application.DisplayFormulaBar = False
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayFullScreen = True
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayZeros = False
End With
End Sub
Private Sub Workbook_beforeclose(Cancel As Boolean)
'
' DesactiverLeModeUtilisateur Macro
'
'
Application.DisplayFormulaBar = True
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayFullScreen = False
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = True
.DisplayZeros = True
End With
End Sub
 
Bonjour aleks et bienvenue sur XLD 🙂

Essaie comme ceci

Dim Wbk As Workbook

set Wbk = Workbooks("Nom du classeur avec macro") exemple = "Classeur1.xlsm"

With Wbk
La macro
End With
If ActiveWorkbook.Name <> WbK Then Exit Sub

EDIT: Bonjour PMO 🙂
 
Bonjour,
Essayez de remplacer votre code par celui qui suit :
VB:
Private Sub Workbook_Activate()   'modif
'
' ActiverLeModeUtilisateur Macro
'
'
Application.DisplayFormulaBar = False
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayFullScreen = True
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayZeros = False
End With
End Sub

Private Sub Workbook_Deactivate()   'modif
'
' DesactiverLeModeUtilisateur Macro
'
'
Application.DisplayFormulaBar = True
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayFullScreen = False
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = True
.DisplayZeros = True
End With
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
577
Retour