pb nom de fichier pour inserer image dans userform

jf27

XLDnaute Occasionnel
bonjour

j'ai un userform où j'insère une image.
Ca marche bien si le chemin d'accès n'est pas trop long pour l'image.

Par exemple si le fichier image est sur mon bureau cela marche, s'il est dans mes documents , j'ai l'erreur "fichier introuvable"

Par avance merci aux pros !
jf 27
Extrait du code
*************************************************
Private Sub ButtonLoadPicture_Click()
FileImg = FileOpen("Choisir le fichier", , "Image", "*.jpg;*.gif")
Me.ImageAbstract.Picture = LoadPicture(Mid(FileImg, 2, 50))
End Sub

Function FileOpen(Optional ByVal sTitle As String = "Choisir le(s) fichier(s)", Optional ByVal bAllowMultiSelect As Boolean = True, Optional ByVal sFiltreName As String = "Images", Optional ByVal sFiltreContent As String = "*.bmp; *.gif; *.jpg; *.jpeg; *.png") As String
' CHOIX D'UN FICHIER PAR VBA

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
.Title = sTitle 'Titre
.AllowMultiSelect = False 'bAllowMultiSelect=Choix multiples
.Filters.Add sFiltreName, sFiltreContent, 1 'Filtre image
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
FileOpen = Trim(FileOpen & "|" & vrtSelectedItem)
Next vrtSelectedItem
Else
'Bouton Annuler
End If
End With
Set fd = Nothing
End Function
*************************************
 

Discussions similaires

Réponses
1
Affichages
404
Compte Supprimé 979
C

Statistiques des forums

Discussions
314 422
Messages
2 109 447
Membres
110 482
dernier inscrit
ilyxxxh