Discussion :

[vieuxmonsieur]

Bonjour ç vous tous,
Etant plus que novice en vba, je cherche âme charitable qui pourrait me faire un code permettant la destruction totale de mon fichier .doc nommé :
ma vie.doc si ce fichier est ouvert plus de 15 jours après sa dernière ouverture.
J'ai conscience que ma demande n'est pas banale et je m'en excuse.
Je vous en remercie par avance.

[Heureux-oli]

Salut,

c'est peu banal comme demande !

Malheureusement, le fait de tenter l'ouverture du fichier modifie la date du dernier accès au document et lui donner la date en cours.

Pour y arriver, il faut faire le test avant même de penser à ouvrir le document.

[Invité]

Bonjour

@Heureux-Oli : et en passant par là http://heureuxoli.developpez.com/office/word/variables/ avec un stockage lors de la fermeture du document et interrogation lors de l'ouverture ?

Ce ne serait pas possible ?

Philippe

[vieuxmonsieur]

re,
Je vous remercie de vousinteresser à ma demande et, je suggère éventuellement, si passé une certaine date c'est envisageable
En vous remerciant.

[Heureux-oli]

Bonjour

@Heureux-Oli : et en passant par là http://heureuxoli.developpez.com/office/word/variables/ avec un stockage lors de la fermeture du document et interrogation lors de l'ouverture ?

Ce ne serait pas possible ?

Philippe

Salut Philippe,

J'ai fait quelques essais avec le FileSystemObject qui possède quelques propriétés intéressantes "DateLastAccessed".

Lorsque tu accèdes simplement au fichier, pour une lecture, il est malvenu d'imposer une sauvegarde, or pour modifier les propriétés du document, il faut passer par une sauvegarde.

Maintenant, on peut lancer une destruction de fichier sur un répertoire ou une série de répertoire en fonction d'un critère de date ou autre.
Mais tous les fichiers qui sont positifs au critère sont détruits.

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
21
22
23
 
Sub SupressionDeFichier()
Dim oDlg As FileDialog
Dim oFSO As Scripting.FileSystemObject
Dim oFol As Scripting.Folder
Dim oFil As Scripting.File
Set oFSO = New Scripting.FileSystemObject
 
Set oDlg = Application.FileDialog(msoFileDialogFolderPicker)
oDlg.Show
 
 
Set oFol = oFSO.GetFolder(oDlg.SelectedItems(1))
For Each oFil In oFol.Files
If oFil.Name = "ma vie.doc" Then
If Date - oFil.DateLastAccessed > 15 Then
    oFil.Delete
End If
End If
Next oFil
Set oFol = Nothing
Set oFSO = Nothing
End Sub

Il faut ajouter au projet la librairie Microsoft Scripting RunTime
http://warin.developpez.com/access/fichiers/

Mais ce code ne fonctionne pas !!!
On modifie lors de la lecture la date du fichier.
Et il n'est pas supprimé !

Si tu as un autre critère, il serait le bien venu.

[vieuxmonsieur]

Re,
Je me doute bien que ma demande est assez particulière, mais il s'agit q'un gros document (1584 pages sous Word 2003) dont je ne souhaite absolument pas qu'après mon décès il soit lu par qui que ce soit. Par trop explosif si j'ose m'exprimer ainsi.
Ce document , je peux le mettre dans un dossier spécifique sous la forme suivante :
C:\Mon_secret\Ma_Vie
par exemple si cela vous convient pour l'écriture du code ou tout autre astuce à votre convenance.
Pour ce qui est de la date, je ne pense pas que la date du document ou les propriétes de celui-ci fera l'objet d'une modification avant ouverture.
N'est-il pas possible de détruitre le répertoire Mon_Secret par exemple ?
Je rappelle que je n'y connais rien en vba.
En vous remerciant

[Heureux-oli]

Salut,

C'est plus précis !

Si on tient compte de la date de modification et plus d'ouverture, c'est plus facile.
Mais il est plus facile de mettre un mot de passe sur le fichier.

On peut aussi envisager une demande banale comme une sauvegarde et avec un clic et un code, effacer le contenu, faire une sauvegarde et fermer le fichier.

Les combinaisons sont multiples.

[vieuxmonsieur]

Bonsoir Heureux-oli,
Une idée comme ca :
Si à l'ouverture du document, ca demande uin mot de passe et ou que l'on clic croix rouge - annuler - valider ca effacerait tout le document, puis enregistrerait celui-ci et il ne resterait qu'une page vierge par exemple.
Est-ce envisageable ?
En vous remerciant

[Heureux-oli]

Salut,

Oui, je vais te donner un morceau de code.

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
21
22
23
24
 
Sub Document_Open()
Const myMDP = "o"
Dim myResult As String
If ActiveDocument.Name = "ma vie.doc" Then
 
myResult = InputBox("Entrez le code !", "Vérification")
 
If myResult = "o" Then
    MsgBox "c'est le bon code !"
Else
Application.ScreenUpdating = False
    With ActiveDocument
        .Range.Delete
        .Save
        .Close
    End With
Application.ScreenUpdating = True
    MsgBox "le code est mauvais"
 
End If
 
End If
End Sub

Attention, ce code n'a aucune garantie, si la touche Maj est enfoncée pendant l'ouverture, la macro ne fonctionne pas !!

Le code est o

Fais l'essai sur un document bidon qui doit s'appeler "ma vie.doc", une fois effacées, les données sont effacées pour du bon.

[vieuxmonsieur]

Re,
J'ai tenté des essais sans succés, je me permets de mettre un fichier bidon afin que vous vous rendiez compte car je ne maitrise pas du tout le vba
http://www.cijoint.fr/cjlink.php?file=cj200906/cijARmTzNJ.doc
en vous remerciant

[Heureux-oli]

Salut,

Malheureusement, je ne peux télécharger les fichiers de ci-joints.

Mais j'ai fait un exemple.

[vieuxmonsieur]

Re,
J'ai regardé le fichier proposé par vos soins, mais rien ne se psse.
Je remets mon fichier origine (essai) car je viens de voir pour joindre un fichier
En vous remerciant de votre patience

[Heureux-oli]

Salut,

Je pense que c'est lié à la sécurité des macros.

Tu dois diminuer le niveau.

[vieuxmonsieur]

Re,
J'ai mis au plus bas niveau la sécurité.
Ce que je veux dire, c'est que la fenêtre demandant le mot de passe ne s'affiche pas à l'ouverture du document, seulement si j'exécute le code par la touche F8
Je te remercie Heureux-oli

[Heureux-oli]

Salut,

La macro doit se trouver dans le document et pas dans le normal.

Document_Open() permet d'exécuter un code lors de l'ouverture d'un document.

Je ne comprend pas d'où peut venir ce blocage.

[vieuxmonsieur]

Bonjour,
J'ai vainement oassé la journée d'hier et cette nuit à faire fonctionner ce code sans succés hélas.
Je pense que je vais choisir la solution la plus simple sui soit : supprimer purement et définitivement ce dossier.
Je vous remercie d'avoir tenté de m'aider et je dois dire que ca semble plus facile sous Excel que sous Word.
Bonne continuation à vous.