bonjour à tous
une macro me permet de valider une adresse mail à travers une requête sur un site internet
le site - en réponse à la requête -envoie une image (icone type png)
en faisant une boucle sur la colonne contenant les adresses mail, j'obtiens dans la colonne en regard, une icone indiquant la validité de l'adresse
Range("b1").Activate
Do Until ActiveCell<> ""
fich = "URL du site" & ActiveCell.Offset(0, -1).Value
Set Sh = Worksheets("Feuil1").Shapes.AddShape(msoShapeRectangle, 20, 40, 10, 10)
Sh.Fill.UserPicture fich
ActiveCell.Offset(1).Activate
Loop
en fait j'insère l'image dans une forme rectangulaire
je voudrais pouvoir trier mes lignes d'adresses (en colonne A) en fonction de l'icone affichée en colonne B
Et là je sèche ! comment comparer des images qui n'ont pas de nom et qui ne font que transiter par le presse-papier
si quelqu'un a une idée, je suis preneur
)
claude
une macro me permet de valider une adresse mail à travers une requête sur un site internet
le site - en réponse à la requête -envoie une image (icone type png)
en faisant une boucle sur la colonne contenant les adresses mail, j'obtiens dans la colonne en regard, une icone indiquant la validité de l'adresse
Range("b1").Activate
Do Until ActiveCell<> ""
fich = "URL du site" & ActiveCell.Offset(0, -1).Value
Set Sh = Worksheets("Feuil1").Shapes.AddShape(msoShapeRectangle, 20, 40, 10, 10)
Sh.Fill.UserPicture fich
ActiveCell.Offset(1).Activate
Loop
en fait j'insère l'image dans une forme rectangulaire
je voudrais pouvoir trier mes lignes d'adresses (en colonne A) en fonction de l'icone affichée en colonne B
Et là je sèche ! comment comparer des images qui n'ont pas de nom et qui ne font que transiter par le presse-papier
si quelqu'un a une idée, je suis preneur
) claude
