Discussion :

[r2d2c6po]

Bonjour !

Je patine avec un process basique sans doute mais je ne suis pas tres doué en vba ni en access alors, c'est sans doute evident pour nombre d'entre vous...
Voici le principe.
Dans une BD, une table parametre contient un champ "repertoire" et un champ "nom de fichier" pour passer des infos de localisation des fichiers pour publiposter.
Dans mon application, une requete ajout alimente une table vidée au préalable des informations permettant de faire un publipostage vers word de courriers individuel.
Tout fonction bien mais comme les noms des modèles de courriers et les emplacements devaient variés, j'ai voulu "parametrerces informations.

Voici le code actuel :

rivate Sub Courrier1_WD_Click()

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM ELEM_courrier_salarié;"
DoCmd.SetWarnings True

Dim qdf As DAO.QueryDef
Dim rcs As DAO.Recordset
'référence à la requête
DoCmd.OpenQuery "R_A_Table_Elem_Courrier_Salarié", , acReadOnly

Set qdf = Nothing

'Fusion avec le courrier par appel de la fonction qui est déclarée dans le module publipostage (merge it())
MergeIt

End Sub

--- Dans le module voici la fonction mergeit()

Sub MergeIt()

On Error GoTo Err_MergeIt

Dim objWord As Object
Set objWord = CreateObject("Word.Application")
'Attention le nom du courrier doit bien etre en .docx ou .doc selon version word !!!
'les valeurs viennent du fichier parametre via la requete de creation de la table d'édition

Set objWord = GetObject("C:\softbil\Courrier_salarié_1.docx", "Word.Document")
objWord.Application.Visible = True
' Sélectionne .la base de données comme source de données pour la fusion (attention le chemin est fixé c'est ça qui est à modifier !
objWord.MailMerge.OpenDataSource _
Name:="C:\softbil\V6 data.mdb", _
LinkToSource:=True, _
Connection:="TABLE ELEM_courrier_salarié", _
SQLStatement:="SELECT * FROM [ELEM_courrier_salarié]"
' Exécution de la fusion.
objWord.MailMerge.Execute
Set objWord = Nothing

Exit_MergeIt:
Exit Sub

Err_MergeIt:
MsgBox Err.description
Resume Exit_MergeIt

End Sub



----

Bon voilà l'idée c''est récuperer les valeurs de "repertoire" et de "nom du courrier" que j'ai dans la table ELEM_courrier_salarié crée par ma requete ajout pour faire que le reperoire et nom du courrier (actuellement ficgés dans le module) puissent etre changés par l'utilsiateur dans le fichier parametre ...

Plus dur a expliquer qu'a faire sans doute...
Je vous remercie d'avance de vos coups de main !

[Mr.Mof]

Bonjour,

Tu peux utiliser "Dlookup" ou "DFirst" pour récupérer les enregistrements.

[r2d2c6po]

Ok je vais essayer Dlookup en précisant le critère qui me permet de trouver le bon enregistrement et recuperer la valeur du champ qui me convient.
Merci pour cette idée.