[WD-2003] ouvrir un word avec liaison sans message d'enregistrement à la fermeture [Résolu]

[_Jnie_]

Bonjour à tous,

Nous avons des matrices permettant de consulter des documents word. Voici le code actuel :

Code :

1
2
3
4
5
6
7
8
 Private Sub CommandButton3_Click()
  Dim Appword
  Dim Chemin As String
  Chemin = TabChemin(1, 1) & "monDoc.doc"
  Set Appword = New Word.Application
  Appword.Visible = True
  Appword.Documents.Open FileName:=Chemin
End Sub

Le fichier monDoc intègre maintenant des liaisons vers des fichiers excel.
Je voudrais que quand l'utilisateur clique, monDoc s'ouvre, mette à jour les liens et quand l'utilisateur ferme le document il ne lui propose pas de l'enregistrer, comme c'est la cas maintenant. Cela est-il possible ?

Merci d'avance

[Heureux-oli]

Salut,

Il suffit de travailler sur l'évènement BeforeClose de l'application.

Mais le document doit-il être sauvé ou pas ?

[_Jnie_]

Envoyé par Heureux-oli

Salut,

Il suffit de travailler sur l'évènement BeforeClose de l'application.

Mais le document doit-il être sauvé ou pas ?

Mais cet évènement est sur l'application générale pas sur le document monDoc.doc que j'ouvre, non?

En fait dans cette matrice, chaque document peut être consulté (code de mon premier message) ou sélectionné par une case à cocher.

Si l'utilisateur valide à la fin, un nouveau document est créé et les fiches sélectionnées sont intégrées. Lors de la création du document final, j'ai désactivé les alertes pour que les messages de mises à jour des liaisons ne s'affichent pas mais que les mises à jour se fassent quand même.
Une fois la création terminée (copie des fiches dans ce document) je rompt les liaisons qui se transforment en images.

Mon problème se pose uniquement pour la consultation de monDoc.doc, j'ouvre mon document, il se met à jour. Quand je le ferme (croix rouge) je ne veux pas de message d'enregistrement et je ne veux pas l'enregistrer.


Je ne sais pas si je suis très claire.

[Heureux-oli]

Salut,

Pourquoi ne pas travailler avec un modèle ?

[pgz]

Bonjour.

Tu peux faire après les mises à jours

Code :

moDoc.Saved = True

Si monDoc est une instance du document ouvert.

Cordialement,

PGZ

[_Jnie_]

Envoyé par Heureux-oli

Salut,

Pourquoi ne pas travailler avec un modèle ?

C'est à dire transformer monDoc.doc en modèle sur lequel je définirai un beforeClose ?
J'ai 3 fois 56 documents qui sont concernés et un code qui n'est pas du tout optimisé (le code en exemple est répété 56 fois). J'hésite à me lancer dans cette grosse modif en plus de mes liaisons vers excel...

Envoyé par pgz

Bonjour.

Tu peux faire après les mises à jours

Code :

moDoc.Saved = True

Si monDoc est une instance du document ouvert.

Cordialement,

PGZ

Je ne sais pas ce qu'est exactement une instance mais je pense que ce n'est pas le cas ici (voir exemple dans mon premier message)

[Heureux-oli]

Salut,

Par défaut, lors de l'ouverture d'un modèle, on crée un nouveau document et aucune modification est apportée au modèle.

Maintenant, l'évènement Document_close du document peut le faire, alors qu'avec un modèle, le problème ne se pose pas.

[_Jnie_]

Envoyé par Heureux-oli

Salut,

Par défaut, lors de l'ouverture d'un modèle, on crée un nouveau document et aucune modification est apportée au modèle.

Maintenant, l'évènement Document_close du document peut le faire, alors qu'avec un modèle, le problème ne se pose pas.

Je ne maitrise pas du tout vba, je bricole et ce que tu m'expliques n'est pas clair pour moi.

J'ai essayé de rajouter sur monDoc.doc dans la feuille ThisDocument

Code :

1
2
3
Private Sub DocumentClose()
    Me.Close savechanges:=wdDoNotSaveChanges
End Sub

Cela ne change rien, j'ai toujours le message d'enregistrement sur la croix rouge de fermeture.

J'ai créé un modèle monDoc.dot, je l'appelle à la place de monDoc.doc : même résultat.

J'ai essayé de lui coller DocumentClose, pas de changement...

Reprenons, sans se soucier de l'existant et dans l'idéal : comment ouvrir à l'écran un document sur un clic bouton, mettre à jour les liaisons, les rompre (tant qu'à faire).
Quand l'utilisateur a fini de lire, il ferme ce document (par la croix rouge) sans message de confirmation d'enregistrement et sans enregistrer les modif (puisqu'on a rompu les liens).


Merci encore de ton aide

[carden752]

Bonjour, essaye de remplacer cela à la fin

Code :

Private Sub DocumentClose()

par

Code :

 Private Sub Document_BeforeClose()

Et laisser le même code plus mettre à nothing les variables
soit

Code :

1
2
3
4
Private Sub Document_BeforeClose()
    Me.Close savechanges:=wdDoNotSaveChanges
    set Appword = Nothing
End Sub

[_Jnie_]

Je viens de faire un test sur un document neuf et il manquait un "_" et avec Document_close cela fonctionne beaucoup mieux.
En mixant les propositions j'arrive à

Code :

1
2
3
Private Sub Document_Close()
    Me.Saved = True
End Sub

Par contre si je fais ça directement sur monDoc.doc lorsque j'ouvre directement le document je n'ai pas le message non plus.

Donc question dérivée comment ne faire ce saved=true que dans ma macro sur mon bouton:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton3_Click()
Dim Appword
  Dim Chemin As String
  Chemin = TabChemin(1, 1) & "unofi03.doc"
  'Documents.Add "C:\vbetude\bibliotheque\Madame\produits\unofi03.dot"
 
 
  Set Appword = New Word.Application
     Appword.Visible = True
     Appword.Documents.Open FileName:=Chemin
 
     'rupture des liaisons
     Appword.Selection.WholeStory
     Appword.Selection.Fields.Unlink
     Appword.Selection.HomeKey Unit:=wdStory
 
End Sub

Appword.Documents.saved=true ne fonctionne pas.

Par contre, ActiveDocument.Saved = True à l'air de fonctionner, est ce que ça peut faire l'affaire?

[pgz]

Bonjour.

Envoyé par _Jnie_

Par contre, ActiveDocument.Saved = True à l'air de fonctionner, est ce que ça peut faire l'affaire?

Ca peut.

PGZ

[_Jnie_]

Envoyé par pgz

Bonjour.


Ca peut.

PGZ

Parfait !


Merci messieurs de votre aide précieuse !


Edit : En fait, c'est

Code :

appword.activedocument.saved = true