Bonjour,

Sous Access 97, j'ai un problème pour ouvrir Word (97) sous vba. Voici mon code :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Dim wApp as Object
'Ouvre Word
Set wApp = Nothing
On Error Resume Next
Set wApp = GetObject(, "Word.Application")
If Err = 429 Then
        'Ouvre Word si l'appli n'est pas ouverte
        Set wApp = CreateObject("Word.Application")
End If
Si Word est déjà ouvert, la ligne
Set wApp = GetObject(, "Word.Application")
fonctionne correctement, MS Word est bien appliqué à la variable wApp et le reste du module fonctionne correctement.
Par contre, si Word n'est pas chargé, alors la ligne
Set wApp = CreateObject("Word.Application")
est lue et là, rien ne se passe, la variable wApp = nothing

Pour tester, j'ai remplacé word par excel:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Dim wApp as Object
'Ouvre Word
Set wApp = Nothing
On Error Resume Next
Set wApp = GetObject(, "excel.Application")
If Err = 429 Then
        'Ouvre excel si l'appli n'est pas ouverte
        Set wApp = CreateObject("excel.Application")
End If
et là, quelque soit le cas de figure, tout fonctionne correctement...

J'ai tenté de dimensionner:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Dim wApp as Word.Application
mais j'ai une erreur, Word.Application n'est pas reconnnue (pas que que Excel.Application d'ailleurs).

Je pense que je dois avoir quelque chose à cocher, mais quoi ? Quelqu'un peut m'aider ?

Merci,

Jean-Marc