Dir ne marche pas en lecture cellule

Bonjour,

Pourriez vous m'expliquer pourquoi j'ai une erreur "Nom ou numéro de fichier incorrect"

Dossier = Sheets("Options").Range("C5").Value
Fichier = Dir(Dossier)

Dans l'onglet options en C5 j'ai : C:\Users\NomDeMaSession\Desktop\

Je sais que si je fait de cette manière ça va marcher

Dossier = " C:\Users\NomDeMaSession\Desktop\"
Fichier = Dir(Dossier)

Le problème est que les personnes qui vont utiliser ma macro vont devoir éditer le programme pour y mettre leur lien.

Bonjour, Cette syntaxe est normale et ne plante pas. Ou alors donne-nous le code d'erreur.

En fait, que veux-tu faire exactement ? Savoir si le dossier existe ?

Si c'est le cas : If Dir(Dossier, vbDirectory) <> "" Then bla...bla...bla.

Je veux simplement importer un fichier

1) je connais les 4 premières lettres du fichier mais pas le reste excepté l'extension qui est xlsx

Mais avant toute chose je veux voir si il existe dans un dossier qui n'est pas dans le même dossier de ma macro

Voici l'erreur :

Bigreee

Je viens de trouver, mais je n'ai pas compris la différence

J'ai remis le lien dans la cellule :Sheets("Options").Range("C5").Value

Et maintenant ça marche ... Il y a des jours comme ça ...

Du coup je montre une partie de ma source au cas ou cela pourrait servir à quelqu'un

' en C5 j'ai le lien avec \ à la fin
' en I16 j'ai le début du nom du fichier, exemple :"Aze"
Dossier = Sheets("Options").Range("C5").Value & UCase(Sheets("Accueil").Range("I16").Value) & "*" 
Fichier = Dir(Dossier)
MsgBox Fichier

Le Msgbox me renvoi donc : Azerty.xlsx

Voilà ....

Essaye ceci :

Dossier = Sheets("Options").Range("C5").Value
Fichier = Dossier & "\" & "hora*.xlsx"
MsgBox Dir(Fichier)

Remplace hora par tes 4 caractères. Tu es sous Windows ou Mac/OS ?

Merci Optimix, problème résolu (voir plus haut), tu as surement mis ton message en même temps que moi

Effectivement, bonne continuation.