Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Durée d'édition

Durée d'édition

15 réponses
Avatar
ADB
Bonjour
J'aimerai savoir comment je peux conna=EEtre la dur=E9e d'=E9dition d'un =

fichier Excel.
J'ai essay=E9 des formules du genre

Private Sub Workbook_Open()
Dim EdTime As String

EdTime =3D ThisWorkbook.BuiltinDocumentProperties(13).Value

MsgBox "Bonjour. Dur=E9e d'=E9dition : " & EdTime, vbInformation, "Bienve=
nue"
End Sub

mais =E7a plante

Quelqu'un peut-il m'aider ?
Merci d'avance
ADB


--=20
Guide M=E9diterran=E9e :
http://guidemediterranee.free.fr ou http://guidemediterranee.info

Guide Manche:
http://guidemanche.free.fr ou http://guidemanche.info

Guide Atlantique:
http://guideatlantique.free.fr ou http://guideatlantique.info
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jacky
Bonjour
Peut être avec

EdTime = ThisWorkbook.BuiltinDocumentProperties(13).Name

Salutations
JJ

"ADB" a écrit dans le message de
news:41bad839$0$19484$
Bonjour
J'aimerai savoir comment je peux connaître la durée d'édition d'un
fichier Excel.
J'ai essayé des formules du genre

Private Sub Workbook_Open()
Dim EdTime As String

EdTime = ThisWorkbook.BuiltinDocumentProperties(13).Value

MsgBox "Bonjour. Durée d'édition : " & EdTime, vbInformation, "Bienvenue"
End Sub

mais ça plante

Quelqu'un peut-il m'aider ?
Merci d'avance
ADB


--
Guide Méditerranée :
http://guidemediterranee.free.fr ou http://guidemediterranee.info

Guide Manche:
http://guidemanche.free.fr ou http://guidemanche.info

Guide Atlantique:
http://guideatlantique.free.fr ou http://guideatlantique.info
Avatar
ADB
Ben non, ça me donne le nom de la variable: "Total editing time" mais
pas la valeur.
Etrange
Merci quand même
ADB

Bonjour
Peut être avec

EdTime = ThisWorkbook.BuiltinDocumentProperties(13).Name

Salutations
JJ

"ADB" a écrit dans le message de
news:41bad839$0$19484$
Bonjour
J'aimerai savoir comment je peux connaître la durée d'édition d'u n
fichier Excel.
J'ai essayé des formules du genre

Private Sub Workbook_Open()
Dim EdTime As String

EdTime = ThisWorkbook.BuiltinDocumentProperties(13).Value

MsgBox "Bonjour. Durée d'édition : " & EdTime, vbInformation, "Bien venue"
End Sub

mais ça plante

Quelqu'un peut-il m'aider ?
Merci d'avance
ADB




--
Guide Méditerranée :
http://guidemediterranee.free.fr ou http://guidemediterranee.info

Guide Manche:
http://guidemanche.free.fr ou http://guidemanche.info

Guide Atlantique:
http://guideatlantique.free.fr ou http://guideatlantique.info

Avatar
papou
Bonjour
Je n'ai jamais utilisé cette propriété dans BuiltinDocumentProperties.
S'agit-il d'une valeur présente uniquement lorsqu'une modification
multi-utilisateurs est activée (partage) ?
Si c'est le cas, il te suffit peut-être tout simplement d'en vérifier l'état
avec quelque chose comme ça :
If ThisWorkbook.MultiUserEditing Then
Si cela peut t'aider ?
Cordialement
Pascal


"ADB" a écrit dans le message de news:
41badeb9$0$24497$
Ben non, ça me donne le nom de la variable: "Total editing time" mais
pas la valeur.
Etrange
Merci quand même
ADB

Bonjour
Peut être avec

EdTime = ThisWorkbook.BuiltinDocumentProperties(13).Name

Salutations
JJ

"ADB" a écrit dans le message de
news:41bad839$0$19484$
Bonjour
J'aimerai savoir comment je peux connaître la durée d'édition d'un
fichier Excel.
J'ai essayé des formules du genre

Private Sub Workbook_Open()
Dim EdTime As String

EdTime = ThisWorkbook.BuiltinDocumentProperties(13).Value

MsgBox "Bonjour. Durée d'édition : " & EdTime, vbInformation, "Bienvenue"
End Sub

