Bonjou,
J'ai bricolé ce petit pg afin d'incorporer des fichiers rtf d'un
répertoire donné dans un document word.
J'aimerais pouvoir faire le même chose pour tous les fichiers pdf et
xls du répertoire.
Merci pour les idées.
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 = AppWord.ActiveDocument.FullName
End With
ActiveWindow.Caption = ActiveDocument.Path
 
 Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8",
FileName _
        := _
        "Requête Etat compatibilité contrat.rtf" _
        , LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
        "C:\WINNT\Installer
\{90110409-6000-11D3-8CFE-0150048383C9}\wordicon.exe", _
         IconIndex:=1, IconLabel:="Requête Etat compatibilité
contrat.rtf"
    Selection.TypeText Text:=vbTab
    Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8",
FileName _
        := _
        "Requête Etat compatibilité_ot_ar.rtf" _
        , LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
        "C:\WINNT\Installer
\{90110409-6000-11D3-8CFE-0150048383C9}\wordicon.exe", _
         IconIndex:=1, IconLabel:="Requête Etat
compatibilité_ot_ar.rtf"
    Selection.TypeText Text:=vbTab
    Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8",
FileName _
        := _
        "Requête Etat de la remise - seuil de remise.rtf" _
        , LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
        "C:\WINNT\Installer
\{90110409-6000-11D3-8CFE-0150048383C9}\wordicon.exe", _
         IconIndex:=1, IconLabel:= _
        "Requête Etat de la remise - seuil de remise.rtf"
    Selection.TypeText Text:=vbTab
    Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8",
FileName _
        := _
        "Requête Etat de la remise - trafic impacté.rtf" _
        , LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
        "C:\WINNT\Installer
\{90110409-6000-11D3-8CFE-0150048383C9}\wordicon.exe", _
         IconIndex:=1, IconLabel:= _
        "Requête Etat de la remise - trafic impacté.rtf"
    Selection.TypeText Text:=vbTab
    Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8",
FileName _
        := _
        "Requête Etat de la remise - description générale.rtf" _
        , LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
        "C:\WINNT\Installer
\{90110409-6000-11D3-8CFE-0150048383C9}\wordicon.exe", _
         IconIndex:=1, IconLabel:= _
        "Requête Etat de la remise - description générale.rtf"
    Selection.TypeText Text:=vbTab
    Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8",
FileName _
        := _
        "Requête Etat produit contrat et abonnement.rtf" _
        , LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
        "C:\WINNT\Installer
\{90110409-6000-11D3-8CFE-0150048383C9}\wordicon.exe", _
         IconIndex:=1, IconLabel:= _
        "Requête Etat produit contrat et abonnement.rtf"
    Selection.TypeText Text:=vbTab
    Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8",
FileName _
        := _
        "Requête Etat niveau_ot.rtf" _
        , LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
        "C:\WINNT\Installer
\{90110409-6000-11D3-8CFE-0150048383C9}\wordicon.exe", _
         IconIndex:=1, IconLabel:="Requête Etat niveau_ot.rtf"
    Selection.TypeText Text:=vbTab
    Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8",
FileName _
        := _
        "Requête Etat configuration_ot.rtf" _
        , LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
        "C:\WINNT\Installer
\{90110409-6000-11D3-8CFE-0150048383C9}\wordicon.exe", _
         IconIndex:=1, IconLabel:="Requête Etat configuration_ot.rtf"
    Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8",
FileName _
        := _
        "Requête Etat caractéristique de l'offre.rtf" _
        , LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
        "C:\WINNT\Installer
\{90110409-6000-11D3-8CFE-0150048383C9}\wordicon.exe", _
         IconIndex:=1, IconLabel:="Requête Etat caractéristique de
l'offre.rtf"
 
End Sub