Discussion :

[bricoleur76]

Je cherche une solution pour insérer des images automatiquement dans Word.
Je ne sais pas comment faire une macro pour le faire.
Quelqu'un aruait-il une solution.

Merci

[Sepia]

Bonjour et bienvenue sur le site de DVP,

oui, on peut t'aider mais avec ta version de Word ce serait plus simple et si tu as des contraintes (noms et emplacement des images, utilisation des tableaux, insertion dans des documents existants à des positions déterminées...), il serait préférable de les avoir maintenant. En gros, qu'est-ce que tu veux ?

@+

[bricoleur76]

J'utilise Word 2002, mes images, (nomées: exp. ''XXX avec l'extention en Jpeg ou MBP) serons placées, provisoirement, dans le répertoire ''Mes Documents'' et détruites une fois le doc fait.
Pas de contraintes spéciales avec des tableaux, un texte au début de chaque page une image insérée au dessous et un texte bref expliquant l'image. Voilà pour les explications est-ce que ça va??

Merci pour votre aide

[Heureux-oli]

Salut,

Essaie ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub AjouterFichier()
Dim stFold As String
Dim oFso As FileSystemObject  'Object
Dim oFol As Folder 'Object
Dim oFil As File 'Object
'UserName est à changer par le nom de l'utilisateur
stFold = "C:\Documents and Settings\UserName\Mes documents\"
 
Set oFso = New FileSystemObject
Set oFol = oFso.getfolder(stFold)
 
For Each oFil In oFol.Files
Debug.Print oFil.Path
    If Right(oFil.Name, 3) = "bmp" Or Right(oFil.Name, 4) = "jpeg" Then
 
        Selection.InlineShapes.AddPicture FileName:= _
        oFil.Path, LinkToFile:=False, SaveWithDocument:=True
        Selection.InsertParagraphAfter
 
        Selection.EndKey unit:=wdStory
 
    End If
Next oFil
 
Set oFso = Nothing
 
 
 
End Sub

Tu dois ajouter une référence à la bibliothèque Microsoft Scripting Runtime à ton projet