Discussion :

[Genesis24]

Bonjour,
J'ai crée un bouton de commande et je voudrais qu'il aille chercher une image (jpg) se trouvant sur le disque dur mais j'ai arrêté de pratiquer le VBA depuis 3 ans et je suis quelque peu rouillée!
Pouvez-vous m'aider?
Merci

[BlueMonkey]

Bonsoir,

Si le nom et le fichier contenant l'image à insérer sont connus, tu peux le faire avec

Code :

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

   ActiveDocument.InlineShapes.AddPicture FileName:= <nom de fichier image> , LinkToFile:=False, SaveWithDocument:=True

Si tu veux choisir le(s) fichier(s) image(s) depuis une boîte de dialogue :

Code :

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

1
2
3
4
5
6
7
8
9
10
    Dim ImgFile As Variant
 
    With Application.FileDialog(msoFileDialogFilePicker)
        .Filters.Add "Images", "*.png;*.bmp;*.jpg;*.jpeg;*.gif", 1
        If .Show = -1 Then
            For Each ImgFile In .SelectedItems
                ActiveDocument.InlineShapes.AddPicture FileName:=ImgFile, LinkToFile:=False, SaveWithDocument:=True
            Next ImgFile
        End If
    End With

[Edit] Merci Sepia pour la correction grammaticale

[Genesis24]

Merci beaucoup.
En voyant la ligne de code ça m'est revenue et cela fonctionne super!
Encore merci.
Bonne journée