Tester si fichier existe avant de

Bonjour,

La valeur de ma cellule A1 est le résultat d'une RECHERCHEV.

Elle me donne par exemple sous forme texte 0001234.

Avec cette valeur je souhaiterais pouvoir insérer la photo 0001234.jpg qui se trouve dans un répertoire du style C:/Mes Documents/Marky 93/Photos/Boite.

Le pb survient lorsque je n'ai pas de photo dans mon répertoire et le débogueur se met en route.

Donc, je souhaiterais savoir comment dire à ma macro :

Si le fichier 0001234.jpg n'existe pas alors msgbox ("La photo de la boite référence 0001234 n'existe pas).

Merci beaucoup pour votre aide, en espérant avoir été clair dans ma demande.

Bonsoir

peux tu envoyer un fichier exemple?

cordialement

Salut le forum

Pas besoin de fichier

Option Explicit

Public Function Fichier_Existe(Path As String) As Boolean
If Dir(Path) = "" Then
    Fichier_Existe = False
Else
    Fichier_Existe = True
End If
End Function

Sub test()
Dim Existe As Boolean
Existe = Fichier_Existe("C:\Mes Documents\Marky 93\Photos\Boite\" & "0001234.jpg")
If Not Existe Then MsgBox "Pas d'image de trouveé":Exit sub
'Suite du traitement du code
End Sub

Il suffit de vérifier si Existe est Vrai ou Faux (True or False)

Séparateur de dossier à adapter (\ ou /)

Mytå

Bah ça marche du premier coup... je suis épaté et je me dis que j'ai encore du chemin à faire pour maitriser le VB...

Un grand merci à vous Myta.

A bientôt

Re le forum

Marky38, n'oublie pas cette petite formalité

• Dès que votre problème est résolu, merci de le marquer en tant que [Résolu]
  grâce à l'utilitaire se trouvant en bas de page, aperçu :

Mytå

Oui exact Myta, rectification faite.

Merci encore