Discussion :

[Cabos]

Bonjour,

Après avoir mené de multiples recherches, je ne parviens pas à trouver comment modifier une date dans les propriétés d'un document.

Mon code donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
'Ouverture du fichier en entrée
Set R_FM = CurrentDb.OpenRecordset("MODIFIC")
 
R_FM.MoveFirst
 
Do While R_FM.EOF = False
    Set dso = New DSOFile.OleDocumentProperties
    chemin = R_FM("Champ2")
    fichier = R_FM("Champ3")
    dso.Open sfilename:=chemin + "\" + fichier
 
    jour = dso.SummaryProperties.DateLastPrinted
    dso.SummaryProperties.DateLastPrinted = jour
 
    dso.Save
    dso.Close
 
    R_FM.MoveNext
Loop

Le principe est simple : on récupère le nom d'un fichier dans une table et on modifie sa date de dernière consultation.
Le "jonglage" jour = propriété puis propriété = jour n'est là que pour illustrer mon soucis :

jour = propriété marche nickel et me renvoie le bon paramètre.
mais propriété = jour donne systématiquement une erreur du type "Objet requis".

J'ai essayé avec jour en type String ou Date, aucun changement. J'ai essayé avec une autre propriété ("Comments"="test"), ça marche nickel. La propriété existe bien puisque je l'atteins en lecture. Mais impossible de passer l'écriture.

Quelqu'un aurait il une idée ?

D'avance merci à toutes et tous.

[marot_r]

Bonjour

essaye avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim Jour as Object

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim Jour as variant

.

et aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

set dso.SummaryProperties.DateLastPrinted = jour

A+

[Cabos]

Bonjour marot_r, ravi de te retrouver sur ce forum.

Dans l'intervalle, j'avais essayé les solutions que tu m'indiquais, mais sans succès. La documentation VBA (que j'ai toujours autant de mal à utiliser) indique le critère "lecture seule" pour la propriété DateLastPrinted.

Donc, je suis passé par une autre astuce qui consiste à créer une propriété perso et lui donner la valeur que je souhaite. Ca m'a obligé à modifier d'autres parties de mon code (notamment celle qui marquait les fichiers à modifier), mais bon, c'est vraiment pour dégrossir le boulot, donc, ça ira bien comme ça.

Pour ceux que la méthode intéresse, il suffit d'aller regarder dans l'excellent tuto du non moins excellent Silkyroad : http://silkyroad.developpez.com/VBA/...etesClasseurs/

Merci à toi marot_r, et à une prochaine fois avec plaisir.