[E-02] VBA et Réseau

Version imprimable

27/10/2008, 11h50
lucarno

[E-02] VBA et Réseau

Bonjour,

J'ai créé une application VBA sous Excel 2002 avec une interface.

Je l'ai installée sur le serveur d'un petit réseau.

Puis-je utiliser cette application depuis les autres postes sans l'y installer.

Cette application doit pouvoir être utilisée directement sur le serveur, ainsi que sur d'autres postes.

Cela ne me semble pas possible, mais j'aimerais savoir ce que vous en penser.

Merci
27/10/2008, 11h55
decondelite

Si le classeur de support est accessible depuis n'importe où sur le réseau il n'y a à priori aucune raison que tu ne puisse pas l'utiliser sur n'importe quel poste.
28/10/2008, 12h41
lucarno

[VBA-Excel02] VBA et Réseau

Bonjour,

Le problème est que cette macro ouvre des fichiers qui sont sur le C: du serveur.

Comment distinguer le C: du serveur du C: du poste sur lequel on lance l'application ?

Merci
28/10/2008, 15h03
decondelite

Je vois le problème.

Plutôt que de travailler avec un chemin absolu du style "C:/.../DossierContenant", prélève le chemin comme ceci:

Code:

ThisWorkbook.Path

Comme ça, tu pourras placer n'importe où ton fichier, ça fonctionnera toujours. ;)

Pour avoir l'adresse complète de ton fichier (du style "C:/.../DossierContenant/monfichier.xls), utilise:

Code:

ThisWorkbook.FullName

En espérant que cela ait pu t'aider. :D
28/10/2008, 16h42
lucarno

[VBA-Excel02] VBA et Réseau
D'abord, merci de ton aide.

En fait sur les autres postes, j'ai créé un racourci sur le fichier excel qui contient la macro.

Pour le lancer, je n'ai pas de problème, mais par contre, il ouvre des fichiers qui sont sur le serveur et identifiés comme suit :
Code:

1 2 3 4 5 BC = "COMMANDE FOURNISSEUR" & " " & Annee NomFic1 = "C:\GESTION SARL\" & BC & ".xls" If ExisteFichier(NomFic1) Then Workbooks.Open Filename:=NomFic1 Else
C'est là que j'ai un problème, parce que le C: du serveur n'est pas le C: du poste client.

J'ai bien vu ton code, mais je ne vois pas comment l'appliquer à tous les fichiers que je dois ouvrir et modifier ensuite. Ceux-là ne contiennent pas de macro.

Merci encore
28/10/2008, 17h02
decondelite

Je te montrerai demain comment te servir du code, sauf si d'ici là quelqu'un se sera dévué pour le faire. ;)

Je pensais que tu aurais trouvé tout seul...
28/10/2008, 17h06
Invité

Bonjour

Il ne faut pas utiliser la lettre du serveur, mais son nom, c'est quelque chose du style :

Citation:

//lenom/lecheminsanslalettre

A toi de l'adapter.

Philippe

[VBA-Excel02] VBA et Réseau

Bonjour Philippe,

J'ai pensé que je pouvais faire un essai en local avec mon propre portable en mettant le nom de mon portable comme suit :
Code:

1 2 3 4 5 6 7 8 9 10 11 BC = "BON DE LIVRAISON" & " " & Annee NomFic1 = "//luc/SARL CASENAVE\GESTION SARL\" & BC & ".xls" If ExisteFichier(NomFic1) Then Workbooks.Open Filename:=NomFic1 Else ChDir ("//luc/SARL CASENAVE\GESTION SARL\") Workbooks.Add ActiveWorkbook.SaveAs Filename:=NomFic1, _ FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False
Mais ça ne marche pas. J'ai essayé d'autres combinaisons avec des \ au lieu de /, mais c'est la même chose. J'ai le message suivant :
"Le nom du classeur est introuvable, vérifiez l'ortographe du nom du fichier ou son emplacement.

J'ai placé mon dossier SARL CASENAVE sous la racine.

