Discussion :

[lucarno]

Bonjour,

J'ai en fait stocké les valeurs des cellules Excel dans un tableau Tab(50,50) de variables variant.

Mon objectif n'est pas de copier directement le contenu de cellules Excel dans Word, mais indirectement, en recopiant avec des passages au paragraphe suivant, le contenu du tableau Tab.

L'objectif est d'éditer des états : résultats de tableaux croisés.

Est-ce possible et comment ?

Merci

P.S. : En attendant, pour pouvoir avancer, je l'ai fait dans un autre fichier Excel.

[mnarchi]

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
Sub Export_Vers_Word()
 
Dim wd2003 As Object
Set wd2003 = CreateObject("word.application") 
wd2003.Visible = True
AppActivate wd2003.Name
wd2003.Documents.Open Filename:="D:\toto.doc"
 
wd2003.Selection.Goto what:=wdGoToBookmark, Name:="Début" 'indique la localisation du curseur dans le fichier Wd sur le signet Début, prévoir un tableau d'une ligne dans word, contenant le nombre de colonnes qu'il faut
 
For i = 1 To 50
   For j=1 to 50
       wd2003.Selection.TypeText Tableau(j,i)' à adapter
       wd2003.Selection.MoveRight Unit:=wdCell 'insertion d'une tabulation
   Next
   wd2003.Selection.InsertRowsBelow 1 'insertion d'une ligne 
Next
 
wd2003.ActiveDocument.Save
Set wd2003 = Nothing
End Sub

[Godzestla]

Bonjour Mnarchi,
je pense qu'avec ta technique, si on utilise ce code une nouvelle fois sur le même fichier word, on aura un résultat très lourd.

(nb attention au balise code, car ce n'est pas très lisible).