Excel ->inserer une image dans une cellule

[Résolu]
Signaler
Messages postés
65
Date d'inscription
samedi 25 janvier 2003
Statut
Membre
Dernière intervention
5 novembre 2008
-
Messages postés
132
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
11 mai 2010
-
Bonjour,
et avt tout merci de lire!
donc mon soucis ce de mettre une image dans un document excel a partir de visual basic 6
donc ce quelqu"un a une idee ->ce cool!

1 réponse

Messages postés
132
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
11 mai 2010

Bonjour,

Vous pouvez vous inspirer du code ci-dessous qui insère une image
dont le nom est basé sur le contenu d'une cellule :

For Compteur = 5 To 116
Range("D" & Compteur).Select
ValCellu = ActiveCell.Value
If ValCellu > "000" Then
Image = Application.ActiveWorkbook.Path & "\Catalogue\Forme" & ValCellu & ".GIF"
Range("Y" & Compteur).Select
ActiveSheet.Pictures.Insert(Image).Select
End If
Next Compteur

Bon(ne) courage, développement, salutation...
(choisissez ce qui vous convient) dp
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci