Variable définissant le chemin d'accès

Bonjour,

Sub Demande_Numero_Dossier()
Dim Numero_Dossier
Dim Chemin_Dossier As String * 39

' 1 2 3 3
' 123456789012345678901234567890123456789
Chemin_Dossier = "D:\Dossier X\Sous-dossier X\Dossier XXX"

Numero_Dossier = InputBox("Entrez votre numero de DOSSIER: ")

'test Numero dossier
' ajouter le code pour valider la saisie du numero de dossier

Mid(Chemin_Dossier, 12, 1) = Numero_Dossier
Mid(Chemin_Dossier, 27, 1) = Numero_Dossier
Mid(Chemin_Dossier, 37, 3) = Numero_Dossier

End Sub

Dossier 1 à 9
'-> Dossier 101 à 199
'-> Dossier 201 à 299
'-> Dossier 901 à 999

Normalement vous n'avez pas besoin du Sous-dossier.

Essayez si cela vous convient

Bonne continuation

Bonjour,
Une idée ?

Sub OuvreFich() 
Dim Fichier As String 
Dim CH As String 
    CH = InputBox("Entrez le numéro du dossier") 
    Fichier = "C:\Dossier 1\Sous-dossier 1\Dossier " & CH & ".ext" 
End Sub

ext pour Extention à adapter.
A+
L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

Merci de vos réponse.

Je ne connais pas trop les macro Access.

Je vais essayé d'être plus précis.

En fait j'ai créer une macro sans passer par des lignes de code.

La macro importe des données depuis un chemin d'accès et exporte d'autres données vers ce même chemin. L'idée est de créer une boîte qui s'ouvre en demandant le nouveau chemin d'accès (ou une partie seulement de ce chemin d'accès). La question est donc comment intégrer cette variable dans les lignes présentes dans la macro (sans les lignes de codes si possible).

Merci à tous

Sans ligne de code c'est pas possible ????