Temps d'ouverture d'un fichier

[MJ13]

Bonjour à tous.

Sur Word 2003, on peut avoir le temps d'ouverture d'un fichier. Mais sur Excel 2003, on a dans les propriétés statistique le temps d'édition sans rien à côté.
Savez vous si on peut le faire apparaître ou sinon, comment lui faire calculer en VBA le temps d'ouverture sur une feuille sur les évênements worbook_open et close par exemple ou autre solution?

 

[Pierrot93]

Re : Temps d'ouverture d'un fichier

Bonjour Michel,

si j'ai bien compris... une variable public dans un module standard :

Option Explicit
Public t As Single

macros événementielles dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_Open()
t = Timer
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With ThisWorkbook
        .BuiltinDocumentProperties(13) = CInt((Timer - t) / 60)
        .Save
    End With
End Sub

a voir si cela peut te convenir...

bon après midi
@+

 

[MJ13]

Re : Temps d'ouverture d'un fichier

Re bonjour à tous et à Pierrot

Merci Pierrot je testerai plus tard ta proposition.

Sinon, J'ai trouvé ceci en incorporant une feuille nommée stat qui se masque à l'ouverture et à la fermeture du fichier.
Je fais la différence entre les 2 dates en colonne C en HH:mm avec un total en cellule D1:
=SOMME(C(-1)) en format [hh]:mm.

Private Sub Workbook_Open()
'Stop
Sheets("Stat").Visible = True
Sheets("Stat").Select
Range("a65336").End(xlUp).Rows.Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Stat").Visible = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Stat").Visible = True
Sheets("Stat").Select
Range("b65336").End(xlUp).Rows.Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Stat").Visible = False
End Sub

Je pense que cela me conviendra.

 

[MJ13]

Re : Temps d'ouverture d'un fichier

Rebonjour à tous.

Pierrot je viens de tester ta méthode et cela fonctionne parfaitement.
Tu es parfait comme d'habitude.

Encore merci et bonne continuation.