Discussion :

[rupeni]

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 :

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

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.

[SfJ5Rpw8]

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

[SilkyRoad]

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 :

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