Discussion :

[rupeni]

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. ]

[rupeni]

ne tenez pas trop compte des remarques en apostrophe!

[avigeilpro]

Commence par utiliser les balises code, ton post en sera plus lisible
Merci d'avance

[rupeni]

c'est bon ,j'ai la réponse à ma question. Ca ne marchera pas avec Word 2003. J'ai chopé le code en créant une marco sur Word 2000 et je vais devoir me contenter de ça.

ps: dslé pour les codes mais je ne savais pas comment améliorer l'affichage. Maintenant je sais