Rapport de message :*
 

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) .