automatisation

Le
jean-françois richard
Bonjour
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:WINNTInstaller
{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:WINNTInstaller
{90110409-6000-11D3-8CFE-0150048383C9}wordicon.exe", _
IconIndex:=1, IconLabel:="Requête Etat
compatibilité_ot_ar.rtf"
Selection.TypeText Text:=vbTab
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Geo
Le #20291851
Et dire que dans l'en-t^te il y a :

NewsReader : G2/1.0

ça veut lire Lecteur de nouvelles ?

--
A+
jean-françois richard
Le #20292661
On 5 oct, 11:58, Geo
Et dire que dans l'en-t^te il y a :

NewsReader : G2/1.0

ça veut lire Lecteur de nouvelles ?

--
A+



Désolé mais je n'ai pas compris votre explication sur les icones (:
Geo
Le #20294771
Bonjour


Désolé mais je n'ai pas compris votre explication sur les icones (:



C'eût été plus simple de l'écrire dans la conversation, plutôt que de
remettre trois fois la même question.

--
A+
Publicité
Poster une réponse
Anonyme