Bonsoir Mira57, Myta, le Forum,

Petite question Mira57 : où est située ta macro "Fermeture" ?

Pour que ça fonctionne, il faut qu'elle soit placée :

• dans un module de code standard (pas un module de code private de feuille, ni dans ThisWorkbook, ni dans un module de code de Userform).
• le module standard ne doit pas comprendre en entête l'instruction "Option Private Module"
• le nom de la sub ne doit pas être non plus précédé du mot clé "Private"

A part ça, pour moi, il n'y a aucune raison pour que le code de notre ami Myta ne fonctionne pas.

Cordialement,

Salut le forum

Il ne faut pas abandonner aussi vite, pourquoi ne pas
mettre ton code complet au-lieu de juste une ligne qui
ne fera jamais avancer la résolution de ton problème.

Il faut deviner ta façon de voir la chose et nous ne sommes
pas encore des Devins.

Au plaisir de te relire.
Mytå

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 le forum

Mira57, j'ai créer un classeur avec les codes fournies, les seules erreurs rencontrées : la double virgule et les macros non-incluse.

Mytå

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

Bonjour mira57, Myta,

Citation :
Si tu penses que la réponse de notre ami Myta te convient mira57, je te remercie de revenir clore le présent fil de discussion comme expliqué ICI.

Concernant ton 2ième PS, non, il n'y a aucune rubrique "site web" dans mon forum. mDF XLpages.com est un site dédié à Excel... ceci explique cela lol

Cordialement,

Michel

Salut le forum

Merci Mira57(Michel) d'avoir mis la ficelle en mode résolu.

Au plaisir de se croiser, sur une autre ficelle.

Jean-Rock Gauthier
(Alias Mytå)

P.S. Un petit bonjour à @Cathy comme nouvelle adepte du forum