[VBA-E] Récupérer variable excel et l'utiliser dans word

**a.dequidt** · 05/10/2007, 10h23

Bonjour les loulous,

Vous m'avez manqué, mais vous pouvez être fière de moi, j'avance toute seule maintenant, ou presque.
Ba oui, sinon je ne serais pas en train de vous écrire en ce moment même

Alours....
Ma macro excel, appele une macro word OK
ma macro word, créer un tableau OK
le nombre de ligne de ce tableau est dans une cellule excel OK

» Comment récupérer cette valeur, et la réutiliser dans ma macro word?

**ouskel'n'or** · 05/10/2007, 10h47

Facile !
Dans ta macro Excel, affecte ton nombre de ligne à une variable.
Dans ta macro Word, déclare une variable pour le nombre de lignes puis tu fais

Code :

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

VarWord = VarExcel

Enfin tu testes (jamais fait)

A la réflexion je ne suis pas du tout sûr que ça fonctionne... J'efface le "Facile" et je te mets un lien
Ça m'intéresse, alors si ça ne fonctionne pas, je verrai ce qu'on peut faire.

**a.dequidt** · 05/10/2007, 11h32

Bon apparement ce que j'ai fait ça ne marche pas :/
En meme temps ce que j'ai fait ça me semble tout pouri

EXCEL

Code :

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

1
2
3
4
5
 
dim max as integer
max = 5
' j'ai bien sur ouvert word et tout le tralala
wordApp.Run "ajouter_tableau"

WORD

Code :

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

1
2
3
4
5
6
 
Dim i As Integer
i = max
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
        i, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitWindow

Ici i=0

J'avais deja vu ce forum, mais la c'est l'inverse que je cherche a faire!

**ouskel'n'or** · 05/10/2007, 12h19

Comment lances-tu ta macro ?
Ce qui serait peut-être possible est de lancer ta macro depuis Excel en passant ton paramètre nbLignes

Code :

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

1
2
    NomComplet = "'TonFichier.Doc'!TaMacro"
    AppWord.Run NomComplet, NbLignes

Cette syntaxe convient à Excel... convient-elle à Word ? Pas testé.
Tu peux tester aussi avec l'objet DocWord (tu adaptes avec tes propres instances -> AppWord = Objet application et DocWord objet document)
A+

**a.dequidt** · 05/10/2007, 13h44

Code :

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

wordApp.Run "ajouter_tableau", max

Erreur n°450
"Nombre d'arguements incorrect ou affectation de propriété incorrecte

**ouskel'n'or** · 05/10/2007, 14h00

Tu as encore mal lu

**a.dequidt** · 05/10/2007, 14h19

Code :

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

1
2
 NomComplet = "'Presentation.Doc'!ajouter_tableau"
    AppWord.Run NomComplet, max

Erreur: Objet requis

**ouskel'n'or** · 05/10/2007, 14h33

Ok. Il va donc falloir utiliser l'objet DocWord et ça je ne l'ai jamais fait non plus. Comme j'ai la moitié du code (ouverture, travail dans doc, fermeture doc) je vais voir pour l'autre moitié (appli.run macro & paramètre). Je ne devrais pas en avoir pour longtemps que ça fonctionne ou non.
A+

**ouskel'n'or** · 05/10/2007, 15h28

Alors voilà...

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
Sub ExecuterMacroDansWord()
Dim NomChamp As String
Dim Chemin As String
Dim nomFich As String
Dim wdApp As Word.Application
Dim WdDoc As Document
Dim Valeur
    Chemin = "D:\Doc\"
    nomFich = "TestParam.doc"
    Set wdApp = CreateObject("word.application")
    Set WdDoc = wdApp.Documents.Open(Filename:=Chemin & nomFich)
    DoEvents
    Valeur = "Coucou"
    WdDoc.coucou (Valeur)
    DoEvents
    WdDoc.Close False
    DoEvents
    wdApp.Quit
 
    Set WdLType = Nothing
    Set WdDoc = Nothing
    Set wdApp = Nothing
End Sub

Important
Pour que la macro "coucou" s'exécute, elle doit se trouver dans l'objet ThisDocument du document que tu ouvres
Tu remplaces ce qu'il faut là où il faut et tu dis.
A+