[XL-365] Insérer une image dans un tableau via UserForm

Bonjour,

Il est tout à fait déconseiller d'insérer des images dans une feuille Excel. Il vaut mieux n'enregistrer que les chemins des fichiers et ouvrir ces images en partant de ces adresses. En attaché, une façon de faire dans un formulaire.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'--- il faut que la référence 'OLE Automation' soit activée
Private Sub btnSelectionImage_Click()
   Dim fPath As String
   Dim fdgPicker As FileDialog
   fPath = ThisWorkbook.Path
   '--- ouvre une fenêtre dialogue
   Set fdgPicker = Application.FileDialog(msoFileDialogFilePicker)
   With fdgPicker
      .InitialFileName = fPath
      .InitialView = msoFileDialogViewThumbnail
      .Filters.Clear
      .Filters.Add "Fichiers image (*.bmp; *.gif; *.jpg; *.jpeg)", "*.bmp;*.gif;*.jpg;*.jpeg"
      .FilterIndex = 2
      If .Show = -1 Then
         Me.txtCheminImage = .SelectedItems(1)
         Me.imgMaPhoto.Picture = loadpicture(.SelectedItems(1))
      End If
   End With
End Sub

A vous d'adapter cela à vos besoins.

Bonne continuation.