Dim filename As String filename = "c:\fichier.ext" ' verifie si il existe dans la liste et l ajoute si c est pas le cas If mime1.Existe(filename) = False Then mime1.Add filename ' retourne le nom du programme associé aa = mime1.Item(filename).Execute ' Retourne l image associé Set Me.Picture = mime1.ImageList(filename)
Télécharger le zip
Merci pour ton contrôle.Les fichiers de la source sont un peu farfelus (certains sont vides ou ne servent pas), mais sinon dans l'utilisation, ça fonctionne à merveille !
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte