(Visual Basic) Probleme de late binding sous Excel 97
Probleme de late binding sous Excel 97 (Visual Basic) - Programmation
MarshPosté le 28-02-2002 à 10:03:23
Bonjours a tous. Desole de poser une question qui va sans doute paraitre debile a beaucoup, mais je decouvre le late binding sous Excel 97 et je n'arrive decidement pas a copier des elements Excel dans Word sous le format bitmap !! A chaque tentative, VB ignore ma demande de format bitmap A la place, j'ai droit au format par defaut qui ne me convient absolument pas. Voici le code que j'ai ecrit:
Sub Exp() Dim wd As Object Sheets("sheet3" ).Range(Cells(1, 1), Cells(42, 13)).Copy Set wd = CreateObject("Word.Application" ) With wd .Documents.Add .Visible = True End With With wd.Selection .PasteSpecial Link:=False, DataType:=wdPasteBitmap, Placement:= _ wdFloatOverText, DisplayAsIcon:=False End With Set wd = Nothing End Sub
Si quelqu'un a la reponse a mon probleme, je brulerai un cierge par jour en son honneur jusqu'a sa mort
Marsh Posté le 28-02-2002 à 10:03:23
Bonjours a tous.
Desole de poser une question qui va sans doute paraitre debile a beaucoup, mais je decouvre le late binding sous Excel 97 et je n'arrive decidement pas a copier des elements Excel dans Word sous le format bitmap !!
A chaque tentative, VB ignore ma demande de format bitmap
A la place, j'ai droit au format par defaut qui ne me convient absolument pas. Voici le code que j'ai ecrit:
Sub Exp()
Dim wd As Object
Sheets("sheet3" ).Range(Cells(1, 1), Cells(42, 13)).Copy
Set wd = CreateObject("Word.Application" )
With wd
.Documents.Add
.Visible = True
End With
With wd.Selection
.PasteSpecial Link:=False, DataType:=wdPasteBitmap, Placement:= _
wdFloatOverText, DisplayAsIcon:=False
End With
Set wd = Nothing
End Sub
Si quelqu'un a la reponse a mon probleme, je brulerai un cierge par jour en son honneur jusqu'a sa mort