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
merci d'avance pour votre aide
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
Partager