Discussion :

[dubdub87000]

Bonjour je viens vers vous car j'ai plusieurs question et je n'arrive pas à trouver la solution sur Internet je viens de créer un UserForm qui permet de pouvoir enregistrer les tableaux que je réalise dans un tableau de référence :

nom, prénom, titre du tableau, dimension, photo

Voici ma première question d'une part est-il possible de réaliser cela et si oui y a-t-il un tutoriel ou autre qui pourrait m'aider s'il vous plaît.

Et ma seconde question est comment je peux aller chercher le la photo dans un dossier ou un autre dossier et comment je peux l'intégrer à la ligne

En vous remerciant.Répertoire des tableaux 1.0.2.xlsm

[EricDgn]

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 :

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
'--- 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.