bonjour

j'ai écrit le code suivant :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Public Sub synthese()
 
Dim appWord As Object
Dim doc As Object
 
'on fixe une date puisque le programme n'est pas actualisé. On aurait pu la prendre dans la liste de données.
'cela aurait nécessité une conversion car on aurait eu "single" et "string" dans un même tableau. Lourd à gérer!
d = "04/11/2005"
 
'ouverture d'un nouveau document Word affiché à l'écran
Set appWord = CreateObject("Word.application")
appWord.Visible = True
Set doc = appWord.Documents.Add
 
 
'coller le graphique
doc.Range.Paste
 
'autres infos
With doc.content
'permet de sauter une ligne
.collapse direction:=wdCollapseEnd
.InsertBreak Type:=wdLineBreak
.collapse direction:=wdCollapseEnd
.InsertBreak Type:=wdLineBreak
.collapse direction:=wdCollapseEnd
.InsertBreak Type:=wdLineBreak
.Text = "CHIFFRES DU " & d & " :"
.collapse direction:=wdCollapseEnd
.InsertBreak Type:=wdLineBreak
.collapse direction:=wdCollapseEnd
.InsertBreak Type:=wdLineBreak
.Text = "Valeur d'ouverture = " & a(1) & "€"
.collapse direction:=wdCollapseEnd
.InsertBreak Type:=wdLineBreak
.Text = "Cours le plus haut = " & a(2) & "€"
.collapse direction:=wdCollapseEnd
.InsertBreak Type:=wdLineBreak
.Text = "Cours le plus bas = " & a(3) & "€"
.collapse direction:=wdCollapseEnd
.InsertBreak Type:=wdLineBreak
.Text = "Volume échangé = " & a(4) & " titres"
.collapse direction:=wdCollapseEnd
.InsertBreak Type:=wdLineBreak
.Text = "Valeur actuelle = " & a(5) & "€"
End With
 
End Sub
le problème c'est que seul le graphique apparaît sur Word (version 2003). Le graphique est l'objet qui est collé dans le code ci-dessus. Sur mon portable avec Word 2000, le texte s'affiche correctement sous le graphique.
Pourquoi?

[Balises "Code" ajoutée par AlainTech]
[Pensez-y vous-même à l'avenir. Merci. ]