Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access lien entre access et word

lien entre access et word

4 réponses
Avatar
fth
Bonjour l'équipe!

ci joint mon bour de code.
G un peu de mal à faire en sorte que l'offre qui s'affiche dans Word soit
celle du record e ncours dans access...

Qq aurait il un idée?

d'avance merci

frederic
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
fth
Bonjour l'équipe!
ci joint mon bour de code.
G un peu de mal à faire en sorte que l'offre qui s'affiche dans Word soit
celle du record en cours dans access...

Private Sub Command127_Click()
On Error Resume Next
On Error Resume Next
Dim W_App As Object
Dim Ndoc As String
Dim stlinkcriteria As String

Ndoc = "offre" & " " & [RBref] & " " & [company_name]
stlinkcriteria = "IDrb=" & Me.IDRB

Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Open
"D:matlocbeprojetOncedoctemplatematlocoffre.dot"
.ActiveDocument.SaveAs "D:matlocbeprojetOncedoc" & Ndoc
& ".doc"


'.Quit
End With
'Set W_App = Nothing

End Sub
Qq aurait il un idée?

d'avance merci

frederic
Avatar
Raymond [mvp]
Bonjour.

quand tu as ouvert et sauvegarder ton .doc, il ne faut pas quit pour
laisser la main à l'opérateur. il faut par contre laisser le nothing pour
supprimer ton objet word.
.ActiveDocument.SaveAs "D:matlocbeprojetOncedoc" & Ndoc & ".doc"
End With
Set W_App = Nothing
End Sub

Ce qu'il faut, maintenant, c'est passer les données à word:

.ActiveDocument.SaveAs "D:matlocbeprojetOncedoc" & Ndoc & ".doc"
.ActiveDocument.Bookmarks("Ville").Select
.Selection.Text = Me.Ville
.ActiveDocument.Bookmarks("Adresse").Select
.Selection.Text = Me.Adresse
' etc etc .....
End With
Set W_App = Nothing
End Sub

tu as des exemples sur http://access.seneque.free.fr/word.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"fth" a écrit dans le message de
news:40a482e1$0$8412$


Bonjour l'équipe!
ci joint mon bour de code.
G un peu de mal à faire en sorte que l'offre qui s'affiche dans Word soit
celle du record en cours dans access...

Private Sub Command127_Click()
On Error Resume Next
On Error Resume Next
Dim W_App As Object
Dim Ndoc As String
Dim stlinkcriteria As String

Ndoc = "offre" & " " & [RBref] & " " & [company_name]
stlinkcriteria = "IDrb=" & Me.IDRB

Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Open
"D:matlocbeprojetOncedoctemplatematlocoffre.dot"
.ActiveDocument.SaveAs "D:matlocbeprojetOncedoc" &
Ndoc

& ".doc"


'.Quit
End With
'Set W_App = Nothing

End Sub
Qq aurait il un idée?

d'avance merci

frederic




Avatar
fth
Re bonjour Raymond,

une question:
en fait, j'ai fait mon template comme un document merge, avec connexion à la
base et insertion des champs.

avec les bookmarks, j'ai effectivement juste le record que je veux.

hormis la différence de manipulation, quelles sont les différences technique
entre ces deux methodes?

d'avance merci

Frederic




"Raymond [mvp]" wrote in message
news:
Bonjour.

quand tu as ouvert et sauvegarder ton .doc, il ne faut pas quit pour
laisser la main à l'opérateur. il faut par contre laisser le nothing pour
supprimer ton objet word.
.ActiveDocument.SaveAs "D:matlocbeprojetOncedoc" & Ndoc & ".doc"
End With
Set W_App = Nothing
End Sub

Ce qu'il faut, maintenant, c'est passer les données à word:

.ActiveDocument.SaveAs "D:matlocbeprojetOncedoc" & Ndoc & ".doc"
.ActiveDocument.Bookmarks("Ville").Select
.Selection.Text = Me.Ville
.ActiveDocument.Bookmarks("Adresse").Select
.Selection.Text = Me.Adresse
' etc etc .....
End With
Set W_App = Nothing
End Sub

tu as des exemples sur http://access.seneque.free.fr/word.htm

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"fth" a écrit dans le message de
news:40a482e1$0$8412$


Bonjour l'équipe!
ci joint mon bour de code.
G un peu de mal à faire en sorte que l'offre qui s'affiche dans Word
soit


celle du record en cours dans access...

Private Sub Command127_Click()
On Error Resume Next
On Error Resume Next
Dim W_App As Object
Dim Ndoc As String
Dim stlinkcriteria As String

Ndoc = "offre" & " " & [RBref] & " " & [company_name]
stlinkcriteria = "IDrb=" & Me.IDRB

Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Open
"D:matlocbeprojetOncedoctemplatematlocoffre.dot"
.ActiveDocument.SaveAs "D:matlocbeprojetOncedoc" &
Ndoc

& ".doc"


'.Quit
End With
'Set W_App = Nothing

End Sub
Qq aurait il un idée?

d'avance merci

frederic









Avatar
Raymond [mvp]
Il n'y a pas de différences , les deux méthodes cohabitent et on prend celle
qui convient.
si c'est access qui lance word, en général, c'est lui qui garde le controle
et qui envoi les données.
si word récupère les données actuelles du formulairee, s'il garde le
contrôle, il devra s'assurer de la validité des informations
(rafraichissement).
tout va dépendre du seul opérateur qui va manipuler l'ensemble et qui va te
pourrir une méthode. avant d'imposer ta méthode access ou word, prend
l'appui des utilisateurs (j'en ai vu qui ne juraient que par word)

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"fth" a écrit dans le message de
news:40a48f38$0$9769$
Re bonjour Raymond,

une question:
en fait, j'ai fait mon template comme un document merge, avec connexion à
la

base et insertion des champs.

avec les bookmarks, j'ai effectivement juste le record que je veux.

hormis la différence de manipulation, quelles sont les différences
technique

entre ces deux methodes?

d'avance merci

Frederic