Bonsoir,

j'ai commencé à écrire un script pour une macro sous word et la je bloque sur un truc...
en fait j'ai besoin que le texte "PHOTOGRAPHIE N°" apparaisse au dessus de chaque images aligné a droite. ( et si possible qu'il y est une numérotation automatique de chaque images..PHOTOGRAPHIE N°1, PHOTOGRAPHIE N°2 etc)

je vous met mon début de code...en espérant que vous pussiez m'aider!
ce serait vraiment simpa de votre part!
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
30
31
32
33
34
35
36
37
38
39
40
41
 
Sub InsertionImages()
 
'Macro qui permet une insertion d'une série d'images d'un répertoire donné,
'Avec une ligne blanche entre chaque image
 
Dim Repertoire As String
Dim Extension As String
Dim Fichier As String
 
'Saisie du nom du répertoire
Repertoire = InputBox("Chemin complet du répertoire (\ à la fin)", "Répertoire", "D:\Mes images")
'Saisie du type d'extension
Extension = InputBox("Type de fichier (sans le point, ex : jpg, png, bmp)", "Type de fichier", "jpg")
 
'Récupération du premier fichier du répertoire
Fichier = Dir(Repertoire & "*" & Extension, vbDirectory)
 
Do While Fichier <> ""
    i = i + 1
    'Insertion de l'image
    Set objShape = Selection.InlineShapes.AddPicture(FileName:=Repertoire & Fichier)
    With objShape
        .LockAspectRatio = msoTrue
        If .Width > .Height Then
            .Width = 400
        Else
            .Height = 300
        End If
    End With
    'Insertion d'une ligne vide
    Selection.TypeParagraph
    Selection.TypeText Text:="PHOTOGRAPHIE N°"
    'Insertion d'une ligne vide
    Selection.TypeParagraph
    'Récupération du prochain fichier du répertoire
    Fichier = Dir
 
Loop
 
End Sub