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 publipostage

publipostage

12 réponses
Avatar
yannick
Bonjour à tous,
j'esaye de faire du publipostage mais les feuilles sortent sans que les
champs soient remplacés.

Voici le code que j'ai repris:
(http://officesystem.access.free.fr/vba/publipostage.htm)
Private Sub Commande0_Click()
On Error Resume Next
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
Dim Db As DAO.Database
Dim Rt As DAO.Recordset
Dim Strsql As String
Set Db = CurrentDb
Strsql = "SELECT Client.N°client, Client.civilite, Client.RS,
Client.Adr1, Client.Adr2, Client.cp, Client.Ville FROM Client WHERE
(((Client.Ville)='rennes'));"

Set Rt = Db.OpenRecordset(Strsql)
Rt.MoveFirst
With W_App
.Visible = True
Do Until Rt.EOF
.Documents.Open ("c:\doc1.doc")
.ActiveDocument.Bookmarks("Nclient").SELECT
.Selection.InsertAfter Rt.Fields("Client.N°client")
.ActiveDocument.Bookmarks("civilite").SELECT
.Selection.InsertAfter Rt.Fields("Client.civilite")
.ActiveDocument.Bookmarks("RS").SELECT
.Selection.InsertAfter Rt.Fields("Client.RS")

.ActiveDocument.PrintOut False

.ActiveDocument.Close wdDoNotSaveChanges
Rt.MoveNext
Loop
Rt.Close
Set Rt = Nothing
Set Db = Nothing
.Quit
End With
Set W_App = Nothing
End Sub


j'ai remplacé Rs du code d'origine par Rt car j'ai un champs RS (Raison
sociale)

Quelqu'un aurait-il une solution ? ou bien une base exemple (je n'arrive pas
à en trouver)


Merci à tous ceux qui voudrons bien se pencher sur ce probleme.


@+


Yannick
Signaler un problème avec ce contenu

10 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
1 2
Avatar
Raymond [mvp]
Bonjour.

le nom du champ dans le recordset ne doit pas contenir le nom de la table.
.Selection.InsertAfter Rt.Fields("Client.N°client")
.Selection.InsertAfter Rt.Fields("N°client")


j'aurais mis Rst au lieu de Rt c'est plus parlant.

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


"yannick" a écrit dans le message de
news:
Bonjour à tous,
j'esaye de faire du publipostage mais les feuilles sortent sans que les
champs soient remplacés.

Voici le code que j'ai repris:
(http://officesystem.access.free.fr/vba/publipostage.htm)
Private Sub Commande0_Click()
On Error Resume Next
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
Dim Db As DAO.Database
Dim Rt As DAO.Recordset
Dim Strsql As String
Set Db = CurrentDb
Strsql = "SELECT Client.N°client, Client.civilite, Client.RS,
Client.Adr1, Client.Adr2, Client.cp, Client.Ville FROM Client WHERE
(((Client.Ville)='rennes'));"

Set Rt = Db.OpenRecordset(Strsql)
Rt.MoveFirst
With W_App
.Visible = True
Do Until Rt.EOF
.Documents.Open ("c:doc1.doc")
.ActiveDocument.Bookmarks("Nclient").SELECT
.Selection.InsertAfter Rt.Fields("Client.N°client")
.ActiveDocument.Bookmarks("civilite").SELECT
.Selection.InsertAfter Rt.Fields("Client.civilite")
.ActiveDocument.Bookmarks("RS").SELECT
.Selection.InsertAfter Rt.Fields("Client.RS")

.ActiveDocument.PrintOut False

.ActiveDocument.Close wdDoNotSaveChanges
Rt.MoveNext
Loop
Rt.Close
Set Rt = Nothing
Set Db = Nothing
.Quit
End With
Set W_App = Nothing
End Sub


j'ai remplacé Rs du code d'origine par Rt car j'ai un champs RS (Raison
sociale)

Quelqu'un aurait-il une solution ? ou bien une base exemple (je n'arrive
pas
à en trouver)


