Bonjour,
Dans un projet Access (adp), je tente d'effectuer une fusion d'une vue vers un document Word, dans un programme VBA.
La fusion s'opère, mais les données de type chaîne n'apparaissent pas dans les champs de fusion du document Word ; seules les données numériques, monétaires, dates, apparaissent. Dans le code VBA qui opère la fusion, j'utilise un DSN ODBC, qui pointe vers la base SQL Server (MSDE) du projet Access.
Voici le code VBA correspondant, associé à un bouton d'un formulaire :
'Ouverture et affichage du document Word à fusionner
Set objWordApp = New Word.Application
objWordApp.Documents.Open (strEmplacementDoc)
Set objWordDoc = objWordApp.ActiveDocument
objWordDoc.Application.Visible = True
'On attache une source de données au document Word à fusionner
objWordDoc.MailMerge.OpenDataSource Name:="", _
ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, Revert:=False, _
Format:=wdOpenFormatAuto, Connection:="DSN=MonServeur;UID=utilisateur;PWD=motdepasse", _
SQLStatement:="SELECT * FROM RExpFax01 WHERE N_Stgi = " & Me.N_Stgi.Value, SQLStatement1:=""
'On exécute la fusion
objWordDoc.MailMerge.Execute
'Libération de la mémoire
objWordDoc.Close
Set objWordDoc = Nothing
Set objWordApp = Nothing
Quelqu'un a-t-il déjà rencontré ce problème ? Merci d'avance pour vos suggestions.