activex et automation word

activex et automation word - VB/VBA/VBS - Programmation

Marsh Posté le 18-03-2004 à 14:09:45    

salut
Dans mon projet access, j'ai un btn qui permet de recuperer les donnees des differents champs d'un formulaire et de les ajouter dans les signets d'un document word. J'ai mis le code suivant, mais ca marche pas!! quand il arrive sur la ligne Documents.open ca plante avec le message : "erreur 429 : un composant activex ne eput pas creer d'objet".De quoi ca vient?? comment remedier au probleme??
****************
  Dim W As New Word.Application
    Dim r
    Dim stDocName As String
    Dim stLinkCriteria As String
 
While Cadre203.Value <> 1 Or Cadre203.Value <> 2
If Form_formdiffu.valdif = 1 Or Form_formadddiffu.valdif = 1 Then
    stDocName = "formtempcr"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    r = Application.CurrentProject.Path
    Documents.Open (r & "\tramecrpme.doc" )
    W.Application.WindowState = wdWindowStateMaximize
    Documents("tramecrpme.doc" ).Bookmarks("signsoc" ).Select
    Selection.TypeText Form_formtempcr.Société.Text
endif
wend
end sub
******
j'ai bien ajouté la reference word objects library et j'ai meme ajouter toutes les references microsoft activeX.
PS : quand je lance ma bdd, il y a un message qui me dit qu'il manque microsoft jet 4.0 service pack 8. C'est quoi? où le recuperer??
Merci pour votre aide
A+
Deubal

Reply

Marsh Posté le 18-03-2004 à 14:09:45   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed