bonjour,
Je documente un userform avec des images en cliquant sur un bouton loadphoto.
j'ai une erreur de compli sur FileImg, Projet ou bibliothèque introuvable???
merci de votre aide
voici le code
Private Sub loadPhoto2_Click()
FileImg = FileOpen("Choisir le fichier", , "Image", "*.jpg;*.gif")
Me.photo2.Picture = LoadPicture(Mid(FileImg, 2, 200))
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
Je documente un userform avec des images en cliquant sur un bouton loadphoto.
j'ai une erreur de compli sur FileImg, Projet ou bibliothèque introuvable???
merci de votre aide
voici le code
Private Sub loadPhoto2_Click()
FileImg = FileOpen("Choisir le fichier", , "Image", "*.jpg;*.gif")
Me.photo2.Picture = LoadPicture(Mid(FileImg, 2, 200))
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
