Chercher à une autre adresse

Bonjour,

Voilà mon problème, je demande à la macro d'aller chercher un document à une adresse, cependant ce document peut parfois être à une autre adresse, alors je veux simplement lui dire 'si le fichier n'est pas là alors il faut chercher là', j'imagine qu'il faut que j'utilise la fonction If, mais pour lui dire que c'est si il ne trouve pas qu'il faut qu'il cherche là je vois pas..

Donc voici la base modifié.

Salut NeedTuto

Je ne sais pas ce que vaut la cellule G1, mais si c'est une lettre de lecteur (comme je le pense)

Alors ce code pourra t'aider

' Existant
adresse = "" & Photo & ":\Conso_mcdo\4_conso_burger\1_burger_steak\" & Bob & "_" & Arthur & "\" & Nom_fichier & ""
' New
If Dir(adresse) = "" Then
  ' Si fichier non trouvé à l'adresse indiqué

End If

@+

Ok super merci je vais essayer ça, oui c'est bien une lettre.

J'étais partie sur la fonction Iferror

Au final je trouve que ça fait long pour l'utilisateur (trop d'informations à rentrer sur le parcours), je vais essayer de mettre en place une boite dans laquelle l'utilisateur copie/colle l'adresse du chemin du dossier et la macro va chercher le dossier

J'ai repris celasur internet =>

Dim dossier As Long
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
If .SelectedItems.Count > 0 Then
dossier = .SelectedItems(1)
MsgBox dossier
End If
End With

Set balance = Workbooks.Open(dossier)

Windows("hamburger").Activate....

.....

Mais j'ai un message d'erreur '13' là où j'ai surligné en rouge, ça doit pas être bien marié avec mon utilisation