Ok, merci Didier. Je vais tester tes points, je voulais une confirmation de ta part sur le bon choix d'instruction

Michel

Bonjour, j'ai besoin d'un avis car j'ai utilisé l'instruction suivante : Application.OnTime Range("In_40minutes"), "'Fermeture """ & Time_Opening & """'", , False

et ça ne semble pas avoir d'effet . L'objectif est de désactiver l'application.ontime qui consiste à fermer un classeur au bout de 40' d'utilisation dans le cas où l'utilisateur va quitter le classeur avant 40'. Jre dis que ça ne marche pas car après avoir fermé le classeur avant 40' je continue à avoir un peu plus tard un message qui me dit que le système cherche le classeur en question.
voici les instructions de départ :
Range("In_40minutes") = TimeNow + TimeValue("00:40:00")    'To quit the worksheet after 40'
Application.OnTime Range("In_40minutes"), "'Fermeture """ & Time_Opening & """'"   

pour info, la syntaxe du paramètre de la macro fermeture est d'enfer et m'a été communiquée par Myta que je remercie encore...mais ce n'est pas le sujet

La macro de fermeture s'appelle fermeture

In_40minutes est une valeur qui est stockée dans une celleule excel.

Je ne joins pas le fichier qui fait un MO

Merci d'avance à ceux qui vont passer un peu de temps sur ce sujet
Michel

Michel

Mon cher Myta (tu permets que je t'appelle Myta?) , je ne dirai qu'un mot (en fait 2) : ça marche!
Merci pour ton aide et ta patience, ça fait plaisir de pouvoir compter sur vous (j'associe Didier  à mes remerciements)
Bien cordialement
Bon week-end

Un 2ième PS pour Didier : super le site (juste un petit peu lent parfois, si je peux je vais peut-être m'en inspirer cet été, je profiterai d'un peu de temps libre pour créer un site, attends toi à quelques questions mais peut-être n'y a t-il pas de rubrique site web dans ton forum ?)

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

Salut Myta,
Bon ben c'est sans doute moi qui suis bouché, j'ai copié bêtement tes instructions et chez moi ça ne fonctionne pas "message macro non trouvée".
Je vais essayer de trouver une autre solution car ces syntaxes tordues ne m'inspirent pas..
Merci en tout cas pour ton temps
Michel

Bonsoir Didier, bonsoir Myta,
Je n'ai pas répondu plus tôt, j'étais en déplacement sans possibilité de me connecter. J'ai réessayé et ça ne marche toujours pas : cette fois le message me fait bien apparaître la valeur du paramètre qui est une heure mais il doit y avoir encore un problème de quote simple ou quote double, y a t-il une autre solution pour éviter de s'arracher les cheveux avec cette syntaxe un peu trop compliquée? 
Merci
Michel

Mon instruction:
Application.OnTime TimeValue(Apres30minutes), "'Fermeture " & Time_Opening & " ' "

Le message avec la syntaxe de myta:
impossible de trouver la macro : "c:\Timesheet.xls'! 'Fermeture 23:29:29 "

L'heure est correcte (c'est mon argument passé à la macro) 
Fermeture est le nom de ma macro

Ma procédure :
Sub Fermeture(Time_Opening As Date)

Merci Myta. Mais quand le paramètre est une variable ?
Dans mon exemple : Application.OnTime TimeValue(Apres40minutes), "'Fermeture(Time_Opening) '"   C'est Time_Opening qui est une variable mais cette syntaxe n'est pas la bonne.
Michel

Bonjour,
Merci pour le message mais ça ne répond malheureusement pas à ma question qui est : comment passer un paramètre à la macro lancée par application.ontime. Je ne sais quelle est la syntaxe à utiliser avec les "" ou les ' .
Merci de votre aide
Michel

Bonjour Didier,
Besoin d'un coup de main pour une syntaxe que je ne suis pas arrivé à trouver. Il s'agit du passage de paramètre à une macro appelée dans l'instruction application.ontime:
J'ai essayé différentes formules,la dernière étant :
Application.OnTime TimeValue(Apres10minutes), "'Fermeture(Time_Opening) '"
La macro s'appelle Fermeture et le paramètre passé est Time_Opening
Je ne m'en sors pas
Merci d'avance
Michel