Discussion :

[Lysis]

Bonjour,

En vba depuis excel, j'essaye de copier une range avec un pasteSpecial dans word.
Est ce que vous savez je peux faire?
Merci d'avance

[SilkyRoad]

bonjour

j'espere que cet exemple pourra t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CollerDansWordFormatBitmap()
'necessite d'activer la reference microsoft Word xx.x Object Library
Dim Wrd As Word.Application
 
Range("A1:D10").Copy
 
Set Wrd = CreateObject("Word.Application")
Wrd.Documents.Add
Wrd.Visible = True
 
Wrd.Selection.PasteSpecial DataType:=wdPasteBitmap
Application.CutCopyMode = False
End Sub

cordialement
michel

[Lysis]

Merci