Bonjour, j'ai beaucoup de mal à trouver dans les FAQ et les Forums une syntaxe de code VBA correcte pour copier l'image d'un graphique d'Access sur un doc Word.
Le graphique 'source' est placé dans un formulaire Access comme objet OLE lié à un fichier Excel.
Je voudrai en disposer sur un doc word sous format image (sans liaison ni activation).
Le code utilisé (ci-dessous) fonctionne bien mais seulement pour copier un objet avec ses liaisons.
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
33
 
Dim nomDOCUMENT As String
Dim NomDocumentWord As String
Dim PositionCurseur As Long
 
Dim ApplicationWord As Word.Application 'Application Word
Dim DocumentWord As Word.Document 'Document Word
 
nomDOCUMENT = nomDOCUMENT & ".doc" 'Nom du Document à ouvrir
NomDocumentWord = adresseREPERTOIRE & "\" & nomDOCUMENT 'Chemin du Document
 
 
SetAttr NomDocumentWord, vbNormal
Set DocumentWord = ApplicationWord.Documents.Open(NomDocumentWord)
ApplicationWord.Visible = True
 
 
DocumentWord.Paragraphs.Add
PositionCurseur = DocumentWord.Paragraphs.Count
DocumentWord.Paragraphs(PositionCurseur).Range.Select
Set SelectionWord = ApplicationWord.Selection.Range
 
Me.graphiqueCHAPITRE.Action = 4 'Copie le graphique du formulaire Access (objet OLE lié à un graphique d'un fichier Excel mis à jour à partir du même formulaire)
 
SelectionWord.Paste 'marche, mais colle le graphique en tant que graphe Excel lié (non voulu ...)
 
'SelectionWord.PasteSpecial Format:="Image (JPEG)", Link:=False, DisplayAsIcon:=False (ne marche pas)
 
 
DocumentWord.Save
 
Set ApplicationWord = Nothing 'Vide mémoire
Set DocumentWord = Nothing 'Vide mémoire

Quelqu'un, quelque part, sait ...

Merci d'avance de votre assistance et qu'Isidorus vous ai tous en sa très numérique garde
Unlucky Luke