Merci de ton aide.

29/10/2008, 14h01
oOVaveOo

bonjour,

C'est peut-être nul comme idée mais tu peux essayer d'ouvrir ton fichier et de lancer

Code:

MsgBox ActiveWorkbook.FullName

tu verras bien quel chemin ça te donne.
29/10/2008, 14h12
lucarno

[VBA-Excel02] VBA et Réseau

Bonjour,

J'ai essayé. Il me répond : "Chemin d'accès introuvable".

Merci
29/10/2008, 14h16
lucarno

[VBA-Excel02] VBA et Réseau

Excuse moi,

J'ai essayé une première fois, et j'ai obtenu :
C:\SARL CASENAVE\SARL CASENAVE.xls

Puis j'ai entré le code :

Code:

ChDir("//luc/SARL CASENAVE"

et là j'ai eu le message : "Chemin introuvable"

T'as mal lu ce que je t'ai donné.

C'est comme ça que tu dois faire:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dossier_contenant=ThisWorkbook.Path
BC = "BON DE LIVRAISON" & " " & Annee
    NomFic1 = dossier_contenant & "\" & BC & ".xls"
    If ExisteFichier(NomFic1) Then
        Workbooks.Open Filename:=NomFic1
    Else
        ChDir dossier_contenant ' je vois pas à quoi sert cette ligne je pense
        ' que tu peux la supprimer
        Workbooks.Add
        ActiveWorkbook.SaveAs Filename:=NomFic1, _
            FileFormat:=xlNormal, _
            Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
            CreateBackup:=False
     End If

29/10/2008, 14h48
oOVaveOo

essaye donc ça :

Code:

MsgBox ThisWorkbook.Path

Tu auras normalement le nom du serveur à la place de sa lettre

EDIT : désolé, je n'avais pas vu la dernière réponse :oops:
29/10/2008, 15h07
lucarno

[VBA-Excel02] VBA et Réseau

J'obtiens :

C:\SARL CASENAVE

mais pas le nom du serveur, qui ici est en local mon portable sur lequel je fais l'essai avant d'aller sur le réseau du client.

Je devrais peut-être faire ces tests directement chez mon client. Qu'en penses-tu ?
29/10/2008, 15h14
decondelite

Tu n'as décidément rien compris...

ThisWorkbook.Path te renvoit le chemin du dossier dans lequel se trouve ton classeur, et ce quel que soit l'endroit où tu l'y mets!

Si tu le mets dans "C:\Mes documents", ça renvoie "C:\Mes documents".
Si tu le mets dans "X:\Commun\Mon dossier", ça renvoie "X:\Commun\Mon dossier".
Si tu le mets dans "//luc/SARL CASENAVE", ça renvoie "//luc/SARL CASENAVE".

Ca marche n'importe où, et c'est pour ça qu'il faut obligatoirement se servir de ça si on veut une macro portable sur n'importe quel PC à n'importe quel emplacement.
29/10/2008, 15h47
lucarno

[VBA-Excel02] VBA et Réseau

Je n'ai peut-être rien compris, mais je m'attendais à obtenir le nom de mon portable et non la lettre.

Comment obtenir le chemin avec le nom de mon portable, ou le nom du serveur quand je serai chez le client ?

Merci.
29/10/2008, 15h49
decondelite

Mais pourquoi diable veux-tu le nom?
29/10/2008, 16h08
lucarno

[VBA-Excel02] VBA et Réseau

Dans le chemin : //luc/etc..., luc est sencé être le nom de mon portable.

Je veux pouvoir utiliser le nom du serveur et non la lettre C de la racine du serveur pouvoir utiliser mon application depuis des postes clients de ce serveur.

Le fichier contenant la macro, ainsi que tous les fichiers qu'elle ouvre et qu'elle modifie se trouvent sur le serveur.
29/10/2008, 16h28
decondelite

OK OK...

Dans ce cas, dans mon code extrais seulement le bout de chaîne qui t'intéresse dans le chemin (=utilise Mid ou Left), et rajoute le nom du serveur devant.

Pour récupérer le nom du serveur en revanche, ben ça c'est toi qui le précise. ;)

PS: je connais le code à utiliser, mais il faut que tu réfléchisse un peu. :D
29/10/2008, 16h52
lucarno
Ce que tu me dis ne m'aide pas beaucoup car je connais les différents chemins et je les mets en dur.

Par contre, je n'ai pas trouvé la syntaxe pour inserrer le nom du serveur sans que ça plante.

Excuse moi si je te semble trop naïf, mais j'expérimente.

Merci de ton aide

J'ai enfin trouvé la réponse à ma question en appliquant le code suivant :

Code:

MsgBox Application.NetworkTemplatesPath

qui me donne le chemin de l'application sur le serveur.

J'ai créé un mini réseau avec un autre portable, et les indications que m'a donné Philippe marchent parfaitement. Comme il me l'a indiqué j'applique le code :
Code:

1 2 BDFournisseurs = "BASE DE DONNEES FOURNISSEURS" NomFic = "//luc/SARL CASENAVE\BASE DE DONNEES\" & BDFournisseurs & ".xls"
où luc est le nom du serveur.

Merci à tous pour votre collaboration et en particulier à Philippe.
29/10/2008, 23h10
JackOuYA

Citation:

J'ai enfin trouvé la réponse à ma question en appliquant le code suivant :
Code :

Code:

MsgBox Application.NetworkTemplatesPath

qui me donne le chemin de l'application sur le serveur.

tu devrai refaire un tour dans l'aide en ligne :f1: et corriger ta description de NetWorkTemplatesPath..;)
30/10/2008, 09h48
decondelite
Citation:
Envoyé par lucarno

J'ai enfin trouvé la réponse à ma question en appliquant le code suivant :

Code:

MsgBox Application.NetworkTemplatesPath

qui me donne le chemin de l'application sur le serveur.

J'ai créé un mini réseau avec un autre portable, et les indications que m'a donné Philippe marchent parfaitement. Comme il me l'a indiqué j'applique le code :

Code:

1 2 BDFournisseurs = "BASE DE DONNEES FOURNISSEURS" NomFic = "//luc/SARL CASENAVE\BASE DE DONNEES\" & BDFournisseurs & ".xls"

où luc est le nom du serveur.

Merci à tous pour votre collaboration et en particulier à Philippe.
Ton code n'est toujours pas adaptable à un emplacement quelconque sur ton serveur: que te renvoie Application.NetworkTemplatesPath?

Je vais te monter comment on fait pour combiner ça et la possibilité de placer ton fichier où tu veux, vu que tu es réticent à la manipulation de chaînes. Mais le code que je te donnerai en retour, tu devras l'assimiler. ;)

PS: et moi j'ai envie de dire que ton problème n'est pas résolu. :roll:
30/10/2008, 13h22
lucarno

Bonjour,

Je complète ma réponse. Mon code :

Code:

//luc/SARL CASENAVE\BASE DE DONNEES\" & BDFournisseurs & ".xls"

n'est valable que pour l'ouverture des fichiers.

Par contre si je crée un nouveau fichier et que je sauvegarde sur le serveur ça plante.

Ce qui marche à tous les coups est :

Code:

\\luc\SARL CASENAVE\BASE DE DONNEES\" & BDFournisseurs & ".xls"

où "luc" est le nom de mon serveur.

c'est-à-dire en remplaçant les "/" par des "\".

J'attends ton code pour l'analyser.

Merci.

J'ai oublié de répondre sur le code :

Code:

MsgBox Application.NetworkTemplatesPath

J'ai été un peu vite. Quelque soit le lieu où je le place dans mon application, il me renvoie une chaîne vide parce que le chemin d'accès réseau n'existe pas d'après l'aide de VBA, ce que je ne comprends pas dans la mesure où le réseau est bien réel.

Excusez moi si je vous ai dit quelque chose de faux, je me suis emballé quand j'ai réussi à faire fonctionner mon appli en réseau.

Ce morceau de code, je l'ai placé dans le programme d'initialisation de ma UserForm.

Bon.

Essaie comme ça:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
dossier_contenant = ThisWorkbook.Path
nom_serveur = "\\luc"
BC = "BON DE LIVRAISON" & " " & Annee
    ' "Mid(dossier_contenant, 3)" extrait la partie du chemin
    ' située juste après "C:"
    NomFic1 = nom_serveur & Mid(dossier_contenant, 3) & "\" & BC & ".xls"
    If ExisteFichier(NomFic1) Then
        Workbooks.Open Filename:=NomFic1
    Else
        ChDir dossier_contenant ' je vois pas à quoi sert cette ligne je pense
        ' que tu peux la supprimer
        Workbooks.Add
        ActiveWorkbook.SaveAs Filename:=NomFic1, _
            FileFormat:=xlNormal, _
            Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
            CreateBackup:=False
     End If

Je n'ai rien testé: je ne peux pas tester. Dis-moi si ça marche, et essaye de placer le fichier n'importe où sur le serveur pour voir si ça fonctionne toujours. ;)