mais ça plante

Quelqu'un peut-il m'aider ?
Merci d'avance
ADB




--
Guide Méditerranée :
http://guidemediterranee.free.fr ou http://guidemediterranee.info

Guide Manche:
http://guidemanche.free.fr ou http://guidemanche.info

Guide Atlantique:
http://guideatlantique.free.fr ou http://guideatlantique.info

Avatar
ADB
En fouillant un peu, j'ai découvert que cette fonction n'est pas
implémentée dans Excel 2000, même si la boîte de dialogie Proprié tés
comporte un champ qui aurait pu être renseigné.
Tant pis et merci à tous
ADB

Bonjour
Je n'ai jamais utilisé cette propriété dans BuiltinDocumentProper ties.
S'agit-il d'une valeur présente uniquement lorsqu'une modification
multi-utilisateurs est activée (partage) ?
Si c'est le cas, il te suffit peut-être tout simplement d'en vérifi er l'état
avec quelque chose comme ça :
If ThisWorkbook.MultiUserEditing Then
Si cela peut t'aider ?
Cordialement
Pascal


"ADB" a écrit dans le message de news:
41badeb9$0$24497$
Ben non, ça me donne le nom de la variable: "Total editing time" mais
pas la valeur.
Etrange
Merci quand même
ADB


Bonjour
Peut être avec

EdTime = ThisWorkbook.BuiltinDocumentProperties(13).Name

Salutations
JJ

"ADB" a écrit dans le message de
news:41bad839$0$19484$
Bonjour
J'aimerai savoir comment je peux connaître la durée d'édition d'u n
fichier Excel.
J'ai essayé des formules du genre

Private Sub Workbook_Open()
Dim EdTime As String

EdTime = ThisWorkbook.BuiltinDocumentProperties(13).Value

MsgBox "Bonjour. Durée d'édition : " & EdTime, vbInformation, "Bien venue"
End Sub

mais ça plante

Quelqu'un peut-il m'aider ?
Merci d'avance
ADB







--
Guide Méditerranée :
http://guidemediterranee.free.fr ou http://guidemediterranee.info

Guide Manche:
http://guidemanche.free.fr ou http://guidemanche.info

Guide Atlantique:
http://guideatlantique.free.fr ou http://guideatlantique.info


Avatar
Jacky
Re..
Pour les lister..
'-------
x = 1
Worksheets(1).Activate
Cells.Clear
On Error Resume Next
For Each p In ThisWorkbook.BuiltinDocumentProperties
Cells(x, 1).Value = p.Name
Cells(x, 3).Value = p.Value
x = x + 1
Next
'---------
JJ

"ADB" a écrit dans le message de
news:41bb0b10$0$19484$
En fouillant un peu, j'ai découvert que cette fonction n'est pas
implémentée dans Excel 2000, même si la boîte de dialogie Propriétés
comporte un champ qui aurait pu être renseigné.
Tant pis et merci à tous
ADB

Bonjour
Je n'ai jamais utilisé cette propriété dans BuiltinDocumentProperties.
S'agit-il d'une valeur présente uniquement lorsqu'une modification
multi-utilisateurs est activée (partage) ?
Si c'est le cas, il te suffit peut-être tout simplement d'en vérifier
l'état

avec quelque chose comme ça :
If ThisWorkbook.MultiUserEditing Then
Si cela peut t'aider ?
Cordialement
Pascal


"ADB" a écrit dans le message de news:
41badeb9$0$24497$
Ben non, ça me donne le nom de la variable: "Total editing time" mais
pas la valeur.
Etrange
Merci quand même
ADB


Bonjour
Peut être avec

EdTime = ThisWorkbook.BuiltinDocumentProperties(13).Name

Salutations
JJ

"ADB" a écrit dans le message de
news:41bad839$0$19484$
Bonjour
J'aimerai savoir comment je peux connaître la durée d'édition d'un
fichier Excel.
J'ai essayé des formules du genre

Private Sub Workbook_Open()
Dim EdTime As String

EdTime = ThisWorkbook.BuiltinDocumentProperties(13).Value

MsgBox "Bonjour. Durée d'édition : " & EdTime, vbInformation, "Bienvenue"
End Sub

mais ça plante

