Re: syntaxe VBA sur l'instruction application.ontime avec paramètres |
Titre du sujet : Re: syntaxe VBA sur l'instruction application.ontime avec paramètres par mira57 le 05/07/2008 15:44:28 Bon, OK vous avez raison bien sur. Je vous rassure, je ne suis pas du genre à abandonner, je cherche juste un autre moyen. Voici les instructions utilisées actuellement: à priori ça respecte les contraintes qu'a listées Didier Option Explicit Sub Fermeture(Time_Opening As Date) ThisWorkbook.Activate Worksheets("Weekly").Select Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Dim Closing_Text As String 'Texte de fermeture du classeur On Error GoTo Worksheet_already_closed If ActiveWorkbook.Name <> "TimeSheet.xls" Then Exit Sub Beep Closing_Text = " My dear " & Range("First_Name") & " Your Workbook is closed because you opened it at " & Time_Opening & " and you can use it 40 minutes maximum to avoid locking the other users!" Application.StatusBar = Closing_Text Application.DisplayAlerts = False 'to not have the message "do u want to save the changes?" Worksheets("Weekly").Select '__________________________ Reset_Barre_Outils_Standard '__________________________ ThisWorkbook.Save Copie 'backup in c: ActiveWorkbook.Close Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True Exit Sub Worksheet_already_closed: MsgBox " ML test", vbInformation, "Worksheet already closed" End Sub et l'instruction application Ontime est comme suit : Private Sub Workbook_Open() Worksheets("Weekly").Select Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim Compteur As Integer ..... je vous passe les instructions qui n'ont aucun rapport 'workbook closed after 40' Dim Apres40minutes As Date Dim Time_Opening As Date Time_Opening = Format(Time, "HH:MM:SS") 'Init Time opening Apres40minutes = Now + TimeValue("00:40:00") 'Application.OnTime TimeValue(Apres40minutes), , "'Fermeture """ & Time_Opening & """'" 'Syntaxe de Myta '----- réinit other events ----------- Worksheets("Weekly").Select Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Bon week-end Michel PS : Didier au fait pour ma question précédente, après mise en commentaire des instructions '.IncludeNumber = False, ta macro format conditionnel continue à marcher super bien (en espace partagé par 40 personnes) . |
Forums