VBA - Insérer des cellules Excel dans Word au format Bitmap

Bonjour,
Il me faut votre aide là dessus: J'ai un code VBA qui ouvre un document word existant et y colle une selection de cellules excel à un endroit spécifique (entre deux bookmarks).

Question : Comment insérer les cellules à coller sous format BITMAP ?

Voici le code VBA tel qu'il existe:
J'ai mis la ligne qui me pose problème en italique.

Code:

---

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

Sub test() Dim wdApp As Word.Application, wdDoc As Word.Document Sheets("Sheet1").Select Range("B13:F25").Select Selection.Copy NomFichier = Sheets("Liste").Cells(4, 1).Value On Error Resume Next Set wdApp = GetObject(, "Word.Application") If Err.Number <> 0 Then Set wdApp = CreateObject("Word.Application") End If On Error GoTo 0 Set wdDoc = wdApp.Documents.Open("C:\Documents and Settings\436992\Desktop\TEST VBA\" & NomFichier) wdApp.Visible = True ActiveDocument.Range(ActiveDocument.Bookmarks("BM1").Range.Start,_ ActiveDocument.Bookmarks("BM2").Range.End).Paste wdDoc.save wdDoc.exit End Sub

---

J'ai déjà essayé de remplacer la ligne en italique par

Code:

---

1 2 3

ActiveDocument.Range(ActiveDocument.Bookmarks("BM1").Range.Start, _ ActiveDocument.Bookmarks("BM2").Range.End).PasteSpecial DataType:=wdPasteBitmap

---

mais ça ne fonctionne pas.

Merci beaucoup pour votre aide!

Bonjour et bienvenue sur les forums Office de DVP.

As-tu déjà essayé la méthode

Code:

---

Selection.Range.PasteSpecial DataType:=wdPasteBitmap

---

Salut Oli et merci pour ta réponse rapide;

Quand j'essaye avec ton code, ça me fait le debug suivant:

Run-time error '450':
Wrong number of arguments or invalid property assignment

Le debug surligne en jaune la ligne en gras ci-dessous:


ActiveDocument.Range(ActiveDocument.Bookmarks("BM1").Range.Start,_ ActiveDocument.Bookmarks("BM2").Range.End).Select

Selection.Range.PasteSpecial DataType:=wdPasteBitmap

Merci pour ton aide

C'est bon, j'ai trouvé!

Ta méthode marche si on remplace ActiveDocument par Word.Document.

Donc voici le code final:

Code:

---

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 test()   Dim wdApp As Word.Application, wdDoc As Word.Document   Sheets("Sheet1").Select Range("B13:F25").Select Selection.Copy   NomFichier = Sheets("Liste").Cells(4, 1).Value   On Error Resume Next Set wdApp = GetObject(, "Word.Application") If Err.Number <> 0 Then Set wdApp = CreateObject("Word.Application") End If On Error GoTo 0   Set wdDoc = wdApp.Documents.Open("C:\Documents and Settings\436992\Desktop\TEST VBA\" & NomFichier)   wdApp.Visible = True   wdDoc.Range(ActiveDocument.Bookmarks("BM1").Range.Start,_ wdDoc.Bookmarks("BM2").Range.End).PasteSpecial Datatype:=wdPasteBitmap   wdDoc.save   wdDoc.exit   End Sub

---

Merci pour ta contribution

Comme je ne sais jamais comment est lancée la procédure, j'utilise toujours ActiveDocument. c'est plus facile.

Un petit :resolu: