automatisation

Bonjour
J'ai bricol=E9 ce petit pg afin d'incorporer des fichiers rtf d'un
r=E9pertoire donn=E9 dans un document word.
J'aimerais pouvoir faire le m=EAme chose pour tous les fichiers pdf et
xls du r=E9pertoire.
Merci pour les id=E9es.


Private Sub CommandButton1_Click()
'Dim AppWord As word.Application
'Dim DocWord As word.Document
Debug.Print Application.ActiveDocument.FullName

With ActiveDocument


Debug.Print .Path


' ActiveWindow.Caption =3D AppWord.ActiveDocument.FullName
End With
ActiveWindow.Caption =3D ActiveDocument.Path


Selection.InlineShapes.AddOLEObject ClassType:=3D"Word.Document.8",
FileName _
:=3D _
"Requ=EAte Etat compatibilit=E9 contrat.rtf" _
, LinkToFile:=3DFalse, DisplayAsIcon:=3DTrue, IconFileName:=3D _
"C:\WINNT\Installer
\{90110409-6000-11D3-8CFE-0150048383C9}\wordicon.exe", _
IconIndex:=3D1, IconLabel:=3D"Requ=EAte Etat compatibilit=E9
contrat.rtf"
Selection.TypeText Text:=3DvbTab
Selection.InlineShapes.AddOLEObject ClassType:=3D"Word.Document.8",
FileName _
:=3D _
"Requ=EAte Etat compatibilit=E9_ot_ar.rtf" _
, LinkToFile:=3DFalse, DisplayAsIcon:=3DTrue, IconFileName:=3D _
"C:\WINNT\Installer
\{90110409-6000-11D3-8CFE-0150048383C9}\wordicon.exe", _
IconIndex:=3D1, IconLabel:=3D"Requ=EAte Etat
compatibilit=E9_ot_ar.rtf"
Selection.TypeText Text:=3DvbTab
End Sub