Aide pour un code

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

'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

Edit modo : code à mettre entre balises avec le bouton </> merci d'y faire attention la prochaine fois

Bonjour Polo67 ou devrais--je dire PoloTaz67

Je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER] et notamment :

• Ne postez pas la même question sur un autre forum pour éviter de faire perdre bêtement du temps aux membres sur un problème qui peut être déjà résolu sur l'autre forum. L'inverse est également valable, si vous avez déjà posé votre question sur un autre forum, ne créez pas un doublon sur ce forum (à moins d'avoir clôturé le sujet sur l'autre forum).

Je clôture donc le sujet ici

Merci de votre compréhension et de votre participation