VBA : ouvrir avec répertoire par défaut

Bonjour,

Mon fichier Excel utilise des macros VBA. Dans l'une d'entre elles, je voudrai permettre à l'utilisateur de pouvoir aller chercher un fichier à l'aide d'un bouton "parcourir" se trouvant dans un Userform ...

Mon bouton parcourir se nomme "parcourir_excel" ...

Private Sub parcourir_excel_Click() 
    If excel.Enabled = True Then 
        ChDir "C:\Users\" & (Environ("UserName")) & "\Links\Collaboratifs\Mon Departement APC - APC SUIVI DES CONTROLES" 
   
        FileToOpen = Application.GetOpenFilename("Fichiers Excel(*.xls),*.xls,Fichiers Excel 2007(*.xlsx),*.xls,Tous les fichiers(*.*),*.*", 1, "Choisir le fichier à ouvrir") 
        
 If FileToOpen = False Then 
            Exit Sub 
        Else 
            excel.Text = Dir(FileToOpen) 'excel : champs texte récupérant la valeur du parcourir 
        End If 
    End If 
End Sub 

Ce code marche très bien si je veux aller dans le répertoire "Mon Departement APC - APC ...", mais malheureusement, je souhaite aller ensuite dans "Travaux Moi/Exports", et là, plantage ...

Pour information, quand j'utilise une fenêtre classique de Windows Explorer, je trouve cette adresse pour Mon Departement APC ... :
C:\Users\A3305201\Links\Collaboratifs\Mon Departement APC - APC SUIVI DES CONTROLES

Par contre, dès que je vais dans le dossier d'après, j'ai :
\\fsapcdpr\departements\APC SUIVI DES CONTROLES\Travaux Moi

L'origine du bug doit venir de là, mais savez vous pourquoi et pouvez-vous m'aider ??

Je vous remercie par avance et vous souhaite une bonne soirée,

Lucas