Bonjour
J'aimerais tester si un répertoire réseau existe ; pour cela je me sers de ce code :
Ce code marche si l'ordinateur de l'utilisateur a accès au réseau.
SI l’ordinateur n'a pas accès au serveur, au lieu de conclure que le dossier n'existe pas, j'ai une erreur sur la première ligne : "nom ou numéro de fichier incorrect".
Comment arranger ce problème ?
J'aimerais tester si un répertoire réseau existe ; pour cela je me sers de ce code :
Code:
If Dir("\\ServeurTest\User\DOSSIER", vbDirectory) = "" Then
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & " \ "
.Title = "Sélectionnez le répertoire de sauvegarde de la base de données"
.Show
Chemin = .SelectedItems(1) & "\" & "Base de données.xlsx"
End With
End If
Ce code marche si l'ordinateur de l'utilisateur a accès au réseau.
SI l’ordinateur n'a pas accès au serveur, au lieu de conclure que le dossier n'existe pas, j'ai une erreur sur la première ligne : "nom ou numéro de fichier incorrect".
Comment arranger ce problème ?