Problème avec une Boite de dialogue

Bonjour,

Voici mon problème, que je ne comprend pas accessoirement.
Le code si dessous sert à ouvrir un a un des répertoires contenant des données dans le but de les traiter. Cependant, c'est la que ca devient bizarre, il fonctionne très bien ! Mais pas la permière fois. Lorsque que j'allume mon ordi je dois obligatoirement enlever les ' devant retval afin d'ouvrir la boite de dialogue (que je quitte directe). Sans ca, je peux faire ce que je veux mais le programme me fait une erreur "Fichier introuvable" alors qu'il est ouvert (ouai il est con des fois).

Donc pour résumer : si je montre pas le chemin en "Hard" avec la boite de dialogue lors de l'allumage de l'ordinateur, ma macro bug. Mais une fois que cela a été fait, plus de problème ! plus besoin d'avoir cette boite. POURQUOI ????
Si quelqu'un peut m'expliquer ca serait niquel :-)
merci beaucoup !

For i = 0 To 8

'Définition du chemin à tester - PERMET DE PAS FAIRE BUGER LA MACRO SUIVANTE
Dim RetVal As Boolean

CheminOpen = CheminMachine(i)
CheminOpenData = CheminOpen & "\*."
ChDir (CheminOpen)

'RetVal = Application.Dialogs(xlDialogOpen).Show(CheminOpenData) 'ouverture de la boite de dialogue
'If RetVal = True Then Exit Sub 'si "annulé" est pressé parce que le chemin est correct, alors on continue
'Y a t'il des fichiers à déplacer ?


Dim objOFS As Variant
Set objOFS = CreateObject("Scripting.FileSystemObject")

'Test si au moins un fichier present
If Dir(CheminOpenData) <> "" Then

fichier = Dir(CheminOpenData)
...