Eviter un bug Excel VBA pour insertion auto d'images

Bonjour à tous.

J'aui créé une ligne de code VBA qui me permet d'insérer une image en fonction de la valeur qui se situe dans la cellule J1. Je vais chercher les photos sur un chemin qui ne change pas. Le titre des images est toujours le même, et est exactement identique à la valeur de la cellule J1.

Le code ci dessous représente ce fonctionnement :

Dim Fichier As String

MsgBox ("La photo a été importée.")

Mais le problème est que je n'ai pas d'image pour toutes les valeurs que peut prendre J1. Je souhaite donc insérer une fonction IF qui teste la présence d'une photo dans le dossier de destination.

J'ai penser tester avec des fonction du style IF EXISTS (Chemin de la photo) ou IF ISERROR (Insertion de la photo) Mais aucune de ces deux fonctions ne fonctionne. A moins que je n'ai pas construit mon code correctement.

Si quelqu'un a une solution pour tester la présence d'une photo correspondante, je suis preneur.

Merci d'avance.

Onafe.

bonjour, a tester avec la fontion DIR :

exemple :

rep = Dir("C:\WINDOWS\TOTO.INI")

renvoie "TOTO.INI" s'il existe ou "" s'il n'existe pas

si cela fonctionne faire ensuite un

Dim Fichier As String
Fichier = "D:\Documents\Divers\" & Range("J1").Value & ".jpg"
if Dir(Fichier ) <> "" then
Sheets("fiche de renseignement").Pictures.Insert Fichier
MsgBox ("La photo a été importée.")
end if

fred

Super, ça marche !

Merci beaucoup !