XL 2019 Aide pour un code

[PoloTaz67]

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

 

[Compte Supprimé 979]

Bonjour,

J'ai remarqué que vous avez posté votre message sur un autre forum Excel.

La pratique du cross posting est très mal perçue sur Internet car les membres qui vont passer du temps sur votre problème risquent de le faire pour rien si vous obtenez une réponse par ailleurs dont ils n'ont pas connaissance.

Merci de choisir un forum pour votre question et de supprimer votre message dans un des forums concernés.

Profitez en pour relire la charte dans laquelle il est expliqué que cette pratique n'est pas admise sur XLD.

Bonne journée