Merci à tous ceux qui voudrons bien se pencher sur ce probleme.


@+


Yannick





Avatar
yannick
avec tes conseils j'ai mis:

Private Sub Commande0_Click()
On Error Resume Next
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
Dim Db As DAO.Database
Dim Rst As DAO.Recordset
Dim Strsql As String
Set Db = CurrentDb
Strsql = "SELECT Client.N°client, Client.civilite, Client.RS,
Client.Adr1, Client.Adr2, Client.cp, Client.Ville FROM Client WHERE
(((Client.Ville)='rennes'));"
Set Rst = Db.OpenRecordset(Strsql)
Rst.MoveFirst
With W_App
.Visible = True
Do Until Rst.EOF
.Documents.Open ("c:doc1.doc")
.ActiveDocument.Bookmarks("N°client").SELECT
.Selection.InseRstAfter Rst.Fields("N°client")
.ActiveDocument.Bookmarks("civilite").SELECT
.Selection.InseRstAfter Rst.Fields("civilite")
.ActiveDocument.Bookmarks("RS").SELECT
.Selection.InseRstAfter Rst.Fields("RS")
.ActiveDocument.PrintOut False
.ActiveDocument.Close wdDoNotSaveChanges
Rst.MoveNext
Loop
Rst.Close
Set Rst = Nothing
Set Db = Nothing
.Quit
End With
Set W_App = Nothing
End Sub

Dans mon doc1.doc j'ai:
«N°client»
«civilite»
«RS»

Test de publipostage

J'ai toujours le meme probleme. c'est à dire au niveau impression j'ai:
«N°client»
«civilite»
«RS»

Test de publipostage


Peux tu m'aiguiller?
Merci

Yannick








Bonjour.

le nom du champ dans le recordset ne doit pas contenir le nom de la table.
.Selection.InsertAfter Rt.Fields("Client.N°client")
.Selection.InsertAfter Rt.Fields("N°client")


j'aurais mis Rst au lieu de Rt c'est plus parlant.

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


"yannick" a écrit dans le message de
news:
Bonjour à tous,
j'esaye de faire du publipostage mais les feuilles sortent sans que les
champs soient remplacés.

Voici le code que j'ai repris:
(http://officesystem.access.free.fr/vba/publipostage.htm)
Private Sub Commande0_Click()
On Error Resume Next
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
Dim Db As DAO.Database
Dim Rt As DAO.Recordset
Dim Strsql As String
Set Db = CurrentDb
Strsql = "SELECT Client.N°client, Client.civilite, Client.RS,
Client.Adr1, Client.Adr2, Client.cp, Client.Ville FROM Client WHERE
(((Client.Ville)='rennes'));"

Set Rt = Db.OpenRecordset(Strsql)
Rt.MoveFirst
With W_App
.Visible = True
Do Until Rt.EOF
.Documents.Open ("c:doc1.doc")
.ActiveDocument.Bookmarks("Nclient").SELECT
.Selection.InsertAfter Rt.Fields("Client.N°client")
.ActiveDocument.Bookmarks("civilite").SELECT
.Selection.InsertAfter Rt.Fields("Client.civilite")
.ActiveDocument.Bookmarks("RS").SELECT
.Selection.InsertAfter Rt.Fields("Client.RS")

.ActiveDocument.PrintOut False

.ActiveDocument.Close wdDoNotSaveChanges
Rt.MoveNext
Loop
Rt.Close
Set Rt = Nothing
Set Db = Nothing
.Quit
End With
Set W_App = Nothing
End Sub


j'ai remplacé Rs du code d'origine par Rt car j'ai un champs RS (Raison
sociale)

Quelqu'un aurait-il une solution ? ou bien une base exemple (je n'arrive
pas
à en trouver)


Merci à tous ceux qui voudrons bien se pencher sur ce probleme.


@+


Yannick










