Ouverture par bouton d'un document sous word 2016

**metallicavid** · 17/05/2017, 20h37

Bonjour à tous,

Après plusieurs tests avec les résultats sur internet, je suis dans le flou.

Au travail, nous venons de migrer vers office 2016 excepté pour access qui est resté en 2007. Depuis, je ne peux plus simplement ouvrir un fichier word par un bouton.

j'avais le code suivant qui fonctionnait très bien lorsque 2007 pour access et Word

Code :

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

1
2
3
4
 
Private Sub LettresExclusion_Click()
x = Shell("winword.exe C:\mabase\Avis_exclusion.doc", vbNormalFocus)
End Sub

Au cas où, winword se trouve dans ce chemin C:\Program Files (x86)\Microsoft Office\Office16

J'ai également essayer cet exemple mais je comprends pas comment l'écrire correctement

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
 
' Voici pour la déclaration du code :
Dim wdapp As Word.Application
 
' Démarrer Word
Set wdapp = CreateObject("Word.application")
With wdapp
       .Visible = True
 
      ' Ouvrir le document
      .Documents.Open "Chemincompletdudocumentwordàouvrir"
 
      ' Diriger le publipostage vers un nouveau document
     .ActiveDocument.MailMerge.Execute
End With
 
' Fermer et libérer les objets
Set wdapp = Nothing

j'ai essayé avec les tutos et google en vain.
toujours un bug

Merci pour votre aide

**electrosat03** · 18/05/2017, 11h02

Salut,

Voici ce qui fonctionne chez moi

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
Private Sub Cmd_Modif_Entete_Gauche_Click() 'Modification de l'en-tête gauche dans Word
On Error GoTo Err_Cmd_Modif_Entete_Gauche_Click
 
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
 
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True 'Rend visible l'appli Word
    Set WordDoc = WordApp.Documents.Open("C:\Chemin et nom.doc")
 
    WordApp.WindowState = wdWindowStateNormal 'Met Word en mode normal (pas en plein écran)
    WordApp.Activate 'Active l'application
 
    Set WordApp = Nothing
    Set WordDoc = Nothing
 
Exit_Cmd_Modif_Entete_Gauche_Click:
    Exit Sub
 
Err_Cmd_Modif_Entete_Gauche_Click:
    MsgBox Err.Description
    Resume Exit_Cmd_Modif_Entete_Gauche_Click
 
End Sub

**metallicavid** · 18/05/2017, 15h42

J'ai essayé avec mes infos, mais il met erreur de compilation sur la ligne " Dim WordApp As Word.Application"

j'ai le code suivant en reprendant ton 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
25
26
27
28
Private Sub LettresAbsences_Click()
 
On Error GoTo LettresAbsences_Click
 
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
 
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True 'Rend visible l'appli Word
    Set WordDoc = WordApp.Documents.Open("C:\mabaseI\Avis_absences.doc")
 
    WordApp.WindowState = wdWindowStateNormal 'Met Word en mode normal (pas en plein écran)
    WordApp.Activate 'Active l'application
 
    Set WordApp = Nothing
    Set WordDoc = Nothing
 
Exit_LettresAbsences_Click:
    Exit Sub
 
 
Err_LettresAbsences_Click:
    MsgBox Err.Description
    Resume Exit_LettresAbsences_Click
 
 
 
End Sub

**electrosat03** · 18/05/2017, 16h56

re,

As tu ajouté la référence microsoft Word

**metallicavid** · 18/05/2017, 17h17

euh, en effet, cela me dit rien

**metallicavid** · 18/05/2017, 17h23

Merci

Cela ouvrir mon fichier, mais cela n'active pas le publipostage (que dois-je ajouter pour une fusion automatique ? )

**electrosat03** · 18/05/2017, 17h37

Tu sais ouvrir ton document Word ?

Que veux-tu faire exactement ?

**metallicavid** · 18/05/2017, 17h40

Le document word (qui est le fichier source de publipostage ) s'ouvre bien mais il ne me propose plus de se connecter à ma base.

Y a t'il une ligne qui me ferait que simplement ouvrir le fichier et le reste de la procédure de publipostage est en manuel ?

Merci

Je continue mes recherches en parallèle.