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

Version imprimable

05/10/2007, 10h23
a.dequidt

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

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?
05/10/2007, 10h47
ouskel'n'or

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:

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. ;)

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

EXCEL
Code:

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:

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!

05/10/2007, 12h19
ouskel'n'or
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:

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+
05/10/2007, 13h44
a.dequidt

Code:

wordApp.Run "ajouter_tableau", max

Erreur n°450
"Nombre d'arguements incorrect ou affectation de propriété incorrecte
05/10/2007, 14h00
ouskel'n'or

Tu as encore mal lu :cry:

Code:

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

Erreur: Objet requis

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

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+

Alors voilà...

Code:

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+

05/10/2007, 16h04
a.dequidt

:love2:

T'es trop fort, je t'autorises a aller poster dans la FAQ si tu trouves que c'est nécéssaire :love:

:hola::hola:
05/10/2007, 16h38
ouskel'n'or

Citation:

Envoyé par a.dequidt

:love2:
T'es trop fort, je t'autorises a aller poster dans la FAQ si tu trouves que c'est nécéssaire :love:
:hola::hola:

Hé les gars, si c'est pas une déclaration en bonnet difforme, ça.......
C'est autorisé sur le forum, ça ? :mouarf:

Pour ce qui est de la FAQ, merci beaucoup de ton autorisation ;)
(Je vais déjà le placer dans Contribuez)