fichier word dans cellule active

bonjour José,

Sub Macro1()
Dim x, y, IFN

With ActiveWindow
x = .Selection.Width
y = .Selection.Height
End With

IFN = _
"C:WINNTInstaller{9011040C-6000-11D3-8CFE-0050048383C9}wordicon.exe"

ActiveSheet.OLEObjects.Add(Filename:= _
"C:zazazaza.doc", Link:úlse, _
DisplayAsIcon:úlse, IconFileName:=IFN, _
IconIndex:=0, IconLabel:="C:zazazaza.doc").Select

With Selection.ShapeRange
.Width = x
.Height = y
End With
End Sub

isabelle

Bonsoir,

Y a t-il un moyen pour insérer à l'aide de VBA un fichier Word (petit) dans
la cellule active ?

D'avance merci
José