Image sous excel

flabrousse Messages postés 12 Date d'inscription jeudi 19 janvier 2006 Statut Membre Dernière intervention 22 mai 2006 - 22 mai 2006 à 11:44
michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 - 26 mai 2006 à 17:36
Bonjour,
 
J'aurais besoin de vos lumières.

La situation est la suivante: J'aimerai créer une macro pour Excel qui quand je l'execute 
   -   ouvre une fenetre avec une image dont le chamin est connu et le nom de l'image figure est dans la case A1.
   -   Dans cette fentre j'aimerai qu'il y ai un bouton fermer qui quand on clique dessus ferme la fenetre

Voila si vous pouvais m'éclairer sur un des points suivant faites moi signe.

1 réponse

michelxld Messages postés 402 Date d'inscription vendredi 6 août 2004 Statut Membre Dernière intervention 12 octobre 2008 32
26 mai 2006 à 17:36
bonjour






Tu crées un Userform dans ton Classeur et tu y places un objet CommandButton et un objet Image (nommé Image1)


Ensuite ajoute cette macro qui va charger l'image lors de l'affichage du UserForm




Private Sub UserForm_Initialize()
Dim Fichier As String
Fichier = "C:\Documents and Settings\michel\dossier" & Range("A1")
Image1.Picture = LoadPicture(Fichier)
End Sub


Private Sub CommandButton1_Click()
Unload Me 'ferme l'UserForm
End Sub


 


Dans la cellule A1 , tu indiques le nom du fichier ( par exemple monImage.jpg )


 


Dans ta feuille de calcul tu inséres un CommandButton qui va permettre d'afficher l'UserForm


Private Sub CommandButton1_Click()
UserForm1.Show
End Sub


 


bonne soiree
michel
0
Rejoignez-nous