Discussion :

[bguichardaz]

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

[Jean-Philippe André]

salut,
sous Excel, wdPageBreak n'existe pas en tant que constante.
Il faut le spécifier dans ton code :

Code :

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

Const wdPageBreak= 7

[casavba]

Bonjour,

Pour information, l'ajout de references par macro se fait à l'aide de la propriete "AddFromFile" de l'objet References.

Exemple :

Code :

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

1
2
3
4
'Ajoute la référence word pour Office 2003
Dim w As String
w = "C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB"
ThisWorkbook.VBProject.References.AddFromFile w

Cdt

[bguichardaz]

Merci,

J'essaye ça en fin d'après-midi et je te dis.