Microsoft 365 [résolu] VBA - insertion d'image

[garth_algar]

Bonjour à toutes et à tous,
Je suis en train de créer une macro VBA pour générer un trombinoscope à partir d'une liste. J'en suis à la phase d'intégration des photos, et je me suis aidé de l'enregistreur de macro pour obtenir le code suivant :

    Range("A1").Select
    ActiveSheet.Pictures.Insert( "C:\...\Nom_Prenom.jpg").Select

Dans l'idéal, pour éviter de créer une image blanche pour toutes les personnes dont je n'ai pas la photo, j'aimerais appliquer ce code uniquement lorsque la photo existe, car si ce n'est pas le cas j'ai le message d'erreur "impossible de lire la propriété Insert". Est-ce qu'il existerait un moyen pour identifier si le fichier existe ou non ?
Quand j'essaye un import via Excel, j'ai un message qui me dit que le fichier est introuvable, mais l'enregistreur de macro ne me fournit rien.
Merci d'avance pour vos réponses
JB

 

[vgendron]

bonjour
avant de l'insérer, il suffit de tester si le fichier existe avec la fonction Dir(NomcompletFichier)

 

[kiki29]

Salut, à titre d'infos voir Créer un organigramme et un trombinoscope dans Excel

 

[garth_algar]

bonjour
avant de l'insérer, il suffit de tester si le fichier existe avec la fonction Dir(NomcompletFichier)

Merci beaucoup, c'est exactement ce que je cherchais !