Bonjour,
Mon probl=E8me : sous access (base au format 2000), je=20
tente d'ouvrir un doc word afin d'y ins=E9rer des donn=E9es=20
d'un formulaire l=E0 o=F9 j'ai plac=E9 des signets.
Le code (copi=E9 ci-dessous) fonctionne sur deux PC, pas=20
sur le 3=E8me (=E9videmment le poste sur lequel on travaille=20
sur la base). Tous sont en Office XP Pro.
Message d'erreur Automation (je n'ai pas le libell=E9=20
d'erreur sous la main).
Les versions d'Office et les r=E9f=E9rences VBA sont=20
identiques, je pige pas !
Si qq'un a une id=E9e, je suis preneur.
Merci d'avance,
Cordialement,
Oliwan
----------------------
civ =3D Forms![adh_cons]![Titre]
Nom =3D Forms![adh_cons]![Nom Pr=E9nom]
adr =3D Forms![adh_cons]![Adresse]
Cod =3D Forms![adh_cons]![Code Postal]
vil =3D Forms![adh_cons]![Ville]
Dim W_App As New Word.Application
With W_App
.Visible =3D True
.Documents.Open=20
("C:\Travail\Access\ADHERENT\Docs\word\entete.doc")
End With
With W_App.ActiveDocument.Range
W_App.ActiveDocument.Bookmarks("nom").Select
W_App.Selection.InsertAfter civ & " " & Nom
W_App.ActiveDocument.Bookmarks("adr").Select
W_App.Selection.InsertAfter adr
W_App.ActiveDocument.Bookmarks("vil").Select
W_App.Selection.InsertAfter Cod & " " & vil
End With
Set W_App =3D Nothing
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Maxence HUBICHE
Hello oliwan,
Question ... Sur le PC qui ne fonctionne pas ... N'y a-t-il qu'UNE SEULE version de word installée ?
================== Maxence HUBICHE
MVP Access Revendeur CaseStudio (http://www.casestudio.fr) Responsable Access sur http://www.developpez.com La plus grosse FAQ Access du Web : http://access.developpez.com/faq
Bonjour, Mon problème : sous access (base au format 2000), je tente d'ouvrir un doc word afin d'y insérer des données d'un formulaire là où j'ai placé des signets. Le code (copié ci-dessous) fonctionne sur deux PC, pas sur le 3ème (évidemment le poste sur lequel on travaille sur la base). Tous sont en Office XP Pro. Message d'erreur Automation (je n'ai pas le libellé d'erreur sous la main). Les versions d'Office et les références VBA sont identiques, je pige pas ! Si qq'un a une idée, je suis preneur. Merci d'avance, Cordialement, Oliwan ---------------------- civ = Forms![adh cons]![Titre] Nom = Forms![adh cons]![Nom Prénom] adr = Forms![adh cons]![Adresse] Cod = Forms![adh cons]![Code Postal] vil = Forms![adh cons]![Ville] Dim W App As New Word.Application With W App .Visible = True .Documents.Open ("C:TravailAccessADHERENTDocswordentete.doc") End With With W App.ActiveDocument.Range W App.ActiveDocument.Bookmarks("nom").Select W App.Selection.InsertAfter civ & " " & Nom W App.ActiveDocument.Bookmarks("adr").Select W App.Selection.InsertAfter adr W App.ActiveDocument.Bookmarks("vil").Select W App.Selection.InsertAfter Cod & " " & vil End With Set W App = Nothing
Hello oliwan,
Question ...
Sur le PC qui ne fonctionne pas ...
N'y a-t-il qu'UNE SEULE version de word installée ?
================== Maxence HUBICHE
MVP Access
Revendeur CaseStudio (http://www.casestudio.fr)
Responsable Access sur http://www.developpez.com
La plus grosse FAQ Access du Web : http://access.developpez.com/faq
Bonjour,
Mon problème : sous access (base au format 2000), je
tente d'ouvrir un doc word afin d'y insérer des données
d'un formulaire là où j'ai placé des signets.
Le code (copié ci-dessous) fonctionne sur deux PC, pas
sur le 3ème (évidemment le poste sur lequel on travaille
sur la base). Tous sont en Office XP Pro.
Message d'erreur Automation (je n'ai pas le libellé
d'erreur sous la main).
Les versions d'Office et les références VBA sont
identiques, je pige pas !
Si qq'un a une idée, je suis preneur.
Merci d'avance,
Cordialement,
Oliwan
----------------------
civ = Forms![adh cons]![Titre]
Nom = Forms![adh cons]![Nom Prénom]
adr = Forms![adh cons]![Adresse]
Cod = Forms![adh cons]![Code Postal]
vil = Forms![adh cons]![Ville]
Dim W App As New Word.Application
With W App
.Visible = True
.Documents.Open
("C:TravailAccessADHERENTDocswordentete.doc")
End With
With W App.ActiveDocument.Range
W App.ActiveDocument.Bookmarks("nom").Select
W App.Selection.InsertAfter civ & " " & Nom
W App.ActiveDocument.Bookmarks("adr").Select
W App.Selection.InsertAfter adr
W App.ActiveDocument.Bookmarks("vil").Select
W App.Selection.InsertAfter Cod & " " & vil
End With
Set W App = Nothing
Question ... Sur le PC qui ne fonctionne pas ... N'y a-t-il qu'UNE SEULE version de word installée ?
================== Maxence HUBICHE
MVP Access Revendeur CaseStudio (http://www.casestudio.fr) Responsable Access sur http://www.developpez.com La plus grosse FAQ Access du Web : http://access.developpez.com/faq
Bonjour, Mon problème : sous access (base au format 2000), je tente d'ouvrir un doc word afin d'y insérer des données d'un formulaire là où j'ai placé des signets. Le code (copié ci-dessous) fonctionne sur deux PC, pas sur le 3ème (évidemment le poste sur lequel on travaille sur la base). Tous sont en Office XP Pro. Message d'erreur Automation (je n'ai pas le libellé d'erreur sous la main). Les versions d'Office et les références VBA sont identiques, je pige pas ! Si qq'un a une idée, je suis preneur. Merci d'avance, Cordialement, Oliwan ---------------------- civ = Forms![adh cons]![Titre] Nom = Forms![adh cons]![Nom Prénom] adr = Forms![adh cons]![Adresse] Cod = Forms![adh cons]![Code Postal] vil = Forms![adh cons]![Ville] Dim W App As New Word.Application With W App .Visible = True .Documents.Open ("C:TravailAccessADHERENTDocswordentete.doc") End With With W App.ActiveDocument.Range W App.ActiveDocument.Bookmarks("nom").Select W App.Selection.InsertAfter civ & " " & Nom W App.ActiveDocument.Bookmarks("adr").Select W App.Selection.InsertAfter adr W App.ActiveDocument.Bookmarks("vil").Select W App.Selection.InsertAfter Cod & " " & vil End With Set W App = Nothing
Oliwan
Bonjour Maxence, Ben... je crois bien, oui, une seule version de Word (XP). Merci d'avance, Oliwan
Hello oliwan,
Question ... Sur le PC qui ne fonctionne pas ... N'y a-t-il qu'UNE SEULE version de word installée ?
Bonjour Maxence,
Ben... je crois bien, oui, une seule version de Word (XP).
Merci d'avance,
Oliwan
Hello oliwan,
Question ...
Sur le PC qui ne fonctionne pas ...
N'y a-t-il qu'UNE SEULE version de word installée ?
