Discussion :

[papy_polo67]

Bonjour
Avec ce code je voudrais pouvoir choisir parmais plusieurs images dans un dossier "Image"
J'ai essayé avec le code mais l'image affichée est la même que celle choisie la première fois que j'ai utilisé ce code
Ex j'a ouvert l'image 1 et bien si je veux choisir et afficher l'image 3 c'est l'image 1 qui reste affichée.
Pourriez vous m'aider et me dire comment faire?
Existe t'il un dictionnaire pour pouvoir déchiffre les lignes qui compose ce code?
Merci

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
'Insèrer une image dans la base de donnée depuis l'ordinateur "Ilmage1"
Function insert_picture_to_database()
On Error Resume Next
If TextBox1 <> "" Then
Dim imgSourcePath As String
Dim imgDestination As String
Dim free_image As String
Dim GetImagePath As String
Dim strFolder As String
 
' Utilisez la boîte de dialogue de recherche de fichier
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Filters.Add "Images", "*.gif;*.jpg;*.jpeg;*.png;*.GIF;*.JPG;*.JPEG;*.PNG"
If .Show <> 0 Then
GetImagePath = .SelectedItems(1)
End If
End With
 
' Assurez-vous que l'utilisateur a sélectionné un fichier
If GetImagePath <> "" Then
' Obtenir le chemin complet du fichier
imgSourcePath = GetFullPath(GetImagePath)
strFolder = ThisWorkbook.Path & Application.PathSeparator & "Images"
If Dir(strFolder, vbDirectory) = "" Then
MkDir strFolder
End If
 
imgDestination = ThisWorkbook.Path & "\Images\" & UserForm1.TextBox1 & "." & Split(imgSourcePath, ".")(UBound(Split(imgSourcePath, ".")))
FileCopy imgSourcePath, imgDestination
UserForm1.Image1.PictureSizeMode = fmPictureSizeModeZoom
UserForm1.Image1.Picture = LoadPicture(imgDestination)
free_image = imgSourcePath
Me.TextBox20 = free_image
End If
Else
MsgBox "Entrez un nom!"
End If
End Function

[umfred]

d'après ce sujet https://www.developpez.net/forums/d1...control-image/,
il te manque un Repaint de l'Userform (UserForm1.Repaint)