activex et automation word - VB/VBA/VBS - Programmation
MarshPosté 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
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