> Tous les forums > Forum Bureautique
 Comment imprimer depuis Acces dans Word?
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
virjinialun
  Posté le 28/01/2008 @ 11:07 
Aller en bas de la page 
Petite astucienne

Bonjour,

Je voudrais completer un document Word à partir des champs d'une requete Acces(version 2007).

J'ai un modele de contrat enregistré sous Word et dans ce modèle je cherche à y integrer plusieurs champs d'une base Acces.

J e n'ai pas de diffcultés à faire sortir d'une requete Acces les champs dont j'ai besoin.

Mais maintenant je voudrais imprimer automatiquement depuis Acces mon document Word rempli .(macro?bouton?commande?)

Si vous avez une idée merci d'avance à tous!

Publicité
gilbert_rgi
 Posté le 28/01/2008 à 11:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour

modifier le chemin et le nom du fichier

Sub imprimeword()
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
AppWord.ShowMe
AppWord.Visible = True
'Ouvre le document Word
Set DocWord = AppWord.Documents.Open("C:\madoc.doc", ReadOnly:=False)
DocWord.PrintOut
DocWord.Close

End Sub

Mettre les references Microsoft Wordxx.0 Object Library

Cdlt

RGI



Modifié par gilbert_rgi le 28/01/2008 11:54
Bérylion
 Posté le 28/01/2008 à 12:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Message original par virjinialun

Bonjour,

Je voudrais completer un document Word à partir des champs d'une requete Acces(version 2007).

J'ai un modele de contrat enregistré sous Word et dans ce modèle je cherche à y integrer plusieurs champs d'une base Acces.

J e n'ai pas de diffcultés à faire sortir d'une requete Acces les champs dont j'ai besoin.

Mais maintenant je voudrais imprimer automatiquement depuis Acces mon document Word rempli .(macro?bouton?commande?)

Si vous avez une idée merci d'avance à tous!



Salut

oui, la réponse de l'ami RGI est pertinente, mais je voudrais comprendre ou est l'intéret de passer par word ??

les état sont bien plus "léger" à gérer que des *.doc

et pourquoi pas, ensuite, extraire les données entrées dans word depuis access dans un classeur excel (remarquez, je suis partant pour essayer )

virjinialun
 Posté le 28/01/2008 à 13:16 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

