Discussion :

[michelsimon]

Bonjour à tous,

J'ai un problème avec mon code VBA : j'essaie de reporter des données depuis un fichier Excel, fermé (=source), vers un fichier Excel ouvert (=destination).
J'ai donc un code qui va ouvrir le fichier source voulu, effectue le report de données, puis ferme le fichier source.

Ce code marche quand le fichier source est sur mon poste (exemple de répertoire : C:\Users\msimon\Desktop\Michel), mais quand le fichier est sur le réseau de mon entreprise (exemple : U:\...\....\...\...\...\...), ca ne marche pas...

Avez-vous une idée de ce qui pourrait clocher?

Voici le code que j'utilise pour aller chercher et ouvrir mon fichier Excel :

Code :

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

Workbooks.Open Filename:=CheminAccesFichiersGestionnaires & "NomDuFichier"

avec CheminAccesFichiersGestionnaire de la forme U:\...\....\...\...\...\... ou C:\Users\msimon\Desktop\Michel

Merci d'avance pour votre aide.

Bonne journée!

[Primalen]

Pour accéder au réseau directement par le code il faut que tu ai les droits d'acces a ce réseau.
Sinon ça te renvoie une erreur

Demande a ton admin reseau de te donner les droits si c’est pas déjà fait

Si c'est pas ça, faut que je cherche un peu plus

[michelsimon]

Bonjour Primalen.

Non Non, j'ai les droits.

En fait, au tout début de ma macro, j'enregistre ce même fichier source dans le répertoire où je viendrais je chercher pas la suite. Mais je suis obligé de fermer ce fichier entre temps, je n'ai pas le choix.

Donc, ma macro reconnais ce répertoire lors de la création et de l'enregistrement de mon fichier "source", mais lorsque je veux aller l'ouvrir, ma macro me marque le message d'erreur suivant :

" U:\...\...\...\...\ est introuvable. Vérifiez l'orthographe ou essayer un autre chemin d'accès " ... Comme si le fichier n'existait pas

Et pourtant je suis sûr que le chemin d'accès est correct et que mon fichier s'y trouve..

[Primalen]

Effectivement étrange...

A tu essayer de le déplacer ailleurs, pour vérifier le lien.

Sinon je te propose une autre solution, c'est de choisir le fichier a la main avec un Application.GetOpenFilename


ça te permet d'ouvrir le fichier sélectionner, mais c'est vrai que si c'est dans une exécution automatique ou un boucle..c'est plutôt embêtant

Avec Application.GetOpenFilename, tu peux récupérer le chemin exact de ton fichier .

Code :

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

1
2
3
Chemin=Application.GetOpenFilename(paramètre a déterminer, c’est le choix de type de fichier, ça permet de réduire le nombre de type de fichier que l'on peut ouvrir, afin de mieu gérer les erreurs ;))
 
MsgBox Chemin

J'espere que ça peut t'aider :s

[pesdan]

Bonjour michelsimon,

J'ai exactement le même problème avec le réseau de mon entreprise sur l'ouverture d'un fichier. Lorsque c'est sur mon poste, ça marche.

Le message vient sur la ligne "Set WbOpen = Workbooks.Open............"

Avez-vous réglé votre problème et comment?