affichage image

[angoul]

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

 

[Aimo Rauidos dit AieAie]

Re : affichage image

jemettrais une condition Or pour ajouter *.gif dans la valeur de T ca devrait marcher bien. Cordialement.



"la constipacion no es tu amigo"

 

[Iznogood1]

Re : affichage image

Bonjour,

Renseigne-toi sur les caractères génériques de la commande DIR.
Il n'y a pas de moyen simple en utilisant cette commande : fais une boucle pour chaque type d'extension

Autre solution : utilise scripting.filesystemobject pour construire la liste qui te convient