Choix d'un fichier au hasard

[Troudz]

Bonsoir tout le monde !

J'ai un userform comportant un contrôle image.
A l'ouverture de ce userform, je voudrais qu'une image aléatoire soit chargée dans ce contrôle.
Toutes les images serait stockées dans un même répertoire bien entendu.

Je pense que ça doit être possible mais je ne sais pas vraiment par quel bout prendre ce problème.

Auriez vous une petit idée ?

Je vous remercie par avance de votre aide,

Bonne soirée

 

[Modeste geedee]

Re : Choix d'un fichier au hasard

Bonsour®

Userform1.Image1.picture=Loadpicture("C:Chemin/image" & int(Rnd()*Nbimages & ".jpg"

nb:
1 - il faut renommer les images selon modele : Image1.jpg, image2.jpg etc...
2 - connaitre le chemin
3 - connaitre le nombre d'images

sinon il faudra dresser par macro une liste des images et acceder aleatoirement a un index de cette liste.

 

[tototiti2008]

Re : Choix d'un fichier au hasard

Bonsoir Troudz, Bonsoir Modeste Geedee, 🙂

Sinon, peut-être un truc comme ça

Private Sub UserForm_Initialize()
Dim Fic As String, Liste() As String, Alea As Long
    ReDim Liste(1 To 1)
    Fic = Dir("C:\Documents and Settings\All Users\Documents\Mes images\Échantillons d'images\*.jpg")
    Do Until Fic = ""
        Liste(UBound(Liste)) = Fic
        ReDim Preserve Liste(1 To UBound(Liste) + 1)
        Fic = Dir
    Loop
    Randomize
    Alea = Int(Rnd * (UBound(Liste) - 1)) + 1
    Image1.Picture = LoadPicture("C:\Documents and Settings\All Users\Documents\Mes images\Échantillons d'images\" & Liste(Alea))
End Sub

 

[Troudz]

Re : Choix d'un fichier au hasard

Merci pour votre Tototiti et Modeste !

Vu que les images proviendrons de différentes sources et que je n'aurais pas la possibilité de les renommer préalablement, je choisirais la solution de Tototiti qui fonctionne à la perfection.

Merci beaucoup pour votre aide et bonne soirée !