Version imprimable
Bonjour à toutes et tous,
Je vous propose un tutoriel :
Une application Access pour émettre et archiver des documents types Word
Il permet d’illustrer l’interaction Access/Word avec un exemple concret. Il s’agit d’une application qui montre comment émettre à la demande un document personnalisé basé sur une collection de modèles types.
Vos remarques et suggestions sont les bienvenues dans le fil de cette discussion.
Merci Claude j'ai trouvé cela intéressant et bien détaillé.
À titre personnel, j'ai une application qui fait la même chose.
Les limites que j'ai frappées sont :
- Au max 255 champs puisque la source est une requête ou une table.
- Parfois et sans raison apparente si on fusionne plusieurs enregistrements (pour produire plusieurs fois le même document pour diverses personnes) Word se croise complètemement les yeux sur la numérotation des paragraphes ou des puces.
- Il est préférable de faire tous les calculs de substitution dans Access car le langage de programmation de fusion est réellement pourri et le debuggage des champs de fusion est assez difficile.
- Changer la source de données des words peut être problématique.
- J'ai eu une mauvaise surprise sur le formatage des nombres, parfois Access affiche 2.00 et Word imprime 1.999999999. Note : je travaille dans un environnement multilingues : français, anglais ce qui n'aide peut-être pas.
Il est à la limite plus simple de formater les données et de les convertir en texte dans Access plustôt que d'utiliser les formats de Word.
Une solution alternative que je n'ai pas utilisée est de remplir des "signet" directement dans le Word. En gros on ouvre le Word et on complète par programme VBA les signets insérer dans le texte. À mon avis cette solution permet de dépasser la limite de 255 champs.
A+
Bonjour René,
Content de te croiser ici et merci pour ton message.
Je n’ai pas été confronté à cette limite.Citation:
Au max 255 champs puisque la source est une requête ou une table
En l’occurrence, j’opterais pour la solution « Avec signets » et autant de tables « tParametres_n » que nécessaires et boucler n fois dans le processus de remplacement des signets.
Je n’ai pas encore rencontré ce problème.Citation:
Parfois et sans raison apparente si on fusionne plusieurs enregistrements (pour produire plusieurs fois le même document pour diverses personnes) Word se croise complètemement les yeux sur la numérotation des paragraphes ou des puces.
Et :Citation:
Il est préférable de faire tous les calculs de substitution dans Access car le langage de programmation de fusion est réellement pourri et le debuggage des champs de fusion est assez difficile.
Je partage ton avis, mais c’est sans doute parce que toi et moi sommes plutôt habitués à la syntaxe Access qu’à celle de Word.Citation:
J'ai eu une mauvaise surprise sur le formatage des nombres, parfois Access affiche 2.00 et Word imprime 1.999999999. Note : je travaille dans un environnement multilingues : français, anglais ce qui n'aide peut-être pas.
Il est à la limite plus simple de formater les données et de les convertir en texte dans Access plustôt que d'utiliser les formats de Word.
Je ne connais pas assez Word, pour émettre un avis sur la facilité de modifier à la main l'original du document de publipostage.Citation:
Changer la source de données des words peut être problématique.
Mais, dans l’exemple du tutoriel, tu remarqueras que dans l’option « Avec champs de fusion », l’instruction
http://claudeleloup.developpez.com/TBD/i633.jpg
change la db de référence, quelle que soit celle qui avait été choisie à l’origine pour confectionner le document Word.
Encore merci pour tes contributions.
Oui j'ai fait cela ... et tous mes Word on cessé de fusionner. Il a fallu que je revienne aux versions précédentes.
À part le 255 champs max les autres problèmes ont été aléatoires. Un coup ça marche, un coup non mais sans règle apparente.
Mon point n'était pas de décourager les gens d'utiliser cette solution qui marche dans l'ensemble assez bien, juste d'informer des problèmes qu'ils pourraient rencontrer et qui sont assez frustrants.
A+
Pas de souci René.
Merci encore pour ton intervention.
Bon week-end.
Pour dépasser les 255 champs (limite des tables et requêtes Access), on peut faire une représentation sous forme de métadonnées tblMetaExport(idligne, idPatient, NomChamp,ValeurChamp)
Exemple
Mais bon, 255 champs c'est quand même déjà pas mal ;)Code:
2
3
4
5
6
7
8
9
Bonjour Christophe,
Peux-tu donner un lien pour trouver de la documentation à ce sujet ?Citation:
métadonnées tblMetaExport
Est-ce disponible dans Access2000 ?
Ceci est disponible quelque soit le SGBD puisque c'est une modélisation des attributs sous forme de lignes.
Au lieu de traiter que le nom d'un patient est une propriété du patient, on modélise le fait que le patient a une caractéristique qui est son nom.
Un exemple de modélisation de la sorte :
tblClient(IdClient,PortableClient,FaxClient,FixeClient)
limite le nombre de coordonnées à 3.
Alors que
tblCoordonneesClient(IdClient,LibelleCoordonnee,ValeurCoordonnee) permet de saisir autant de coordonnées que souhaitées.
Un lien pour en savoir d'avantage : http://sqlpro.developpez.com/cours/m...n/metadonnees/
OK mais comment tu t'en sert pour faire la fusion dans Word ?
En standard Word fusionne à partir d'un enregistrement donc on ne peut pas dépasser 255 champs.
A+
Merci Christophe pour cette adresse. :ccool:
:aie:Citation:
Envoyé par marot_r
Au pire on pourrait essayer d'exporter dans un classeur excel ou un csv, mais je suis même pas sûr que, du coup, Word accepte plus de champs :?
Bonne idée le .XlsX ou le csv je ne l'avais pas envisagé.
A+
Bonjour,
On a une certaine marge, mais on est quand même limité à 2 147 483 647 !Citation:
mais je suis même pas sûr que, du coup, Word accepte plus de champs
Source : http://support.microsoft.com/kb/211489/fr
P.-S. On demande volontaire pour tester le message reçu en cas de dépassement. :mouarf:
Un astronome peut-être, ce sont des gens habitués aux grands nombres :-).Citation:
On demande volontaire pour tester le message reçu en cas de dépassement
A+
Oui René, sauf que n'aurons le résultat que dans quelques... années-lumière !
Bonjour Claude,
Très bon tuto, j'ai bien aimé la manière d'aborder la problématique des relations Word vs Access.
J'ai fait quelques modifications pour une application et je voulais partager.
Premièrement j'ai laissé la possibilité à l'administrateur de la bd de choisir l'emplacement où seront enregistrer les documents de manière très simple, une table avec le chemin réseau.J'ai modifié le code pour qu'il soit accessible à partir de plusieurs formulaires en créant dans un module une fonction qui reprend tes subs:Code:strF = DMax("CheminFichier", "P_Word")
En plus comme mon application à plusieurs tables sans rapport direct la possibilité d'avoir plusieurs requêtes "création de table" passé en paramètre dans la fonction pour ainsi mieux définir la table destination finale.Code:
2
3
4
5
J'ai aussi modifié le sub CreerDosPatient pour tenir compte du type de fichier sélectionné et de la méthode à appliquer selon le cas.Présentement je traite Word et Excell mais je vais traiter d'autres types de fichiers, j'en suis rendu là.Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Encore un fois merci, ton tuto m'a amené a revoir une application qui fonctionnait bien, mais qui maintenant est beaucoup plus professionnelle.
Robert
Bonjour Robert,
Ravi de savoir que ce tuto a pu t'être utile.
Merci de me l'avoir communiqué.
Au plaisir de te recroiser au détour d'une discussion sur ce forum.
Claude.
Bonjour Claude,
Nouvelle expérience avec ton code.
Une version qui fonctionne sous RunTime (fichier accdr)cause un problème, lors de l'ouverture de Word le message d'erreur "la base est en mode exclusif par admin bla bla bla". Donc impossible d'aller lire les données de la table. J'ai chercher chez Microsoft et je n'ai rien vu.
Pour ne pas perdre plus de temps j'ai contourné le problème en créant une nouvelle base qui possède seulement la table destination et modifier la requête pour qu'elle exporte les données dans cette table. La table est dans le même répertoire que l'application (frontale), donc une base pour chaque utilisateurs.
Ça fonctionne très bien, mais je trouve curieux que Word ne puisse lire un fichier accdr!
Bonne journée
Bonjour Robert,
Désolé de ne pouvoir t'aider, j'en suis encore à utiliser Access2000.
Tu aurais peut-être plus de chances de trouver de l'aide en signalant ton problème dans le forum Word.
Au plaisir.
Bonjour,
débutant dans access et sur ce forum, je commence par remercier tous ceux qui se donnent sur mal pour nous.
J'ai lu le tuto, j'ai essayé de comprendre, ça viendra après plusieurs lectures.
Pour l'instant, j'arrive à éditer un document word rempli avec le contenu des signets.
Mais le document qui s'ouvre est un modèle (.dotx) et je ne voudrais pas qu'un utilisateur le modifie manuellement et l'enregistre. Bien sûr, je vais dire à mes utilisateurs : faites attention à faire "enregistrer sous..." mais un jour ou l'autre...
Peut-on spécifier à Access/Word que l'on ouvrir le document en mode document (.docx) de façon que mon modèle soit protégé.
Merci pour vos réponses.
Francois
Bonjour et bienvenue François le Champi,
Merci pour l'intérêt porté à cet article.
Si tu regardes ici, par exemple : http://claudeleloup.developpez.com/t...-types/#LV-B-2, tu constateras qu'on ne traite pas le modèle. On prend une copie et c'est elle qu'on personnalise.Citation:
Peut-on spécifier à Access/Word que l'on ouvrir le document en mode document (.docx) de façon que mon modèle soit protégé.
La petite Fadette (pour rester dans la même catégorie)
Oui, c'est ce que j'ai compris : on crée le document, on l'enregistre tout de suite et on l'ouvre à nouveau pour que l'utilisateur puisse le modifier. Du coup, quand l'utilisateur le modifie, l'enregistrement se fait automatiquement au bon endroit. C'est très fort, en tout cas, bien au-dessus de mon niveau. Je vais relire tout ça et essayer de l'adapter à mon cas, c'est à dire trouver comment spécifier le bon dossier ce qui dans mon cas est différent du tutoriel.
Cependant, mon idée était pour commencer d'ouvrir un document à partir d'un modèle. Ceci présente l'intérêt que si on renonce à créer le document (parce qu'on s'aperçoit qu'on n'a pas rempli correctement le formulaire avant l'édition par exemple), on annule et le document n'est pas créé. En mode test, ça m'intéresse.
Voilà pourquoi j'aurais été intéressé de savoir si on peut non pas ouvrir un document mais un modèle en mode document comme on fait d'habitude sous word quand on choisit "créer un nouveau document à partir d'un modèle".
Mais si c'est pas possible...
Merci de vos conseils
François
Je ne suis pas un spécialiste de l'utilisation de Word !:cry:
Moi, je laisserais le document "projet" se créer.
Si l'utilisateur se ravise et renonce au projet, il ferme le doc :fleche: le formulaire Access revient au premier plan.
Dans le formulaire, prévois un bouton dont le clic supprime le document qui s'avère inutile dans le cas que tu évoques.
J'ai trouvé !
Je le donne pour le partager avec d'autres
1°) pour ouvrir un document word
.document.open lechemindumodèle.docx
mais là c'est le modèle qui s'ouvre
2°) pour ouvrir un document à partir d'un modèle
.document.add template:=lechemindumodèle.docx
j'ai trouvé ça sur
http://msdn.microsoft.com/fr-fr/libr...ice.15%29.aspx
maintenant, ce que je voudrais, c'est suggérer à word le chemin pour enregistrer...
encore merci !
Bonjour,
N'est-ce pas simplementCitation:
maintenant, ce que je voudrais, c'est suggérer à word le chemin pour enregistrer...
Code:.ActiveDocument.SaveAs2 LeCheminQueTuVeux
Bonjour,
j'ai adoré le tutoriel, je suis vraiment novice dans le VBA
j'aurais une question.
la voilà : Est-ce possible de faire celà sans avoir la partie requête, actuellement j'en ai fait un à partir d'un formulaire dont voilà le code :
etCode:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
la seule choses que je ne réussi pas à faire c'est que mon document qu'il export en Word, n'est jamais celle qui est présente dans mon formulaire, et parfois il me sort vide (sans les signets) qu'est qui cloche dans mon code?Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
merci a l'avance
Bonjour,
Merci pour l'intérêt.
Ce que tu ne nous montres pas, c'est la relation entre « le formulaire » dont tu parles et la table « Publipostage » que tu utilises ici :Citation:
la seule choses que je ne réussi pas à faire c'est que mon document qu'il export en Word, n'est jamais celle qui est présente dans mon formulaire, et parfois il me sort vide (sans les signets) qu'est qui cloche dans mon code?
.Code:sql = "SELECT * from Publipostage"
D'après le résultat que tu signales, c'est comme si la table « Publipostage » ne contient pas ce que tu crois au moment où tu l'utilises.
Bonjour
donc si je comprend bien, tu me suggère de mettre un where ?Code:sql = "SELECT * from Publipostage"
pourtant mes donnée son dans la table Publipostage
ReBonjour Claude,
faudrait que je mentionne ma clé primaire ?
Voici mon nouveau Code: Aucune erreur m'est signalé ( tu trouveras en jaune les changement que j'ai effectué)
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34Sub MergeBM() Dim wApp As Word.Application Dim chemin As String Dim rs As DAO.Recordset Dim db As DAO.Database Dim sql As String sql = "SELECT * from Publipostage WHERE IDPublipostage" Set db = CurrentDb Set rs = db.OpenRecordset(sql) Set wApp = New Word.Application chemin = CurrentProject.Path wApp.Visible = True While Not rs.EOF With wApp .Documents.Open "C:\Users\Daniel\Documents\Access\qui marche\visite.dot" .ActiveDocument.Bookmarks("Nom").Range.Text = rs.Fields("Nom") .ActiveDocument.Bookmarks("A").Range.Text = rs.Fields("A") .ActiveDocument.Bookmarks("B").Range.Text = rs.Fields("B") .ActiveDocument.Bookmarks("C").Range.Text = rs.Fields("C") .ActiveDocument.PrintOut .ActiveDocument.Close (wdDoNotSaveChanges) End With rs.MoveNext Wend rs.Close Set rs = Nothing db.Close Set db = Nothing Set wApp = Nothing End Sub
Celà fonctionne, sauf qu'il imprime toutes mes fiches (Document Word), j'aimerais à la place si possible faire un enregistrement (que je pourrais mettre dans un autre endroit)Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16Sub MergeIt() Dim objWord As Word.Document Set objWord = GetObject("C:\Users\Daniel\Documents\Access\qui marche\visite.dot", "Word.Document") ' Rend Word visible important puisque la fusion se fait à l'écran. objWord.Application.Visible = True ' Sélectionne .la base de données Comptoir comme source de données pour la fusion objWord.MailMerge.OpenDataSource _ Name:="C:\Users\Daniel\Documents\Access\qui marche\Suivie_des_Clients-Daniel.accdb", _ LinkToSource:=True, _ Connection:="Table Publipostage", _ SQLStatement:="SELECT * FROM [IDPublipostage]" ' Exécution de la fusion. objWord.MailMerge.Execute Set objWord = Nothing End Sub
merci de votre aide!
Dans le code que tu montres, on voit que tu utilises la table « Publipostage ».
Que contient cette table au moment où tu déclenches l’exécution du code ? Quel est le rapport entre le formulaire et cette table ? Comment cette table est-elle alimentée ?
Bonjour Claude,
merci de prendre du temps pour me répondre.
ma table est alimenté par le formulaire, ou j'ai un bouton qui éxécute mon publipostage
Finalement j'aimerais mieux utiliser ta façon de faire (ton Code celui Signet) c'est pour cela que je vous posais la question Est-ce vraiment nécessaire de faire une requête pour utilisé ta façon de faire.
Tout cela dépend de ce que contient la table à l'instant que tu l'utilises : si elle ne contient qu'un seul enregistrement (celui que tu viens modifier avec ton formulaire) alors c'est OK.
Par contre, si cette table contient plusieurs enregistrements, pour isoler celui qui t'intéresse, il te faut spécifier lequel => requête.
ok je dois quitter pour 4 jours, dès mon retour je me pencherai sur cette question.
pour l'instant je tiens vraiment a te remercié!
bonne semaine!
Pas de souci !
À bientôt.
Bonjour
Je suis nouveau sur cette discussion et mes connaissances en access et BVA sont très limités.
étant chirurgien et voulant utiliser une base de données Patients avec un formulaire à trois boutons me permettant d'une part de créer un dossier Patient et dans ce dossier patient enregistrer les documents textes correspondant (document type word pour la convocation à la consultation, le compte rendu opératoire et le courrier pour le médecin traitant)
Je clique sur le bouton consultation ou compte rendu ou médecin mais ça ne me donne pas la possibilité de choisir un document type.
J'ai toujours cette réponse : "Vous devez choisir un document type"
Code:
2
3
4
5
6
7
8
9
10
ça ne crée pas non plus de dossier avec le nom du patient dans Mes dossiers Patients.
Mon fils a changé une ligne de code
ça crée le dossier patient mais j'ai une erreur :Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
"Erreur dans CreerDosPatient 5455 Le nom du dossier est incorrect"
Est il possible que ce ne soit pas compatible avec access 2016?
Et y a t-il une solution pour m'aider
ça me faciliterais beaucoup de choses
Merci beaucoup
Bonjour hassanmef et bienvenue chez nous,
D’abord merci pour l’intérêt porté à ce tutoriel.
Je n’ai pas la version 2016 pour tester (j’utilise encore la version 2000 !), mais les versions d’Access, en principe, sont compatibles avec les versions antérieures.Citation:
Est-il possible d'utiliser avec Access 2016 ?
Là n’est pas le problème !
Je clique sur le bouton consultation ou compte rendu ou médecin, mais ça ne me donne pas la possibilité de choisir un document type.
J'ai toujours cette réponse : "Vous devez choisir un document type"
C’est comme si tu fermais cette fenêtre :
http://claudeleloup.developpez.com/&99/M1416.jpg
sans avoir choisi un fichier.
N.B. Il faut double-cliquer sur le nom du fichier pour le sélectionner, la fenêtre se refermera automatiquement.
P.-S. As-tu bien décompressé toute l’archive : http://claudeleloup.developpez.com/t...es/Signets.zip dans un répertoire ?
Tu dois avoir cette structure :
Bonjour,
Je vais détailler plus précisément mon problème:
J'ai téléchargé l'archive disponible à la fin de votre tutoriel:
Pièce jointe 293639
Ensuite je l'ai décompressé dans un dossier quelconque:
Pièce jointe 293634
Nous pouvons voir ici, que normalement, tous les fichiers et dossier sont présents:
Pièce jointe 293636
Ensuite, puisque j'utilise une version 64Bits de Access 2016, j'ai édité le module "mFonctions",
en remplaçant les "Declare" simple par des "Declare PtrSafe", et le type "Long" par "LongPtr"
Malheuresement, quand je clique sur le bouton "Comptes Rendus" celui-ci ne m'affiche pas l'explorateur de fichier Windows, mais directement l'erreur "Vous devez choisir un document type" (Comme vous pouvez le voir ci-dessous)
Pièce jointe 293638
Est-ce que vous pouvez m'aider à trouver ce que j'ai oublié de faire ?
Merci.
Bonsoir hassanmef,
C'est probablement là qu'est le problème.Citation:
Ensuite, puisque j'utilise une version 64Bits de Access 2016, j'ai édité le module "mFonctions",
en remplaçant les "Declare" simple par des "Declare PtrSafe", et le type "Long" par "LongPtr"
Je n'ai malheureusement pas de quoi tester.
Espérons qu'un autre forumeur prendra le relais.
Merci
J'espère que quelqu'un puisse avoir une solution pour m'aider
