Bonjour
j'essayer de modifier un code fait par HERDET, que je remercie
Le but est qu'il m'importe qu'une seul image selectionner et pas toutes les images
et que j'ai dans mon interface juste les images jpg-png-gif
quelqu'un peut me dire comment faire, car quand j'ajoute par exemple *.png a la suite de jpg cela m'affiche plus rien.
Par contre si je supprime j'ai toute ma liste de document, meme ce que je ne veut pas voir.
Merci d'avance
Option Explicit
Option Base 1
Private Sub BTN_Importer_Click()
Dim ii As Integer, Pic As Object
Application.ScreenUpdating = False
With Sh_Images
.Select
' suppression des objets Images de la feuille
For Each Pic In .Pictures
Pic.Delete
Next Pic
' transfert des images dans feuille Sh_Images
For ii = 1 To UBound(Temp)
Call IMAGES_Insertion(Sh_Images.Name, Temp(ii), 20 + ii * 10, 20 + ii * 10)
Next ii
Range("M2").Select
End With
Application.ScreenUpdating = True
Unload Me
MsgBox "Import des images effectué dans la feuille " & Sh_Images.Name
End Sub
Private Sub BTN_quitter_Click()
End
End Sub
Private Sub UserForm_Initialize()
Dim ii As Integer
Rep = "P:\"
LAB_Rep = Rep
' lister les fichiers .jpg, .gif
On Error GoTo ERR_REP
On Error GoTo 0
T = Dir(Rep & "\*.jpg")
' Extrait le 1er fichier
If T <> "" Then
ii = 0: Erase Temp
Do While T <> ""
ii = ii + 1: ReDim Preserve Temp(1 To ii)
Temp(ii) = T: T = Dir
Loop
LBX_fichiers.List() = Temp
End If
Exit Sub
ERR_REP:
' erreur de répertoire
On Error GoTo 0
End Sub