salut tout le monde
toujours entrain de me débattre pour obtenir la même chose : je veux qu'en cliquant sur un bouton word s'ouvre et me donne accès a un fichier précis prédéfini avec les valeurs de champs provenants d'une requête accessibles pour la fusion via un mail, j'ai essayé plusieurs trucs comme ce qui suit :
mais bon je suis toujours aussi débutant en VBA et donc j'ai du mal a comprendre comment faire pour arriver a faire en sorte que ca marche malgré les tutoriaux consultés ... j'ai réussi pour l'exportation vers excel, ce qui était beaucoup plus simple mais pour word cela pose un problème plus compliqué vu que je veux qu'il me laisse faire la fusion vers un publipostage mail et non vers un nouveau document...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Private Sub Commande58_Click() On Error GoTo Err_Commande58_Click Dim moncode moncode = code.Value Set wdapp = CreateObject("word.application") wdapp.Visible = True wdapp.documents.Open "C:\commun\Donnees_Bigenet_a_partir_de_2005\bdd mailing\envoi_reception\envoi terminal au jour.doc" If code.Value <> "" Then wdapp.activedocument.bookmarks("ADMIN BIGENET envoi terminal au jour").Range.Text = code.Value Else wdapp.activedocument.bookmarks("ADMIN BIGENET envoi terminal au jour").Range.Text = "." End If Set wdapp = Nothing Exit_Commande58_Click: Exit Sub Err_Commande58_Click: MsgBox Err.Description Resume Exit_Commande58_Click End Sub
comment puis-je faire ?
Partager