image dans usf

Option Explicit

Private Sub UserForm_Initialize()
    With Me
    .OptionButton1.Caption = 'Fichiers GIF'
    .OptionButton2.Caption = 'Fichiers JPG'
    End With
End Sub

Private Sub CommandButton1_Click()
Dim TheFile As Variant
Dim ThePath As String
Dim UserDir As String
Dim Extention As String


Extention = IIf(Me.OptionButton1 = True, '*.gif', '*.jpg')


ThePath = 'C:\\Mes Documents\\' 'a ajuster au répertoire contenant tes images

UserDir = CurDir
    On Error Resume Next 'si le path n'existe pas (non ajusté ci dessus)
        ChDir ThePath
    On Error GoTo 0

TheFile = Application.GetOpenFilename('image(' & Extention & '),' & Extention & '')
If TheFile = False Then ChDir UserDir: Exit Sub

With Me.Image1
    .Picture = LoadPicture(TheFile)
    .PictureSizeMode = fmPictureSizeModeZoom
End With

ChDir UserDir
End Sub

Cliquez pour agrandir...

Private Sub CommandButton1_Click()
Dim ThePath As String
Dim UserDir As String
Dim Extention As String

Extention = '.GIF'

ChangeExtention:

ThePath = 'C:\Mes Documents\' & Me.ComboBox1 & Extention

With Me.Image1
    On Error GoTo ErrorHandler
    .Picture = LoadPicture(ThePath)
    .PictureSizeMode = fmPictureSizeModeZoom
End With

Exit Sub
ErrorHandler:
If Err = 53 Then Extention = '.JPG': GoTo ChangeExtention

End Sub

Cliquez pour agrandir...

Private Sub CommandButton1_Click()
Dim ThePath As String
Dim UserDir As String
Dim Fso As Object

Set Fso = CreateObject('Scripting.FileSystemObject')

ThePath = 'C:\Mes Documents\' & Me.ComboBox1 & '.gif'

          If Fso.FileExists(ThePath) = False Then
          ThePath = 'C:\Mes Documents\' & Me.ComboBox1 & '.jpg'
          End If

With Me.Image1
    .Picture = LoadPicture(ThePath)
    .PictureSizeMode = fmPictureSizeModeZoom
End With

End Sub

Cliquez pour agrandir...

Sub ListFichiers()
Dim ThisBookPath As String
Dim SearchFile As FileSearch
Dim ThePath As String
Dim i As Integer


Set SearchFile = Application.FileSearch
ThePath = 'C:\Mes documents\' '

    With SearchFile
        .NewSearch
        '.Filename = '*.*' 'ICI
        .LookIn = ThePath
        .SearchSubFolders = False
        .Execute msoSortByFileName, msoSortOrderAscending
            If .Execute > 0 Then
                With .FoundFiles
                    For i = 1 To .Count
                        Cells(i, 1) = Dir(.Item(i))
                    Next i
                End With
            Else
            MsgBox 'No File Found ' & ThePath
            End If
    End With
Set SearchFile = Nothing
End Sub

Cliquez pour agrandir...