pb nom de fichier pour inserer image dans userform

[jf27]

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
*************************************

 

[tototiti2008]

Re : pb nom de fichier pour inserer image dans userform

Bonjour jf27,

pourquoi Mid(FileImg, 2, 50) dans
LoadPicture(Mid(FileImg, 2, 50)) ?
ça te limite à 49 caractères dans l'adresse du fichier

 

[jf27]

Re : pb nom de fichier pour inserer image dans userform

comme d'hab c tout bete !

Merci