Discussion :

[did103]

Bonjour à tous

Je cherche depuis quelques temps une solution pour supprimer le fichier DOC lors de sa fermeture.
J'ai un userform qui s'ouvre lors de la fermeture du document qui permet de choisir à l'aide d'une coche si l'on veut supprimer le document après l'avoir enregistré en PDF :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Document_Close()
    Dim suppr As Boolean
 
    Enregistrement.Show
    If suppr = True Then
        NomDoc = ActiveDocument.name
        RépDoc = ActiveDocument.Path
        ActiveDocument.SaveAs "C:\TEMP\Suppression.doc"
        Kill (RépDoc & "\" & NomDoc)
    End If
 
End Sub

En fait Word a en "mémoire" que le fichier est ouvert et le Kill ne fonctionne pas.

Une idée somebody ?

[Heureux-oli]

Salut,

Avant de faire un delete, il faut fermer le document.
Le document toujours ouvert est en ReadOnly.
Et pourquoi le supprimer ?
Si tu crées un nouveau document avec le même nom, le second écrase le premier.

Ajoute simplement une ligne pour fermer le document.

Code :

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

Activedocument.Close

[saiddz]

d'après ce que j'ai compris le 2e document crée est en PDF donc il n'écrasera pas le .Doc
Il faudra donc essayer par fermer le document d'abord comme indiqué.

[did103]

Merci pour vos réponses.

Mais je suis déjà en procédure de fermeture du document actif:

Code :

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

Private Sub Document_Close()

La méthode Close ne fonctionne donc pas pour libérer le document.
C'est pour cela que j'ai essayé de sauvegarder dans un autre fichier.
Ce n'est pas du tout efficace...

Olivier, qu'entends-tu par cela:

Et pourquoi le supprimer ?
Si tu crées un nouveau document avec le même nom, le second écrase le premier.

Je ne comprends pas...

[Heureux-oli]

Salut,

J'ai pas fait attention que tu étais dans la procédure de fermeture.

Tant que la procédure n'est pas terminée, le document est toujours ouvert et par conséquent en Read Only.

Une explication.
Si tu ne supprime pas le document qui a été crée.
La prochaine fois que tu feras une sauvegarde via un morceau de code, il est simplement remplacé par la nouvelle version sans devoir le supprimer.

Si tu le supprimes pour des raison de sécurité, on peut trouver une autre astuce pour ne pas le supprimer, comme dans un répertoire utilisateur.

[did103]

Merci Olivier . J'ai réussi avec un évènement (et ton tuto http://heureuxoli.developpez.com/off...-word/#LII-C-2):

J'ai tout mis dans un module de classe et un BeforeClose me permet de fermer mon fichier DOC, puis de le supprimer:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public WithEvents appWord As Word.Application
 
Private Sub appWord_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
    Enregistrement.Show
 
    If suppr = True Then
        NomDoc = ActiveDocument.name
        RépDoc = ActiveDocument.Path
        ActiveDocument.Close
        DoEvents
        Kill (RépDoc & "\" & NomDoc)
    End If
 
End Sub

L'objet de ma Form "Enregistrement" est de présenter sous forme graphique avec des coches les possibilités de fermeture du fichier ouvert.
Dans le cas d'une sauvegarde PDF, j'ai une coche pour donner la possibilité de supprimer le fichier source DOC.