Discussion :

[emorejbleu]

Bonjour,

Je souhaite à partir d'une feuille Excel créer un fichier Word.
Pour cela, sous Excel, dans une même Sub j'ai déclaré un tableau

Code :

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

tableau (500,3) As Variant

que je remplis comme je souhaite. Pas de problème.
Je lance ensuite ma macro Word va en Excel y mettant 5 paramètres dont ce tableau.

Code :

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

wrdApp.Run "macro_word",param1,param2,...,tableau

Word récupère bien les paramètres 1 à 4 qui sont des variables de type Long ou String. Pas de souci.
En revanche, il ne récupère pas les valeurs contenues dans tableau, celui-ci est vide.

Code :

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

1
2
Sub macro_word (param1 as Long,..., tableau As Variant)
Msgbox tableau (1,1) & " " & tableau (20,3)

ne me renvoie rien alors que ce tableau est bien rempli sous Excel.
Je n'ai rien trouvé qui puisse m'aider sur internet. Auriez vous une idée de mon erreur?
Très cordialement.

[Philippe Tulliez]

Bonjour,
Il serait préférable d'afficher le code complet (avec les balises) de la procédure que tu utilises (j'imagine que cela ne doit pas faire plus de 20 lignes d'après ce que tu décris) et de dire les lignes qui posent problèmes.

Pour passer une table comme argument à une procédure, tu peux passer la variable directement
Petit exemple ci-dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
 Dim maTable()
 maTable = Range("A1").CurrentRegion
 dMatable maTable
End Sub
Sub dMatable(t())
 Dim Elem1 As Long, elem2 As Integer
 For Elem1 = 1 To UBound(t, 1)
  For elem2 = 1 To UBound(t, 2)
   Debug.Print t(Elem1, elem2)
  Next
 Next
End Sub

[emorejbleu]

Merci pour réponse claire et précise.
Cela a bien répondu à mon problème.