Temps d'ouverture d'un fichier

MJ13 · 25 Février 2008

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 · 25 Février 2008

Re : Temps d'ouverture d'un fichier

Bonjour Michel,

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

Code:

Option Explicit
Public t As Single

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

Code:

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 · 25 Février 2008

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.

Code:

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 · 25 Février 2008

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.

Temps d'ouverture d'un fichier

MJ13

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

Discussions similaires

Temps d'ouverture d'un fichier

MJ13

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency