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
Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8",
FileName _
:= _
"Requête 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:= _
"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:WINNTInstaller
{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:WINNTInstaller
{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:WINNTInstaller
{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:WINNTInstaller
{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:WINNTInstaller
{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:WINNTInstaller
{90110409-6000-11D3-8CFE-0150048383C9}wordicon.exe", _
IconIndex:=1, IconLabel:="Requête Etat caractéristique de
l'offre.rtf"

End Sub

Répondre Répondre à l'auteur Transférer



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 Paramètres
d'abonnement avant de publier des messages.
Vous ne disposez pas de l'autorisation nécessaire 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
Répondre | Répondre à l'auteur | Transférer | Imprimer | Message
individuel | Afficher l'original | Signaler ce message | Rechercher
les messages de cet auteur
Bonjour

> [ Cette réponse 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
> 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.

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 icônes, on peut faire plus simple, recopiez les icônes des
différents logiciels dans un dossier, le code sera un peu plus léger
et
indépendant de la version de logiciel utilisée.




C'est à dire? je ne comprends pas :(
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 #20282801
Réponse faite le 30/9

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