Discussion :

[papy_polo67]

Bonjour,
J'ai un userform ave Nom, Chemin de l'image Image et un bouton de commande "Test"
Lorsque j'appuie sur test Vba ouvre une fenêtre de recherche pour aller dans le pc chercher une image
J'ai joint en pj une image "Taz" pour le test
Le soucis est que le chemin indiqué ne me donne pas le lien exact mais une réduction "\Images\Taz.jpg"
Comment faire pour avoir par exemple "C:\Users\Polo\Pictures\Image\Taz.jpg?
Merci

[Franc]

Bonjour, c'est parce que ton image se trouve dans une bibliothèque utilisateur et donc tu obtiens le chemin relatif.
J'ai modifié quelques lignes de ta macro et ajouté une fonction, maintenant tu auras le chemin complet.

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
40
41
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.TextBox2 = free_image
        End If
    Else
        MsgBox "Entrez un nom!"
    End If
End Function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function GetFullPath(ByVal sPath As String) As String
    ' Cette fonction renvoie le chemin complet du fichier en utilisant le chemin relatif
    GetFullPath = ThisWorkbook.Path & Application.PathSeparator & sPath
End Function

[papy_polo67]

Merci Franc ça fonctionne bien

[papy_polo67]

Rebonsoir
Cela fonctionne avec une image, mais si le choix doit se porter sur une parmis plusieur comment modifier le code?
Merci

[Invité]

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.

Bonne journée

[papy_polo67]

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


Merci de me rappeler que je ne dois pas poster sur diddérents forum......
si je le fais c'est que j'attends si possible une vraie réponse
je ne comprends pas les codes donc je me tourne vers vous
Le code qui m'a été donnée
1 ne permets pas de choisir entre plusieurs image
2 l'image ui s'affiche est toujours la même sans possibilité de la changer

Mon pb est simple mais seul je ne peux le résoudre d'ou mes différents posts.