VBA test si image
D
Bonjour
j'effectue des récupérations de données dans des fichiers et ensuite des comparaisons en vue d'update.
tout cela fonctionne bien semble t'il et j'aimerais désormais pouvoir verifier la présence de Image1 et Image 2 et si présentes toutes les 2 alors indiquer un retour en "Y" pour yes dans mon fichier de suivi (signé + contre-signature)
Aussi comment procéder pour effectuer cette double vérification d'image ?
j'ai ce code mais voudrais spécifier image1 et image2 uniquement.
merci par avance
set wb = Workbooks.Open(Dossier & fichier & ".xlsm")
get_nb_onglet = wb.Sheets.Count - 3
For Each Ma_Forme In wb.Worksheets("TOTAL").Shapes
If Ma_Forme Is Nothing Then
MsgBox "aucunes images"
Else
MsgBox "images présentes"
End If
Next Ma_Forme3
Bonjour,
Voici un essai avec une fonction qui retourne vrai si toutes les images, dont le nom est renseigné en argument, sont trouvées et faux sinon :
with Workbooks.Open(Dossier & fichier & ".xlsm")
if ShapesExist(.worksheets("TOTAL"), "Image 1", "Image 2") then msgbox "Y" else msgbox "Oups"
end with
function ShapesExist(Feuille as worksheet, paramarray Noms()) as boolean
on error resume next
for each elem in Noms
v = Feuille.shapes(elem).id: if err.number <> 0 then exit function
next elem
ShapesExist = true
end functionCela permet de vérifier 1 image comme 10.
Cdlt,
D
Merci 3GB cela fonctionne parfaitement
bonne journée