Discussion :

[dieu08]

Bonjour,

J'ai réalisé un petit prog en VB sur Excel pour commander un publipostage Word. Mon prog renvoit à un autre prog que j'ai réalisé dans le courrier Word pour faire le publipostage.

Tout fonctionne mais j'ai besoin dans ma macro Word d'une variable qui est définie par ma base de donnée Excel. Et je ne trouve pas le moyen de faire le lien.

Est-ce possible et si oui comment ? Si vous pouviez me donner un exemple concret ....


merci

Dieu08

[jmfmarques]

Pensée toute bête :
(et bien plus mécanisme de pensée que quoi que ce soit d'autre)
un .txt créé temporairement à cet effet et vers lequel "pointe" l'autre appli pour récupérer la valeur à passer, avant de détruire ce fichier temporaire, s'il est devenu inutile !
Pas difficile à mettre en oeuvre, non ?
PS : Down !

[dieu08]

Et oui j'ai fini par faire ça ... contraint et forcé ....

Merci ....

[SilkyRoad]

bonjour Dieu08 , bonjour Jmfmarques


j'espere que cet exemple pourra t'aider

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
'------------------------
'procedure dans Excel
'necessite d'activer la reference Microsoft Word xx.x Object Library
'
Private Sub CommandButton1_Click()
'
'utilisation de la methode Run depuis Excel ,
'pour déclencher une macro Word contenant un parametre
'
'
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Dim monParametreVB As String
 
Set wordApp = CreateObject("Word.Application")
wordApp.Visible = True
Set wordDoc = wordApp.Documents.Open("C:\monDocument.doc") 'ouverture doc Word
 
monParametreVB = "nouvelle donnée"
'déclenchement de la macro Word
'Remarque : la procedure Word doit etre placée au niveau de ThisDocument
wordDoc.laMacro monParametreVB
End Sub
'------------------------

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
'------------------------
La procédure dans Word à placer au niveau de ThisDocument
 
Option Explicit
 
Sub laMacro(maVariableWord As String)
ThisDocument.Range.Text = maVariableWord
End Sub
'------------------------

bonne journée
michel