Quelqu'un peut-il m'aider ?
Merci d'avance
ADB







--
Guide Méditerranée :
http://guidemediterranee.free.fr ou http://guidemediterranee.info

Guide Manche:
http://guidemanche.free.fr ou http://guidemanche.info

Guide Atlantique:
http://guideatlantique.free.fr ou http://guideatlantique.info


Avatar
ADB
Pardon, mais je ne conais pas suffisamment la prog VBA pour savoir
comment et où j'intègre ce bout de code.
Merci de m'expliquer.
ADB

Re..
Pour les lister..
'-------
x = 1
Worksheets(1).Activate
Cells.Clear
On Error Resume Next
For Each p In ThisWorkbook.BuiltinDocumentProperties
Cells(x, 1).Value = p.Name
Cells(x, 3).Value = p.Value
x = x + 1
Next
'---------
JJ

"ADB" a écrit dans le message de
news:41bb0b10$0$19484$
En fouillant un peu, j'ai découvert que cette fonction n'est pas
implémentée dans Excel 2000, même si la boîte de dialogie Propr iétés
comporte un champ qui aurait pu être renseigné.
Tant pis et merci à tous
ADB


Bonjour
Je n'ai jamais utilisé cette propriété dans BuiltinDocumentProper ties.
S'agit-il d'une valeur présente uniquement lorsqu'une modification
multi-utilisateurs est activée (partage) ?
Si c'est le cas, il te suffit peut-être tout simplement d'en vérifi er


l'état

avec quelque chose comme ça :
If ThisWorkbook.MultiUserEditing Then
Si cela peut t'aider ?
Cordialement
Pascal


"ADB" a écrit dans le message de news:
41badeb9$0$24497$
Ben non, ça me donne le nom de la variable: "Total editing time" mais
pas la valeur.
Etrange
Merci quand même
ADB



Bonjour
Peut être avec

EdTime = ThisWorkbook.BuiltinDocumentProperties(13).Name

Salutations
JJ

"ADB" a écrit dans le message de
news:41bad839$0$19484$
Bonjour
J'aimerai savoir comment je peux connaître la durée d'édition d' un
fichier Excel.
J'ai essayé des formules du genre

Private Sub Workbook_Open()
Dim EdTime As String

EdTime = ThisWorkbook.BuiltinDocumentProperties(13).Value

MsgBox "Bonjour. Durée d'édition : " & EdTime, vbInformation, "Bie nvenue"
End Sub

mais ça plante

Quelqu'un peut-il m'aider ?
Merci d'avance
ADB









--
Guide Méditerranée :
http://guidemediterranee.free.fr ou http://guidemediterranee.info

Guide Manche:
http://guidemanche.free.fr ou http://guidemanche.info

Guide Atlantique:
http://guideatlantique.free.fr ou http://guideatlantique.info



Avatar
Jacky
Re...
Sur une feuille de préférence vierge
Clique droit sur l'onglet de la feuille==>Visualiser le code
Dans la fenêtre ouverte copie ceci
'---------
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
x = 1
Worksheets(1).Activate
Cells.Clear
On Error Resume Next
For Each p In ThisWorkbook.BuiltinDocumentProperties
Cells(x, 1).Value = p.Name
Cells(x, 3).Value = p.Value
x = x + 1
Next
End Sub
'----------------
Ensuit retourne sur la feuille et ....juste un clic

Salutations
JJ

"ADB" a écrit dans le message de
news:41bb10c5$0$21412$
Pardon, mais je ne conais pas suffisamment la prog VBA pour savoir
comment et où j'intègre ce bout de code.
Merci de m'expliquer.
ADB
Avatar
ADB
OK merci.
Ben, ya pas. Le Total Editing Time reste vide.
Tant pis. Merci
J'aurai appris une chose de plus
Bye
ADB

Re...
Sur une feuille de préférence vierge
Clique droit sur l'onglet de la feuille==>Visualiser le code
Dans la fenêtre ouverte copie ceci
'---------
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
x = 1
Worksheets(1).Activate
Cells.Clear
On Error Resume Next
For Each p In ThisWorkbook.BuiltinDocumentProperties
Cells(x, 1).Value = p.Name
Cells(x, 3).Value = p.Value
x = x + 1
Next
End Sub
'----------------
Ensuit retourne sur la feuille et ....juste un clic

