Discussion :

[Nix042]

Bonjour à tous,
j'ai fait une routine d'export des graphiques d'un classeur. D'ailleurs, merci pour toutes ces sources que j'ai trouvées sur le site et qui m'ont fort aidé.
Cette routine s'exécute lors de l'appui sur un bouton "export" situé sur la feuille principale. Les graphiques sont exportés si la checkbox correspondante est cochée (celle-ci remplit une cellule située sur une autre feuille avec un booléen).
Voici la routine :

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
 
Sub select_graph()
Dim graph As Chart
Dim graph_n As Byte
Dim graph_sel As String
Dim F_file As String, ficG As String
Dim wbk As Workbook
 
Set wbk = ThisWorkbook
Application.ScreenUpdating = False
For graph_n = 1 To 10
    If Range("calcul12!S" & graph_n) = True Then 'scrupte les checkboxes
        graph_sel = Range("calcul12!R" & graph_n)
        Charts(graph_sel).Select
        Set graph = ActiveChart
        F_file = "gif"
        ficG = wbk.Path & "\" & graph.Name & "." & F_file
        graph.Export Filename:=ficG, FilterName:="gif"
    End If
Next graph_n
ficG = wbk.Path
Application.ScreenUpdating = True
Sheets("Procédure et résultats").Select
MsgBox "Les graphiques sélectionnés ont été exportés avec succès dans " & ficG, vbInformation
End Sub

Mon problème est le suivant : l'étape suivante que je voulais suivre est un import sous Word 2003. Malheureusement, quand je clique sur l'insertion d'image, le résultat n'est pas génial à l'impression : il y a énormément de pixel qui apparaissent. Après examen du gif qui est exporté, je vois que cela vient de là. J'ai essayé en jpeg mais le résultat est pire puisque mon quadrillage devient laid aussi. Y aurait-il un moyen d'améliorer cela ?

Merci d'avance de vos réponses...

[Pierre Fauconnier]

Bonsoir.

Pourquoi ne pas exporter directement tes graphiques dans Word?

[Nix042]

Bonsoir Pierre et merci pour ta réponse.
il y a une propriété de chart pour exporter directement dans word ? Je vais essayer quelque chose comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub CopieChartWord()
    ActiveSheet.ChartObjects(1).Select
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Dim AppWord As Object
 
Set AppWord = CreateObject("Word.Application")
 
With AppWord
     .Visible = True
     .documents.Open Filename:="C:\AJETER\test.doc" ' a modifier
     .Selection.Paste
End With
 
End Sub

[Nix042]

Bonjour à tous,
j'ai décidé de finalement coller mes graphiques, seulement quand je veux positionner mon curseur sous word, je lance une recherche sur le titre en dessous duquel je souhaiterais qu'il soit.
Ensuite, j'aimerais envoyer une touche flèche bas (.MoveDown Unit:=wdLine, Count:=1), mais il me refuse la compilation, avec un message de paramètre incorrect. Je ne comprends pas étant donné que l'objet sélectionné à ce moment-là est le fichier word.
Est-ce normal que wdLine soit vide pendant l'exécution ?
Merci de votre aide.
Voici mon code, par clarté :

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
Public Sub CopieChartWord()
 
Dim AppWord As Object, DocWord As Object
Dim graph_n As Byte
 
Set AppWord = CreateObject("Word.Application")
Set DocWord = CreateObject("Word.Document")
 
With AppWord
    .Visible = True
    .Documents.Open Filename:="c:\nix\prog excel\FQA Straightener C666a.doc"
    .Activate
End With
 
For graph_n = 1 To 12
    If Range("calcul12!S" & graph_n) = True Then 'scrupte les checkboxes
        graph_name = Range("calcul12!R" & graph_n)
        Charts(graph_name).Select
        ActiveChart.ChartArea.Copy
 
        With AppWord.Selection
            .Find.Text = "Heat-up time open-close (120 minutes):"
            .Find.Execute
            .MoveDown Unit:=wdLine, Count:=1
            .PasteSpecial link = False, DataType:=ppPasteEnhancedMetafile
            .MoveDown Unit:=wdLine, Count:=1
            .PasteSpecial link = False, DataType:=ppPasteEnhancedMetafile
          End With
    End If
Next graph_n
 
End Sub

[Pierre Fauconnier]

La constante wdLine n'est connue que si tu références la librairie de Word.

Vu que tu travailles avec une connexion tardive (sans référencer la librairie), tu dois remplacer les constantes par leur valeur.

[Nix042]

Bonjour Pierre et merci pour ces éclaircissements.
Est-il possible de faire une sorte de #include pour inclure la librairie spécifique à word ?

[Pierre Fauconnier]

Dans VBA, outils/Références, et tu coches la référence souhaitée "microsoft word ..."

Tu peux alors déclarer tes variables du type souhaité, ce qui te permet la saisie semi-automatique.

Code :

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

Dim AppWord As word.application, DocWord As word.document