Je tiens beaucoup à ce que tu comprenne parfaitement comment je génère l'emplacement où enregistrer le fichier. ;)

30/10/2008, 16h13
lucarno

[VBA-Excel02] VBA et Réseau

Ton code marche sur la racine, mais dès que je me place dans un autre lieu j'ai le message d'erreur : "Erreur d'exécution 52, Nom ou numéro de fichier incorrect"

Ce que je ne comprends car les variables affichent les bons chemins.
30/10/2008, 16h28
decondelite

NomFic1 affiche la bonne valeur quel que soit le dossier?

Vu que c'est une erreur d'exécution: exécute au pas à pas (F8) et dis moi à quelle ligne le code plante. ;)
30/10/2008, 16h39
lucarno

[VBA-Excel02] VBA et Réseau
NomFic1 affiche la bonne valeur. Cela plante lors du test d'existence du fichier qui effectivement n'existe pas, mais alors il doit le créer et le sauvegarder sous NomFic1.

Code:

If ExisteFichier(NomFic1) Then

ExisteFichier est la fonction suivante :
Code:

1 2 3 Public Function ExisteFichier(NomFic As String) As Boolean ExisteFichier = (Dir(NomFic) <> "") End Function
31/10/2008, 09h34
decondelite

Peut-être que la fonction Dir n'apprécie pas la syntaxe de Nomfic, vu que dans ton cas c'est assez particulier. ;)

