bonjour à tous
je vous sollicite car je n'ai pas réussi a trouver la solution à mon problème/
afin de faciliter l'implantation de mon fichier sur différents sites je souhaiterais pouvoir donner la possibilité aux utilisateurs de modifier la variable chemin sans qu'il puisse toutefois accéder au code ( par l'intermédiaire d'une box ?)
quelqu'un peut 'il m'aider à résoudre

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub initialiser()
Dim fso As Object, x, y, z As Boolean
Dim chemin As Variant
chemin = "N:\documents\"   'c'est ici que devrait s'opérer le choix
Set fso = CreateObject("Scripting.FileSystemObject")
x = fso.FileExists(chemin & "Export1.xls")
y = fso.FileExists(chemin & "Export2.xls")
z = fso.FileExists(chemin & "Export3.xls")
If x = False Then MsgBox " Le fichier Export1 n'est pas présent dans " & chemin & Chr(10) & Chr(10) & _
"Veuillez le rajouter et recommencer la procédure"
If x = False Then Exit Sub
If y = False Then MsgBox " Le fichier Export2 n'est pas présent dans " & chemin & Chr(10) & Chr(10) & _
"Veuillez le rajouter et recommencer la procédure"
If y = False Then Exit Sub
If z = False Then MsgBox " Le fichier Export3 n'est pas présent dans " & chemin & Chr(10) & Chr(10) & _
"Veuillez le rajouter et recommencer la procédure"
If z = False Then Exit Sub
merci d'avance pour votre aide