[E-02] VBA et Réseau

Version imprimable

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

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 ?

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