Discussion :

[a.dequidt]

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]

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]

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]

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]

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]

Tu as encore mal lu