Discussion :

[Lou17]

Bonjour,
Par quel code puis je insérer une image dans l'en-tête d'un document Word à partir du VBA d'Access ?
Merci de votre aide
lou

[helas]

Bonjour,
Bel exercice, j'ai donc tenté et trouvé cette solution

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
34
 
Sub Word()
 On Error GoTo erreur
 Dim wo As Object, dc As Object, f As Field, sh As Shape
 
 Set wo = CreateObject("word.Application")  'ouvre Word
 wo.Visible = True
 
 wo.Documents.Add       'ajoute un document
 Set dc = wo.ActiveDocument
 dc.Paragraphs.Add
 dc.Paragraphs(1).Range.Text = vbCrLf & "Bonjour," & vbCrLf & vbCrLf & "L'entête de ce document contient une image"
 
 With dc.Sections.First.Headers(wdHeaderFooterPrimary)  'section entête
  .Shapes.AddOLEObject FileName:="c:\word\image\mygale.bmp", LinkToFile:=False    'ajout d'un objet OLE
  Set sh = .Shapes(1)
  sh.PictureFormat.Brightness = 0.2  'pour noircir un peu l'image
  sh.PictureFormat.Contrast = 0.5
  sh.Visible = True
  sh.Name = "Image"
  sh.Height = 20
  sh.Width = 40
  sh.Top = 0
  sh.Left = -20     'retrait par rappport à la marge
 End With
 
 dc.SaveAs "c:\word\entete.doc"
 dc.Close
 wo.Quit
 
 Exit Sub
erreur:
 
End Sub

[Lou17]

Tout d'abord un grand merci pour t'être préoccupé de mon problème
mais... si ton code amène bien une image et un texte disant qu'il est dans l'entête, il n'en est rien : tout s'imprime dans le corps de texte...
Lou

[Lou17]

désolé, je n'avais pas bien regardé....
encore merci
Lou