gilbert_rgiet et merci pour ta réponse mais je ne comprends pas comment utiliser cette commande (qui m'ouvre un document Word) et ou sont les liens avec mes champs acces.....

Bérylion merci pour ta réponse aussi.Les états me permettraient de faire un listing des champs de ma requete, or ce que je cherche à faire c'est à integrer les champs dans du texte (mon texte est du style "un contrat de location".)

gilbert_rgi
 Posté le 28/01/2008 à 13:53 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour

Je suis d'accord avec l'Ami Bérylion pourquoi ne pas se servir des états ils sont faits pour ça

Message original par virjinialun

Je voudrais completer un document Word à partir des champs d'une requete Access(version 2007).

j'ai donné le code pour imprimer un doc à partir d'access qui pourrait être le document pécédement complété

Cdlt

RGI



Modifié par gilbert_rgi le 28/01/2008 13:55
Bérylion
 Posté le 28/01/2008 à 14:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

virjinialun a écrit :

Bérylion merci pour ta réponse aussi.Les états me permettraient de faire un listing des champs de ma requete, or ce que je cherche à faire c'est à integrer les champs dans du texte (mon texte est du style "un contrat de location".)



oui, bin justement, les états sont faits pour ça !!


virjinialun
 Posté le 28/01/2008 à 14:52 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Ok j'ai du mal m'exprimer au sujet du document Word à completer: celui fait une dizaine de pages (je ne pense donc pas pouvoir utiliser un état).

Mon objectif etant de pouvoir completer automatiquement ce contrat enregistré sous word avec les elements exportés d'une requete access.

encore merci!

gilbert_rgi
 Posté le 28/01/2008 à 15:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

et ensuite ???

on suppose qu'a partir d'access vous voulez imprimer le document ainsi complété ??

si c'est cela mon code fonctionne !!!!

il faut simplement lui indiquer le chemin et le nom de votre fichier (document word)



Modifié par gilbert_rgi le 28/01/2008 15:03
Bérylion
 Posté le 28/01/2008 à 16:27 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

virjinialun a écrit :

Ok j'ai du mal m'exprimer au sujet du document Word à completer: celui fait une dizaine de pages (je ne pense donc pas pouvoir utiliser un état).

et pourquoi pas ???

si le texte est figé, il suffit d'insérer les champs la ou il doivent se trouver...

virjinialun a écrit :
Mon objectif etant de pouvoir completer automatiquement ce contrat enregistré sous word avec les elements exportés d'une requete access.


bin oui, mais ça fait bcp de fichiers à gérer, et faut penser à tous les modifier au moindre changement !!


Publicité
virjinialun
 Posté le 31/01/2008 à 08:04 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Bonjour,

je vous remercie encore tous les deux pour votre aide car en plus l'intitulé de mon post etait mal formulé, j'aurai plutot du indiquer"
COMMENT EXPORTER LE CONTENU D'UNE TABLE,D'UN FORMULAIRE OU D'UNE REQUÊTE DANS UN DOCUMENT WORD SOUS ACCESS"

Je n'affiche pas encore comme résolu mais je vous communique quand meme ce sur quoi je suis....

Private Sub mode_detail_Click()

Dim stDocName As String

'ouverture du document de votre document Word (ex:"C:/Docdebase.doc")

Word_Ouvrir_document "l'emplacement de votre document word.doc", True

'L'exemple suivant s'applique pour une requête:
'1)a)atteindre un signet (position spécifique dans le fichier Word) pour pouvoir
'inserer le fichier "transfert"(au format .rtf) contenant la requête "nom de votre requête"
'Le fichier "transfert.rtf" sert à transferer le contenu de la requête vers un fichier Word,
'il est à chaque fois ecrasé et recrée.
'On test tout d'abord si la requête est vide en comptant
'le nombre d'enregistrement qu'elle contient.

If (DCount("*", "Nom de votre requête") > 0) Then
Word_Atteindre_Signet "Nom de votre signet dans votre document Word"
stDocName = "Nom de votre requête"
DoCmd.OutputTo acQuery, stDocName, acFormatRTF, "Nom de votre fichier .rtf et son emplacement (ex: C:/transfert.rtf)"
Word_Insère_fichier "C:/transfert.rtf"
End If

End Sub

'La commande "DoCmd.OutputTo" permet le transfert de la requête vers le document .rtf
'Elle peut prendre en paramêtre "acQuery" ou "acForm" ou "acTable" ou"acReport"
'(pour un état).A vous de changer la valeur de stDocName si c'est
'une table (le nom de la table)
'Les fonctions "Word_Atteindre_Signet", "Word_Insère_fichier"
'et "Word_Ouvrir_document" sont disponible ici:

Public Sub Word_Atteindre_Signet(Optional Nom_signet As Variant)

If Not IsNull(Nom_signet) Then
Word_Application.Selection.GoTo What:=wdGoToBookmark, Name:=Nom_signet
End If

End Sub


Public Sub Word_Insère_fichier(NomFichier As String)

Word_Application.Selection.InsertFile _
FileName:=NomFichier, _
Range:="", _
ConfirmConversions:=True, _
Link:=False, _
Attachment:=False

End Sub

Public Sub Word_Ouvrir_document(Nom_Document As Variant, Visible As Boolean)

Word_Création_Lien_OLE

With Word_Application
.Visible = Visible
.Documents.Open _
FileName:=Nom_Document, _
ConfirmConversions:=True, _
ReadOnly:=False, _
AddToRecentFiles:=False, _
PasswordDocument:="", _
PasswordTemplate:="", _
Revert:=False, _
WritePasswordDocument:="", _
WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto
End With

End Sub






Modifié par virjinialun le 31/01/2008 08:05
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !

Sujets relatifs
Comment imprimer dans Word 2007
Word : comment établir dans un texte ses propres marges de & et sous-& ?
Comment récupérer la barre d'outils dans Word 2007 ?
Comment bénéficier dans Thunderbird des raccourcis créés dans Word
Comment changer les petits signes dans Word...
comment inserer case a cocher dans word 2007 Vista
Comment SVP insérer un signet dans Word 2007 ?
comment inserrer les numeros romains dans word
Comment insérer un son automatique dans Word 2007
ne peut imprimer dans word 2007 ?
Plus de sujets relatifs à Comment imprimer depuis Acces dans Word?
 > Tous les forums > Forum Bureautique