Avatar
Raymond [mvp]
si tu as «N°client»
«civilite»
«RS»
dans ton document , c'est des champs de formulaire ça ? ce ne sont pas des
signets. il ne faut pas passer par cet exemple si tu fonctionnes avec des
champs de formulaires à partir de word.
regarde l'exemple: http://officesystem.access.free.fr/vba/publipostage.htm
cas n° 2

je m'absente queques heures mais je serai là ce soir, si tu n'as pas trouvé.

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


"yannick" a écrit dans le message de
news:
avec tes conseils j'ai mis:

Private Sub Commande0_Click()
On Error Resume Next
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
Dim Db As DAO.Database
Dim Rst As DAO.Recordset
Dim Strsql As String
Set Db = CurrentDb
Strsql = "SELECT Client.N°client, Client.civilite, Client.RS,
Client.Adr1, Client.Adr2, Client.cp, Client.Ville FROM Client WHERE
(((Client.Ville)='rennes'));"
Set Rst = Db.OpenRecordset(Strsql)
Rst.MoveFirst
With W_App
.Visible = True
Do Until Rst.EOF
.Documents.Open ("c:doc1.doc")
.ActiveDocument.Bookmarks("N°client").SELECT
.Selection.InseRstAfter Rst.Fields("N°client")
.ActiveDocument.Bookmarks("civilite").SELECT
.Selection.InseRstAfter Rst.Fields("civilite")
.ActiveDocument.Bookmarks("RS").SELECT
.Selection.InseRstAfter Rst.Fields("RS")
.ActiveDocument.PrintOut False
.ActiveDocument.Close wdDoNotSaveChanges
Rst.MoveNext
Loop
Rst.Close
Set Rst = Nothing
Set Db = Nothing
.Quit
End With
Set W_App = Nothing
End Sub

Dans mon doc1.doc j'ai:
«N°client»
«civilite»
«RS»

Test de publipostage

J'ai toujours le meme probleme. c'est à dire au niveau impression j'ai:
«N°client»
«civilite»
«RS»

Test de publipostage


Peux tu m'aiguiller?
Merci

Yannick








Bonjour.

le nom du champ dans le recordset ne doit pas contenir le nom de la
table.
.Selection.InsertAfter Rt.Fields("Client.N°client")
.Selection.InsertAfter Rt.Fields("N°client")


j'aurais mis Rst au lieu de Rt c'est plus parlant.

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


"yannick" a écrit dans le message de
news:
Bonjour à tous,
j'esaye de faire du publipostage mais les feuilles sortent sans que les
champs soient remplacés.

Voici le code que j'ai repris:
(http://officesystem.access.free.fr/vba/publipostage.htm)
Private Sub Commande0_Click()
On Error Resume Next
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
Dim Db As DAO.Database
Dim Rt As DAO.Recordset
Dim Strsql As String
Set Db = CurrentDb
Strsql = "SELECT Client.N°client, Client.civilite, Client.RS,
Client.Adr1, Client.Adr2, Client.cp, Client.Ville FROM Client WHERE
(((Client.Ville)='rennes'));"

Set Rt = Db.OpenRecordset(Strsql)
Rt.MoveFirst
With W_App
.Visible = True
Do Until Rt.EOF
.Documents.Open ("c:doc1.doc")
.ActiveDocument.Bookmarks("Nclient").SELECT
.Selection.InsertAfter Rt.Fields("Client.N°client")
.ActiveDocument.Bookmarks("civilite").SELECT
.Selection.InsertAfter Rt.Fields("Client.civilite")
.ActiveDocument.Bookmarks("RS").SELECT
.Selection.InsertAfter Rt.Fields("Client.RS")

.ActiveDocument.PrintOut False

.ActiveDocument.Close wdDoNotSaveChanges
Rt.MoveNext
Loop
Rt.Close
Set Rt = Nothing
Set Db = Nothing
.Quit
End With
Set W_App = Nothing
End Sub


j'ai remplacé Rs du code d'origine par Rt car j'ai un champs RS (Raison
sociale)

