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 : 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 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 : Sélectionner tout - Visualiser dans une fenêtre à part
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!
Partager