Discussion :

[lucarno]

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

[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.

[lucarno]

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

[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 :

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

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 :

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

ThisWorkbook.FullName

En espérant que cela ait pu t'aider.

[lucarno]

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 :

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

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

[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...

[decondelite]

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

C'est comme ça que tu dois faire:

Code :

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

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