Discussion :

[MarcelG]

Bonjour le forum,

Je souhaite ouvrir un document Word depuis Excel en mettant à jour les liaisons de ce document Word sans obtenir l'affichage de la boite de dialogue "Voulez-vous mettre à jour les liaisons".

J'ai effectué un collage spécial avec liaison d'une cellule de mon classeur Excel vers ce document Word (coller avec liaison en tant que Texte mis en forme)

Pour ouvrir ce document (voir FAQ)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub Ouvre_Word()
'ne pas oublier Outils \ Références \ Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Open("monword.doc", ReadOnly:= False)
    WordApp.WindowState = wdWindowStateMinimize
 
End Sub

Mais comment indiquer la mise à jour de la liaison dans ce code sans avoir l'alerte ?

J'ai cherché sans succès jusque là.

Merci.

Marcel

[DeaD78]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub Ouvre_Word()
'ne pas oublier Outils \ Références \ Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    WordApp.DisplayAlerts = False
    Set WordDoc = WordApp.Documents.Open("monword.doc", ReadOnly:= False)
    WordApp.WindowState = wdWindowStateMinimize
    WordApp.DisplayAlerts = True
End Sub

Je n'ai pas testé mais ça devrait marcher.

A+

[MarcelG]

Merci, ce code fonctionne bien.

Bon week-end

Marcel