Bonjour,

Je souhaite créer un document word depuis excel, ecrire dedans, coller des graphique qui viennent d'excel... Mon probleme est un message d'erreur 9118 "le paramètre a dépassé la valeur numérique applicable" sur la ligne en jaune qui doit normalement insérer un saut de page. Pourquoi ?

PS : je ne souhaite ni activer les références WordLibrary ou Ms Scripting File (sauf si qlq un sait comment actibver ces références via une macro et pas manuellement)

Si vous avez un solution, Merci !


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
Sub Export()

Dim wrd As Object
Set wrd = CreateObject("Word.Application")
wrd.Documents.Open ("c:\Rapport.doc")

With wrd
    .Selection.typetext Text:="Réponses au questionnaire"
    .Selection.TypeParagraph
    .Selection.typetext Text:="Principaux résultats et analyses"
    .Selection.Font.Size = 14
    .Selection.TypeParagraph
    .Selection.InsertBreak Type:=wdPageBreak
    .Selection.typetext Text:=uf_questionnaire.LB_Q1.Caption
    .Selection.TypeParagraph
End With

Sheets("Question1").Activate
ActiveSheet.ChartObjects(1).Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
wrd.Selection.PasteAndFormat (wdChartPicture)
wrd.Selection.TypeParagraph

wrd.ActiveDocument.Save
wrd.ActiveDocument.Close
Set wrd = Nothing
End Sub