automatisation

Le
jean-françois richard
Bonjour,
J'ai bricol ce petit pg afin d'incorporer des fichiers rtf d'un
rpertoire donn dans un document word.
J'aimerais pouvoir faire le mme chose pour tous les fichiers pdf et
xls du rpertoire.
Merci pour les ides.
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 _
:= _
"Requte Etat compatibilit contrat.rtf" _
, LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
"C:WINNTInstaller
{90110409-6000-11D3-8CFE-0150048383C9}wordicon.exe", _
IconIndex:=1, IconLabel:="Requte Etat compatibilit
contrat.rtf"
Selection.TypeText Text:=vbTab
Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8",
FileName _
:= _
"Requte Etat compatibilit_ot_ar.rtf" _
, LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
"C:WINNTInstaller
{90110409-6000-11D3-8CFE-0150048383C9}wordicon.exe", _
IconIndex:=1, IconLabel:="Requte Etat
compatibilit_ot_ar.rtf"
Selection.TypeText Text:=vbTab
Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8",
FileName _
:= _
"Requte Etat de la remise - seuil de remise.rtf" _
, LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
"C:WINNTInstaller
{90110409-6000-11D3-8CFE-0150048383C9}wordicon.exe", _
IconIndex:=1, IconLabel:= _
"Requte Etat de la remise - seuil de remise.rtf"
Selection.TypeText Text:=vbTab
Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8",
FileName _
:= _
"Requte Etat de la remise - trafic impact.rtf" _
, LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
"C:WINNTInstaller
{90110409-6000-11D3-8CFE-0150048383C9}wordicon.exe", _
IconIndex:=1, IconLabel:= _
"Requte Etat de la remise - trafic impact.rtf"
Selection.TypeText Text:=vbTab
Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8",
FileName _
:= _
"Requte Etat de la remise - description gnrale.rtf" _
, LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
"C:WINNTInstaller
{90110409-6000-11D3-8CFE-0150048383C9}wordicon.exe", _
IconIndex:=1, IconLabel:= _
"Requte Etat de la remise - description gnrale.rtf"
Selection.TypeText Text:=vbTab
Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8",
FileName _
:= _
"Requte Etat produit contrat et abonnement.rtf" _
, LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
"C:WINNTInstaller
{90110409-6000-11D3-8CFE-0150048383C9}wordicon.exe", _
IconIndex:=1, IconLabel:= _
"Requte Etat produit contrat et abonnement.rtf"
Selection.TypeText Text:=vbTab
Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8",
FileName _
:= _
"Requte Etat niveau_ot.rtf" _
, LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
"C:WINNTInstaller
{90110409-6000-11D3-8CFE-0150048383C9}wordicon.exe", _
IconIndex:=1, IconLabel:="Requte Etat niveau_ot.rtf"
Selection.TypeText Text:=vbTab
Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8",
FileName _
:= _
"Requte Etat configuration_ot.rtf" _
, LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
"C:WINNTInstaller
{90110409-6000-11D3-8CFE-0150048383C9}wordicon.exe", _
IconIndex:=1, IconLabel:="Requte Etat configuration_ot.rtf"
Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8",
FileName _
:= _
"Requte Etat caractristique de l'offre.rtf" _
, LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
"C:WINNTInstaller
{90110409-6000-11D3-8CFE-0150048383C9}wordicon.exe", _
IconIndex:=1, IconLabel:="Requte Etat caractristique de
l'offre.rtf"

End Sub

Rpondre Rpondre l'auteur Transfrer



Vous devez vous connecter pour pouvoir envoyer des messages.
Pour envoyer un message, vous devez dans un premier temps rejoindre ce
groupe.
Veuillez mettre jour votre pseudonyme dans la page Paramtres
d'abonnement avant de publier des messages.
Vous ne disposez pas de l'autorisation ncessaire pour publier un
message.


Geo
Afficher le profil
Autres options 30 sep, 18:42
Groupes de discussion : microsoft.public.fr.word
De : Geo <G@sans.pub>
Date : Wed, 30 Sep 2009 18:42:24 +0200
Date/heure locale : Mer 30 sep 2009 18:42
Objet : Re: automatisation
Rpondre | Rpondre l'auteur | Transfrer | Imprimer | Message
individuel | Afficher l'original | Signaler ce message | Rechercher
les messages de cet auteur
Bonjour

> [ Cette rponse est faite sur le forum public Word :
> news://msnews.microsoft.com/microsoft.public.fr.word ]
> J'ai bricol ce petit pg afin d'incorporer des fichiers rtf d'un
> rpertoire donn dans un document word.
> J'aimerais pouvoir faire le mme chose pour tous les fichiers pdf et
> xls du rpertoire.
> Merci pour les ides.

Pour balayer le contenu d'un dossier, le plus simple est la commande
Dir.
On peut le faire aussi avec fileSystemObject,
voir http://msdn.microsoft.com/fr-fr/vbasic/bb892763.aspx

Pour les icnes, on peut faire plus simple, recopiez les icnes des
diffrents logiciels dans un dossier, le code sera un peu plus lger
et
indpendant de la version de logiciel utilise.




C'est dire? je ne comprends pas :(
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Geo
Le #20282801
Réponse faite le 30/9

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