Vérifie que ton code ne plante pas à la ligne intérieure de ta fonction ExisteFichier.

Sinon, petit suggestion: tape Fileexists dans l'aide en ligne. Il se peut que cela t'intéresse et te fournisse des résultats plus probants. ;)

Si tu utilise Fileexists, tu peux le combiner avec chdir pour ne plus du tout prendre en compte le nom de ton serveur et utiliser chdir avec des chemins relatifs.
31/10/2008, 19h24
lucarno

[E-02] VBA et Réseau

Bonjour Decondelite,

Effectivement, c'est sur Dir que ça plante. Je vais regarder ExisteFichier dans l'aide et te tiendrai au courant.

Merci
31/10/2008, 19h51
lucarno

[E-02] VBA et Réseau

J'ai cherché ExisteFichier . Evidemment je n'ai pas trouvé, mais je sais que la procédure que j'utilise je l'ai trouvée dans l'aide.

Par contre, j'ai vu que je pouvais utiliser FileExists(NomFic) qui renvoie True si le fichier existe. J'ai essayé mais je ne comprends pas comment le faire marcher.

Il me répond sub ou fonction non définie.

Je l'ai essayé en faisant directement :

Code:

If FileExists(NomFic1) Then
31/10/2008, 23h48
JackOuYA

qu'elle est cette valeur de NomFic qui fait planter dir ?

Fuseau horaire GMT +2. Il est actuellement 20h30.