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)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.