[VBA] Définir une variable valide sur VBA Excel et Word ?

Version imprimable

29/03/2006, 20h58
dieu08

[VBA] Définir une variable valide sur VBA Excel et Word ?

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
31/03/2006, 12h04
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 ? :idea:
PS : Down !
05/04/2006, 17h19
dieu08

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

Merci ....

bonjour Dieu08 , bonjour Jmfmarques

j'espere que cet exemple pourra t'aider

Code:

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:

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