Salutations
JJ

"ADB" a écrit dans le message de
news:41bb10c5$0$21412$
Pardon, mais je ne conais pas suffisamment la prog VBA pour savoir
comment et où j'intègre ce bout de code.
Merci de m'expliquer.
ADB




--
Guide Méditerranée :
http://guidemediterranee.free.fr ou http://guidemediterranee.info

Guide Manche:
http://guidemanche.free.fr ou http://guidemanche.info

Guide Atlantique:
http://guideatlantique.free.fr ou http://guideatlantique.info

Avatar
Clément Marcotte
Bonjour,

C'est parce que les BuiltinDocumentProperties sont en lecture seule en
VBA.

Cependant, on peut les modifier avec DSOFiles. Mais là, aujourd'hui je
n'ai pas envie de m'embarquer là-dedans. Si cela peut intéresser
quelqu'un il y a une base par là:

http://groups.google.com/groups?hl=fr&lr=&c2coff=1&frame=right&th÷365a51da520076&seekm=ujBdgFk2EHA.1144%40TK2MSFTNGP09.phx.gbl#link9


"ADB" a écrit dans le message de
news:41bb2bb0$0$7920$
OK merci.
Ben, ya pas. Le Total Editing Time reste vide.
Tant pis. Merci
J'aurai appris une chose de plus
Bye
ADB

Re...
Sur une feuille de préférence vierge
Clique droit sur l'onglet de la feuille==>Visualiser le code
Dans la fenêtre ouverte copie ceci
'---------
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
x = 1
Worksheets(1).Activate
Cells.Clear
On Error Resume Next
For Each p In ThisWorkbook.BuiltinDocumentProperties
Cells(x, 1).Value = p.Name
Cells(x, 3).Value = p.Value
x = x + 1
Next
End Sub
'----------------
Ensuit retourne sur la feuille et ....juste un clic

Salutations
JJ

"ADB" a écrit dans le message de
news:41bb10c5$0$21412$
Pardon, mais je ne conais pas suffisamment la prog VBA pour savoir
comment et où j'intègre ce bout de code.
Merci de m'expliquer.
ADB




--
Guide Méditerranée :
http://guidemediterranee.free.fr ou http://guidemediterranee.info

Guide Manche:
http://guidemanche.free.fr ou http://guidemanche.info

Guide Atlantique:
http://guideatlantique.free.fr ou http://guideatlantique.info

Avatar
Benead
Salut ADB,

La durée totale d'ouverture comme d'autres propriétés (Révision n° et imprimé), ne se met pas à jour de façon
automatique, il faut passer par du VBA :

' ******************************
Option Explicit
Public HeureOuverture As Date


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim durée As Date
durée = ThisWorkbook.BuiltinDocumentProperties(13).Value + (Now - HeureDebut) * 1440
Debug.Print durée
ThisWorkbook.BuiltinDocumentProperties(13).Value = durée
HeureDebut = Now
End Sub

Private Sub Workbook_Open()
Dim EdTime As String
HeureDebut = Now
EdTime = ThisWorkbook.BuiltinDocumentProperties(13).Value
MsgBox "Bonjour. Durée d'édition : " & EdTime, vbInformation, "Bienvenue"
End Sub
' ******************************

Cependant, je te conseille de stocker l'heure d'ouverture dans une variable plus fiable (Champ nommé, cellule) surtout
quand tu utilises VBE, car elle risque de se réinitialiser.
D'autre part, je considère que si tu fermes le classeur sans le sauvegarder, il n'y a pas lieu de cumuler le nombre de
minutes entre la dernière sauvegarde et la fermeture... Par contre, il y a des solutions pour cela, donc si tu as besoin
de ça, reviens par ici.

A+
Benead
XL97

ADB a écrit:
Bonjour
J'aimerai savoir comment je peux connaître la durée d'édition d'un
fichier Excel.
J'ai essayé des formules du genre

Private Sub Workbook_Open()
Dim EdTime As String

EdTime = ThisWorkbook.BuiltinDocumentProperties(13).Value

MsgBox "Bonjour. Durée d'édition : " & EdTime, vbInformation, "Bienvenue"
End Sub

mais ça plante

Quelqu'un peut-il m'aider ?
Merci d'avance
ADB




1 2