Discussion :

[retraite83]

Bonjour,

j'ai lu pas mal d'articles sur les aspects connexion à distance mais les problèmes sont souvent beaucoup plus complexes que le mien et donc les solutions assez lourdes et complexes également

Mon besoin est assez basique, je veux dans une macro VBA ouvrir, traiter et fermer un classeur qui se trouve sur le serveur depuis un PC connecté

Je n'ai pas encore de serveur disponible, je prépare donc de façon théorique pour gagner du temps avant de pour voir faire des essais

1er cas :
le PC est connecté au serveur dans les locaux du serveur par un câble de type Ethernet je pense
Dans ce cas j'imagine que le chemin du dossier à mettre dans la macro est du type

Code :

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

1
2
 
path = X:\nom du serveur\nom du dossier

2eme cas :
le PC est connecté au serveur via une connexion WiFi (la connexion est un autre problème)

Pour moi, une fois la connexion établie, le chemin du dossier à mettre dans la macro sera du même type

Est-ce si simple ?

J'imaginai faire des tests en utilisant une clé USB pour simuler le serveur avec son chemin d'accès complet, est-ce comparable pour VBA?
merci

[parmi]

Bonjour,

Sur un serveur, il y a des droits d'accès.
Si tu as accès à un répertoire quelconque, alors pas de problème. Il te suffit d'utiliser le chemin complet.
Bien sûr, il te faut être logué sur ce serveur, soit directement par câble Ethernet ou encore par accès à distance...

Le chemin peut être du genre:
\\nom serveur\nom répertoire\nom sous-rep\...

ou il peut être mappé, c'est-à-dire avoir une lettre attitrée, ce qui donnerait, disons
X:\nom répertoire\nom sous-rep\...

[retraite83]

merci,

oui j'aurai tous les droits d'accès, notamment pour déposer dans le dossier du serveur les Excels dans un même répertoire

Je pense que je vais utiliser la forme :

Code :

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

1
2
 
X:\nom répertoire\nom sous-rep\...

cela me semble plus "sur" que la forme :

Code :

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

1
2
 
\\nom serveur\nom répertoire\nom sous-rep\...

dont je ne connais pas le fonctionnement avec les \\

Donc pour tester je dois pouvoir simuler la présence du serveur avec le chemin d'une clé USB et l'absence de la connexion au serveur en la retirant

[parmi]

Une lettre de mappage peut être différente pour chacun. Ça dépend comment c'est monté au départ.
En principe, dans une boîte, on va donner la même lettre pour tous pour un certain répertoire (serveur).

Chez moi, au bureau, c'est différent pour certains départements... (pourquoi faire simple... )
Il faut donc être prudent et vérifier.

Tu peux toujours vérifier avec la commande Dir() si le répertoire existe bien.

[retraite83]

Je comprends bien, mais d'après ce que j'ai compris je ne dois pas avoir ce problème puisque c'est le chemin du dossier du serveur que je veux accéder sous le forme

Code :

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

X:\nom répertoire\nom sous-rep\...

Le "X" sera donc le même pour tout le monde, et sur les PC distants le chemin sera

Code :

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

1
2
 
This workbook...

[retraite83]

En fait :

Code :

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

1
2
 
pathServeur = "\\Nom du pc\K\ES-SIG"

K: étant la clé USB, cela marche très bien quand ma clé USB est connecté (pour simuler un réseau)

mais si je la retire j'ai :

Erreur d'exécution 52, nom ou numéro de fichier incorrect

Comment éviter cette erreur et détecter la présence du dossier ES-SIG

j'ai lu par ailleurs que la fonction DIR() ne fonctionnerait pas en réseau? il faudrait ajouter

Code :

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

Windows Script Host Object Model

mais là je suis dans l'inconnu