Merci à tous pour avoir pris le temps de me répondre.
Désolée, j'aurais dû mettre plus de détails.
Les voici:
La ligne qui bloque est :
For Each Filename In Directory.Files
Quand je regarde dans la fenêtre des variables, Directory est vide. Je pense donc que pour une raison ou une autre la ligne précédente de fonctionne pas:
Set Directory = FSO.GetFolder(ServerShare)
Le message d'erreur sur mon ordinateur est : Erreur d'exécution 70, permission refusée. Pourtant j'ai bel et bien accès à ce dossier: je peux l'ouvrir et enregistrer des fichiers dedans. J'ai aussi demandé à un collègue d'essayer le code de son ordinateur parce que c'est ce que j'essaie de faire: donner accès à un dossier partagé sur un réseau à quelqu'un qui n'a pas accès en utilisant mon nom d'utilisateur et mon mot de passe. J'ai accès au dossier partagé sans utiliser de mot de passe: j'utilise mon nom d'utilisateur et mon mot de passe seulement pour entrer dans mon poste de travail, mais une fois ceci fait, j'ai l'accès direct sans mot de passe au dossier partagé. Par contre, les autres utilisateurs n'ont pas l'accès et on aimerait ne pas leur donner accès au dossier en entier, mais seulement à la base de données en passant par le code. De l'ordinateur de mon collègue, le message d'erreur est : Erreur d'exécution -2147024843 (80070035): The network path was not found.
clementmarcotte: suite à ton commentaire, j'ai changé le type des variables en variant au lieu de Object.
rdurupt : j'ai mis ton code dans ma macro et la variable l prend la valeur "E:" dans la fenêtre de variables. Je ne comprends pas parce que la lettre associée à mon dossier est "G:" et je suis sûre d'avoir bien écrit la variable ServerShare.
Partager