Je viens à nouveau solliciter vos talents car les miens sont limités en matière de VBA...
J'ai créé un logiciel de calcul en coût global des bâtiments via Excel et VBA et je souhaiterai créer un fichier Word type avec les textes typiquement utilisés, certains tableaux et les graphes de sorties du logiciel. Jusque là tout va bien j'arrive à aller chercher un document Word déjà créer préalablement ainsi qu'à insérer des tableaux or le problème arrive aux graphiques... Je pense qu'il ne reconnaît pas le graphique que je veux copier et il n'apparaît donc pas sur mon document... j'ai recherché toute la matinée sur internet, j'ai trouvé de tout et n'importe quoi, j'ai essayé d'autres solutions mais rien n'y fait mon graphique n'est pas copié...
Si quelqu'un a ne serait-ce qu'une esquisse de solution je suis preneur !
Merci par avance !
Je poste également le programme sur lequel je m'exerce :
Sub Essai()
' Ouverture du fichier Word
Dim oWordApp As Word.Application
Dim oDoc As Word.Document
Set oWordApp = CreateObject("Word.Application")
Set oDoc = oWordApp.Documents. _
Open("D:\Essai.docx", ReadOnly:=True)
' Copie des tableaux dans le fichier Word ouvert
Dim i As Byte, j As Byte
Set AppWord = New Word.Application
AppWord.Visible = True
Set DocWord = AppWord.Documents.Add
j = 5
For i = 1 To 2
Range("Tableau_" & i).Copy
If j = 5 Then
With AppWord.Selection
.Paste 'coller
.InsertBreak Type:=wdSectionBreakNextPage
End With
Else
With AppWord.Selection
.Paste 'coller
.InsertBreak Type:=wdLineBreak
End With
End If
If j = 4 Then AppWord.Selection.InsertBreak Type:=wdSectionBreakNextPage
j = j + 1
If j = 6 Then j = 1
Next i
Application.CutCopyMode = False
' Copie des graphiques dans le fichier Word ouvert
With oDoc.Content
.Collapse Direction:=wdCollapseEnd
.InsertBreak Type:=wdLineBreak
.Text = "Le graphique ci-dessus démontre que la solution n°1 est la plus pertinente."
End With
