Bonjour,
j'ai un UserForm, dans lequel j'ai un composant Image.
Je voudrais pouvoir changer cette image de manière définitive par l'intermediaire d'un code.
J'arrive à changer l'image mais une fois l'application fermée, l'image disparait...
Comment faire pour ancrer l'image dans le composant?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Dim Chemin As String Chemin = OuvrirUnFichier(Application.Hwnd, "Parcourir", 1, "Fichier bitmap", "bmp", "C:\") 'OuvrirUnFichier = Utilisation API pour afficher la fenetre OUVRIR Fichier If Len(Chemin) > 0 Then Image1.Picture = LoadPicture(Chemin) End If
Partager