Discussion :

[hunter001]

Bonjour,

j'ai une macro vba sous excel qui accède a des fichier excel depuis un lecteur réseau.

pour cela on utilise la fonction Workbooks.Open, mais derrière on a un message d'erreur :
Num err : 1004
Descr : La méthode 'Open' de l'objet 'Workbooks' a échoué.

Si je met un fichier en local ca fonctionne.

Savez-vous comment corriger ce problème afin d'avoir accès au fichier réseau ?
est-ce possible ?
merci d'avance

[joe.levrai]

Bonjour,

tu parles de "on", j'en déduis que vous êtes plusieurs à utiliser la macro.

Cela plante pour tout le monde ? Peut-on avoir un aperçu du code ?

Le cas le plus récurrent provient d'une différence des "Lettres" qui désignent le lecteur réseau, entre les divers poste de travail.

[hunter001]

Je dis on, car on est 2 à développer.

Le code est tout simple, on pointe sur le lecteur S qui est bien mappé et accessible par l'utilisateur en question.

D'ailleurs si on ouvre excel avec le lien mis dans la commande, ca marche.
c'est uniquement dans la macro que ca ne marche pas


voici le code qui n'est pas très parlant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
   On Error Resume Next
    Err.Clear
    Application.Workbooks.Open StrChemin
    If (Err.Number <> 0) Then
        MsgBox "Num err : " & Err.Number & vbCrLf & "Descr : " & Err.Description & vbCrLf & "Chemin : " & StrChemin
        'MsgBox Err.Description
        Call EcrireEventViewer("Le fichier " & StrChemin & " contenant des données à importer n'a pu être chargé", "Procedure :  ProcImporteExterne( Collection , Integer , Integer ) Erreur:" & Err.Description, 2)
 
    ....
    end if

Le strchemin est une concaténation, mais le msgbox nous révèle que celui est correct.

[hunter001]

bon j'ai avancé un peu dans mon investigation. a savoir :
J'ai exécuter ce code sur mon poste et ca fonctionne.

donc le problème vient vraisemblablement d'un droit d'accès.

La personne qui lance cette macro a accès au répertoire en question.
mais a priori la macro n'y accède pas.

Est-ce qu'il y a des options particulières qui bloquent ce genre d'accès depuis une macro ?

[joe.levrai]

a-t-il bien accès au répertoire en "écriture" et pas en "lecture seule" ?

tu peux voir tout de suite si c'est le problème en effectuant une ouverture en lecture seule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Application.Workbooks.Open StrChemin, , True

mais je n'y crois pas vraiment

[Invité]

Bonsoir,
Tu ne le précise pas, car ça va sens dire mais ça va mieux en le disant, ie fichier ne s'ouvre pas quand même malgré l'erreur?

Problème de délai à l'ouverture!

Le mappage demande un mot de passe et l'utilisateur n'aurait pas cocher la case retenir?

[hunter001]

non le fichier ne s'ouvre pas, et il n'y a pas de mot de passe