Quelqu'un aurait-il une solution ? ou bien une base exemple (je
n'arrive
pas
à en trouver)


Merci à tous ceux qui voudrons bien se pencher sur ce probleme.


@+


Yannick












Avatar
yannick
Le N°client, civilite, RS sont des champs de ma table client, pour utiliser
le cas N°1
que dois je mettre dans mon fichier doc1.doc pour que cela marche ?

actuellemnt j'ai
«N°client»
«civilite»
«RS»
Test de publipostage

ou

N°client
civilite
RS
Test de publipostage

Aucun des deux ne fonctionnent.
Dois_je faire une manipulation dans word pour preparer le publipostage ?

Aurais tu un exemple?

Merci

Yannick




si tu as «N°client»
«civilite»
«RS»
dans ton document , c'est des champs de formulaire ça ? ce ne sont pas des
signets. il ne faut pas passer par cet exemple si tu fonctionnes avec des
champs de formulaires à partir de word.
regarde l'exemple: http://officesystem.access.free.fr/vba/publipostage.htm
cas n° 2

je m'absente queques heures mais je serai là ce soir, si tu n'as pas trouvé.

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


"yannick" a écrit dans le message de
news:
avec tes conseils j'ai mis:

Private Sub Commande0_Click()
On Error Resume Next
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
Dim Db As DAO.Database
Dim Rst As DAO.Recordset
Dim Strsql As String
Set Db = CurrentDb
Strsql = "SELECT Client.N°client, Client.civilite, Client.RS,
Client.Adr1, Client.Adr2, Client.cp, Client.Ville FROM Client WHERE
(((Client.Ville)='rennes'));"
Set Rst = Db.OpenRecordset(Strsql)
Rst.MoveFirst
With W_App
.Visible = True
Do Until Rst.EOF
.Documents.Open ("c:doc1.doc")
.ActiveDocument.Bookmarks("N°client").SELECT
.Selection.InseRstAfter Rst.Fields("N°client")
.ActiveDocument.Bookmarks("civilite").SELECT
.Selection.InseRstAfter Rst.Fields("civilite")
.ActiveDocument.Bookmarks("RS").SELECT
.Selection.InseRstAfter Rst.Fields("RS")
.ActiveDocument.PrintOut False
.ActiveDocument.Close wdDoNotSaveChanges
Rst.MoveNext
Loop
Rst.Close
Set Rst = Nothing
Set Db = Nothing
.Quit
End With
Set W_App = Nothing
End Sub

Dans mon doc1.doc j'ai:
«N°client»
«civilite»
«RS»

Test de publipostage

J'ai toujours le meme probleme. c'est à dire au niveau impression j'ai:
«N°client»
«civilite»
«RS»

Test de publipostage


Peux tu m'aiguiller?
Merci

Yannick








Bonjour.

le nom du champ dans le recordset ne doit pas contenir le nom de la
table.
.Selection.InsertAfter Rt.Fields("Client.N°client")
.Selection.InsertAfter Rt.Fields("N°client")


j'aurais mis Rst au lieu de Rt c'est plus parlant.

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


"yannick" a écrit dans le message de
news:
Bonjour à tous,
j'esaye de faire du publipostage mais les feuilles sortent sans que les
champs soient remplacés.

Voici le code que j'ai repris:
(http://officesystem.access.free.fr/vba/publipostage.htm)
Private Sub Commande0_Click()
On Error Resume Next
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
Dim Db As DAO.Database
Dim Rt As DAO.Recordset
Dim Strsql As String
Set Db = CurrentDb
Strsql = "SELECT Client.N°client, Client.civilite, Client.RS,
Client.Adr1, Client.Adr2, Client.cp, Client.Ville FROM Client WHERE
(((Client.Ville)='rennes'));"

Set Rt = Db.OpenRecordset(Strsql)
Rt.MoveFirst
With W_App
.Visible = True
Do Until Rt.EOF
.Documents.Open ("c:doc1.doc")
.ActiveDocument.Bookmarks("Nclient").SELECT
.Selection.InsertAfter Rt.Fields("Client.N°client")
.ActiveDocument.Bookmarks("civilite").SELECT
.Selection.InsertAfter Rt.Fields("Client.civilite")
.ActiveDocument.Bookmarks("RS").SELECT
.Selection.InsertAfter Rt.Fields("Client.RS")

.ActiveDocument.PrintOut False

.ActiveDocument.Close wdDoNotSaveChanges
Rt.MoveNext
Loop
Rt.Close
Set Rt = Nothing
Set Db = Nothing
.Quit
End With
Set W_App = Nothing
End Sub


j'ai remplacé Rs du code d'origine par Rt car j'ai un champs RS (Raison
sociale)

