Ouverture de 2 fichiers excel avec macro impossible

  • Initiateur de la discussion Initiateur de la discussion Armarm
  • 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 !

Armarm

XLDnaute Nouveau
Bonjour à tous,

J'ai 2 fichiers excel qui comporte les même macro

Code:
Private Sub Workbook_Open()
ProchainArret
Sheets("AIDE").Activate
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False
ProchainArret
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  ThisWorkbook.Save
  'ThisWorkbook.Saved = True
  On Error Resume Next
  Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False  ' annule événnement
End Sub

Code:
Public HeureArrêt
Sub ProchainArret()
HeureArrêt = Now + TimeValue("00:10:00")
Application.OnTime HeureArrêt, "Fin"
Sheets(1).[A1] = HeureArrêt
End Sub
Sub Fin()
  On Error Resume Next
  Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False 'annule événnemennt
  Workbooks.Open Filename:="MessageAvertissement.xls"
  ThisWorkbook.Close True
End Sub

Lorseque j'en ouvre un l'autre se referme automatiquement. Est ce normal ?

Merci d'avance
 
- 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

  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
69
Réponses
4
Affichages
355
Retour