(Visual Basic) Probleme de late binding sous Excel 97

Recherche :

Dernière réponse
Sujet : (Visual Basic) Probleme de late binding sous Excel 97
Mack14	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 :jap:

Dernière réponse

Sujet : (Visual Basic) Probleme de late binding sous Excel 97

Mack14

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 :jap: