Discussion :

[OtObOx]

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

[loufab]

bonjour,
as-tu pensé à ajouter les références Word dans ton projet ? ^^

Bonjour,

Set wApp = GetObject(, "Word.Application")
fonctionne correctement,

Merci de ne pas poster inutilement ! Une bonne réflexion vaut mieux qu'un post stérile.

[OtObOx]

Après des test plus poussé, ça ne fonctionne ni sur excel, ni sur AutoCAD.

Jean-Marc

[Pierre Fauconnier]

Chez moi, ton code fonctionne sans problème avec Word. Il faut évidemment que ces applications soient installées sur le poste...

Question peut-être basique, mais: Est-ce le cas?

[OtObOx]

C'est vrai que les questions basiques méritent d'être posées ! Des fois que... Pour mon cas, oui ! Word est bien installé sur le poste.

Après d'autres tests sur d'autres postes installés sur mon lieu de travail, Word ne veut pas se lancer quelque soit l'ordinateur et l'appli (excel ou AutoCAD) sur lesquels j'ai tenté le:

Code :

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

Set wApp = CreateObject("Word.Application")

Mais j'ai un message d'erreur (qui était zappé sur mon poste du à la ligne:On Error Resume Next) : Erreur d'automation: le chemin spécifié est introuvable

Autre chose: après avoir déclarer dans les références les outils pour Word 8, je peux déclarer ma variable :
dim wApp as Word.Application
sans que le compilateur ne bondisse au démarrage de la macro. Mais quand il faut travailler sur la variable wApp, il me donne le même message d'erreur : " chemin spécifié introuvable"

Je viens de faire le test chez moi : ça fonctionne !

Conclusion : ce sont les postes de mon boulot sur lesquels il manque quelque chose... Avez vous des idées ?

Jean-Marc

[loufab]

Il manque une bonne réparation d'office. Est-ce que la fonction existe avec 97... c'est à vérifier.

Sinon désinstall, réinstall + Service Release