Quelqu'un aurait-il une solution ? ou bien une base exemple (je
n'arrive
pas
à en trouver)


Merci à tous ceux qui voudrons bien se pencher sur ce probleme.


@+


Yannick

















Avatar
Eric
Bonjour Yann,

Coté Word :
Dans ta lettre, à la position ou tu veux voir apparaitre le n° de client,
tu fais Menu Insertion Signet, tu définis le nom du signet,
par ex N° Client.(Rien ne s'affiche mais Word retient la position)
Tu fais de même pour les autres infos, puis tu sauves ton document. Il
s'agit d'une lettre simple, tu n'as pas besoin de faire Outil -
Publipostage.

Exemple :
Dans word, tu tapes
Ici le N° de client : PUIS tu fais Insertion Signet , tu donnes le nom
NumClient
...

voila ce que j'obtiens :
Ici le N° de client : 60
Ici le nom : Manulion
Ici la ville : LYON
Ici le CP : 69003


Test de publipostage

Ok ?

les valeurs proviennent de ton recordset qui contient les champs dont les
noms ne sont pas forcément identiques aux noms des signets.


A+
Eric

PS : dans ta proc, tu as fait un chercher-remplacer rt par Rst et tu as mis
partout et validé. Il se trouve que tuas modifié le .Selection.InsertAfter
par .Selection.InseRstAfter ;-)
Avatar
Eric
.../...
Mets :
.ActiveDocument.PrintPreview: Stop
ca te permettra de voir ce qu'il se passe
au lieu de :
.ActiveDocument.PrintOut False

Eric


Eric écrivait
news::

Bonjour Yann,

Coté Word :
Dans ta lettre, à la position ou tu veux voir apparaitre le n° de
client, tu fais Menu Insertion Signet, tu définis le nom du signet,
par ex N° Client.(Rien ne s'affiche mais Word retient la position)
Tu fais de même pour les autres infos, puis tu sauves ton document. Il
s'agit d'une lettre simple, tu n'as pas besoin de faire Outil -
Publipostage.

Exemple :
Dans word, tu tapes
Ici le N° de client : PUIS tu fais Insertion Signet , tu donnes le nom
NumClient
...

voila ce que j'obtiens :
Ici le N° de client : 60
Ici le nom : Manulion
Ici la ville : LYON
Ici le CP : 69003


Test de publipostage

Ok ?

les valeurs proviennent de ton recordset qui contient les champs dont
les noms ne sont pas forcément identiques aux noms des signets.


A+
Eric

PS : dans ta proc, tu as fait un chercher-remplacer rt par Rst et tu
as mis partout et validé. Il se trouve que tuas modifié le
.Selection.InsertAfter par .Selection.InseRstAfter ;-)




Avatar
yannick
Merci Eric de d'occuper de mon cas mais je n'y arrive toujours pas.
Peux tu m'envoyer une base exemple avec un fichier .doc sur

@+

Yannick



..../...
Mets :
.ActiveDocument.PrintPreview: Stop
ca te permettra de voir ce qu'il se passe
au lieu de :
.ActiveDocument.PrintOut False

Eric


Eric écrivait
news::

Bonjour Yann,

