OVH Cloud OVH Cloud

Problème pilotage Word 2002

2 réponses
Avatar
Thierry Bonin
Bonjour =E0 tous,

Je me viens de me r=E9soudre =E0 migrer mes bases Access 97 sous Office
2002 (mon PC tourne encore sous Windows 98 SE) et je rencontre un
probl=E8me de pilotage de Word. Le morceau de code incrimin=E9 est le
suivant :

Dim WDApp As New Word.Application
With WDApp
.Visible =3D True
.Documents.Add
With .ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)
.Range.Text =3D "MS ACCESS - Bibliographie, " & Now
.PageNumbers.Add
End With
End With
Set WDApp =3D Nothing

Rien que de tr=E8s classique, mais Access me renvoie une "Erreur
automation" sur la ligne ".Documents.Add"

Je pr=E9cise que la base Access 97 a =E9t=E9 compil=E9e et enregistr=E9e
avant sa conversion et que la r=E9f=E9rence =E0 la Librairie Word10 est
bien coch=E9e (la DAO 3.6 l'est =E9galement tandis que la Compatiblit=E9
2=2E5/3.5 est par contre bien d=E9sactiv=E9e).

Franchement je cale...

Merci d'avance pour vos lumi=E8res.

Thierry Bonin

2 réponses

Avatar
3stone
Salut,

"Thierry Bonin"
Je me viens de me résoudre à migrer mes bases Access 97 sous Office
2002 (mon PC tourne encore sous Windows 98 SE) et je rencontre un
problème de pilotage de Word. Le morceau de code incriminé est le
suivant :

Dim WDApp As New Word.Application
With WDApp
.Visible = True
.Documents.Add
With .ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)
.Range.Text = "MS ACCESS - Bibliographie, " & Now
.PageNumbers.Add
End With
End With
Set WDApp = Nothing

Rien que de très classique, mais Access me renvoie une "Erreur
automation" sur la ligne ".Documents.Add"

Je précise que la base Access 97 a été compilée et enregistrée
avant sa conversion et que la référence à la Librairie Word10 est
bien cochée (la DAO 3.6 l'est également tandis que la Compatiblité
2.5/3.5 est par contre bien désactivée).



Bizare effectivement...

A tout hasard, tu n'as pas d'autres références qui viendraient
mettre la pagaille ?


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
Thierry Bonin
Pierre,

Je regarderai ce soir par acquis de conscience (la base tourne à la
maison), mais je suis pratiquement sûr de ne rien utiliser de
franchement exotique.

A suivre donc.

Thierry Bonin