[E-02] VBA et Réseau

Version imprimable

Voir 40 message(s) de cette discussion en une page

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.

Voir 40 message(s) de cette discussion en une page