Coté Word :
Dans ta lettre, à la position ou tu veux voir apparaitre le n° de
client, tu fais Menu Insertion Signet, tu définis le nom du signet,
par ex N° Client.(Rien ne s'affiche mais Word retient la position)
Tu fais de même pour les autres infos, puis tu sauves ton document. Il
s'agit d'une lettre simple, tu n'as pas besoin de faire Outil -
Publipostage.

Exemple :
Dans word, tu tapes
Ici le N° de client : PUIS tu fais Insertion Signet , tu donnes le nom
NumClient
...

voila ce que j'obtiens :
Ici le N° de client : 60
Ici le nom : Manulion
Ici la ville : LYON
Ici le CP : 69003


Test de publipostage

Ok ?

les valeurs proviennent de ton recordset qui contient les champs dont
les noms ne sont pas forcément identiques aux noms des signets.


A+
Eric

PS : dans ta proc, tu as fait un chercher-remplacer rt par Rst et tu
as mis partout et validé. Il se trouve que tuas modifié le
.Selection.InsertAfter par .Selection.InseRstAfter ;-)








Avatar
Raymond [mvp]
si tu veux, tu m'envoies ta base avec ton fichier word et à quel endroit tu
veux le nom, rue ville etc.... indique bien quelle requête et quel
formulaire il faut utiliser.
enlève XYZ. dans mon adresse.

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


"yannick" a écrit dans le message de
news:
Merci Eric de d'occuper de mon cas mais je n'y arrive toujours pas.
Peux tu m'envoyer une base exemple avec un fichier .doc sur


@+

Yannick



..../...
Mets :
.ActiveDocument.PrintPreview: Stop
ca te permettra de voir ce qu'il se passe
au lieu de :
.ActiveDocument.PrintOut False

Eric


Eric écrivait
news::

Bonjour Yann,

Coté Word :
Dans ta lettre, à la position ou tu veux voir apparaitre le n° de
client, tu fais Menu Insertion Signet, tu définis le nom du signet,
par ex N° Client.(Rien ne s'affiche mais Word retient la position)
Tu fais de même pour les autres infos, puis tu sauves ton document. Il
s'agit d'une lettre simple, tu n'as pas besoin de faire Outil -
Publipostage.

Exemple :
Dans word, tu tapes
Ici le N° de client : PUIS tu fais Insertion Signet , tu donnes le nom
NumClient
...

voila ce que j'obtiens :
Ici le N° de client : 60
Ici le nom : Manulion
Ici la ville : LYON
Ici le CP : 69003


Test de publipostage

Ok ?

les valeurs proviennent de ton recordset qui contient les champs dont
les noms ne sont pas forcément identiques aux noms des signets.


A+
Eric

PS : dans ta proc, tu as fait un chercher-remplacer rt par Rst et tu
as mis partout et validé. Il se trouve que tuas modifié le
.Selection.InsertAfter par .Selection.InseRstAfter ;-)










Avatar
Eric
re Yannick,

C'est parti. (en zip bd+doc)
Avec des infos sur le fichier doc1.doc expliquant comment le construire.
Mettre le doc1.doc à la racine de C

A+
Eric

"=?Utf-8?B?eWFubmljaw==?=" écrivait
news::

Merci Eric de d'occuper de mon cas mais je n'y arrive toujours pas.
Peux tu m'envoyer une base exemple avec un fichier .doc sur


@+

Yannick




Avatar
yannick
merci Eric j'ai bien recu ta base et cela marche.
Avec ma base et ton fichier doc cela ne fonctionne pas.
Je vais regarder cela de plus pret.

@+

Yannick





re Yannick,

C'est parti. (en zip bd+doc)
Avec des infos sur le fichier doc1.doc expliquant comment le construire.
Mettre le doc1.doc à la racine de C

A+
Eric

"=?Utf-8?B?eWFubmljaw==?=" écrivait
news::

Merci Eric de d'occuper de mon cas mais je n'y arrive toujours pas.
Peux tu m'envoyer une base exemple avec un fichier .doc sur


@+

Yannick







1 2