[VB6] Écrire sur un doc Word

Version imprimable

J'ai un problème pour la fin de mon programme.

Je dois écrire du texte sur Word et coller un graphique Excel.

Voilà ce que j'ai pu faire jusque là :
Code:

1 2 3 4 5 6 7 8 9 Dim appWord As Object Dim doc As Object Dim plage As Object 'ouverture d'un nouveau document Word affiché à l'écran Set appWord = CreateObject("Word.application") appWord.Visible = True Set doc = appWord.Documents.Add Set plage = doc.Range
Pour coller le graphique déjà copié avant, j'ai mis "plage.Paste" et ça marche. Le problème c'est que je n'arrive pas à écrire du texte sous le graphique sans que celui-ci ne disparaisse. En fait ce n'est que le dernier texte ajouté qui apparaît sur Word.
J'espère être assez clair.

J'aimerais donc coller mon graphe et mettre du texte en-dessous.

Merci d'avance

ps: c'est bien sur VB6 que je fais mon programme, ce n'est pas une macro.

21/11/2005, 17h48
SfJ5Rpw8

Citation:

Envoyé par rupeni

SVP vous auriez pas une idée pour me débloquer ?

rajoute nous le code que tu utilise pour le paste .. ... et puis l'écriture et on pourra te dire quoi changer ...

bonjour

ce n'est pas du VB6 , mais cet exemple permet de piloter Word depuis Excel , et colle un graphique dans le document , puis un texte à la suite

tu devrais pouvoir l'adapter facilement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub collageGraphique_puisAjoutTexte()
'testé avec Excel2002
'nécéssite d'activer la référence Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
Set WordApp = CreateObject("word.application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add
 
Sheets("Feuil1").ChartObjects(1).Copy 'copie le graphique
 
'collage graphique
WordDoc.Range.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdInLine, DisplayAsIcon:=False
 
'ajout du texte à la suite du graphique
With WordDoc.Content
.Collapse Direction:=wdCollapseEnd 'derniere ligne du document
.InsertBreak Type:=wdLineBreak 'insert saut de ligne
.Text = "Le texte à ajouter"
End With
End Sub

cordialement
michel