[VBA-W]publipostage word

[nagdrir]

Bonjour,
Je cherche à faire une lettre type qui utilise une requête imbriquée.
Pour chaque entreprise la lettre doit reprendre la liste des personnes stagiaires dans celle-ci en fonction d'un critère de date.
Je sais faire la requête mais pas l'intégrer dans Word 2003.
Est-ce possible ?
Je vous remercie de vos réponses, bien que ce ne soit pas tout à fait l'endroit où poster une pareil question.

[ouskel'n'or]

VB ? VBA ? Si tu peux préciser... Quant à ta requête, que fait-elle ?
A tout'

[nagdrir]

Je souhaite le faire en vba.
Ma requete, elle liste toutes les entreprises qui ont un stagiaire dans leurs murs dans un premier temps et liste les noms et prénoms de chaque stagiaire.
Le critère de tri est l'ordre alphabétique des noms des entreprises.
Donc l'entreprise 1 puis stagiaire 1
entreprise 2 puis stagiaire 2 et stagiaire 3 etc.
Le problème c'est que le nombre de stagiares n'est pas fixe, il faudrait faire une itération j'imagine. Mais je ne vois pas du tout comment faire.
Merci de la réponse.

[bbil]

tu nous as toujours pas dis d'ou ta requête tiré ces données ?

[nagdrir]

La requete est dans un fichier access.

[nagdrir]

nom de la base de données : stagiaire
nom de la requete : ets_stagiaire
liste des champs :
ets_nom
ets_adresse
ets_cp
ets_ville
eleve_nom
eleve_prenom

[AlainTech]

On va devoir te tirer les vers du nez jusqu'au dernier mot???

Quelle version ta base Access?

Si c'est 97 tu devras utiliser DAO, après, c'est ADO.

fais des recherches sur l'un de ces mots clés dans le forum et dans le site (www.developpez.com).

Jacma a écrit un tuto à ce sujet, tu devrais le trouver.

[AlainTech]

Tiens, je suis bon prince, voici le lien:

http://jacma.developpez.com/

[nagdrir]

Je suis désolé, mais je ne savais pas qu'il fallait ces informations :
access 2003
word 2003
vba

Merci pour le lien, je vais voir.

[nagdrir]

J'ai regardé les tutoriaux qui sont très bien faits, mais j'ai toujours une petite question.
Access je connais, la programmation de word non. J'ai compris les principes de la programmation vb.
Maintenant, pour ma lettre type, je dois passer par une macro qui charge les données dans des recordsets hiérarchiques.
Ensuite l'ajout des adresses des entreprises je ne vois pas trop comment faire non plus que sur l'ajout des noms des stagiaires.
Une fois ce problème réglé, ce sera fait pour une lettre, mais comment itérer pour toutes les lettres.
Je me rends bien compte que ce sont des questions qui vous semblent ridicules mais je ne vois pas bien comment les solutionner.
Merci de votre patience.

[jmfmarques]

J'ai compris les principes de la programmation vb.

Bien ! C'est un bon début !
Tu as par ailleurs le lien vers le bon tuto.
Reviens avec un début de code en nous expliquant où tu rencontres une difficulté

[ouskel'n'or]

Le principe de fusion de document dans word est : Une base de données contenant les renseignements utiles à ta lettre type et le document type dans lequel sont placés des champs de fusion.

Réaliser la liaison entre le document type et la base de données est réalisé ainsi

Code :

1
2
3
4
5
    ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "D:\xls\adresses diverses.xls", ConfirmConversions:=False, ReadOnly:= _
        False, LinkToSource:=True, Format:=wdOpenFormatAuto, Connection:= _
        "Feuille de calcul entière"

Réalise la liaison entre une base de données Excel (ne l'ai jamais fait avec access)
Pour Access, regarde la méthode OpenDataSource dans l'aide
Dans la base de données, j'ai les champs Civilité, Prénom, Nom, adresse...etc
Je suppose que tu souhaites placer l'adresse d'une personne sur ta lettre

Mademoiselle Michèle Untelle
5, avenue du Rosier
75013 PARIS

Pour faire ça, tu dois placer dans le document les champs de fusion aux endroits voulus.
Ces champs ont pour référence le nom de champ de la base de données. Dans l'exemple, tu auras ça dans Word

Code :

1
2
3
4
 
"Civilité" "Prénom" "Nom" 
"Adresse"
"Code_Postal" "Ville"

Généralement, l'insertion des champs se réalise manuellement, leur emplacement dépendant des termes de la lettre. Le code ne te servirait à rien sauf à t'inciter à réaliser une usine à gaz

Par contre, lancer par macro la fusion une fois le document type réalisée ne pose pas de pb :

Code :

1
2
3
4
5
 
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .Execute
    End With

Créera autant de lettres que de noms existants dans ta base de données
Mais tu peux définir des critères. Par exemple, si tu ne souhaites n'adresser une lettre qu'à Mademoiselle Michèle Untelle :

Code :

1
2
3
4
5
6
7
 
    ActiveDocument.MailMerge.DataSource.QueryString = _
        "SELECT * FROM D:\xls\adresses diverses.xls WHERE ((Nom = 'Untelle') AND (Prénom = 'Michèle'))" & ""
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .Execute Pause:=True
    End With

Te reste à l'adapter avec une base Access, ce que je ne sais pas faire
Mais il y aura bien quelqu'un pour t'aider.

A+

[nagdrir]

Merci pour tous ces renseignements, je vais m'y mettre sérieusement.
Il me faudra un peu de temps.
Je considère que ma question est résolue et ceci .
SI j'ai d'autres problèmes, je créerai une autre discussion.
Merci encore pour la cellérité dont vous avez fait tous preuve.
Bonne journée.