Discussion :

[Nephyline]

Bonjour,

J'ai une partie de mon code qui me permet de récupérer des photos (après sélection du dossier dans lequel elles se trouvent par l'utilisateur), d'en faire des copies et enfin d'intégrer les nouveaux liens de ses photos en relatif dans ma base.

Les copies sont orientées dans le dossier d'utilisation de la base (currentproject.path). Mon souci, c'est que dans une base fractionnée, c'est la frontale qui est considérée comme "project" mais je voudrais que les photos soient copiées sur le serveur (mais toujours en relatif) et non sur le pc des utilisateurs (car une copie de la frontale y est rapatriée, augmentant grandement la vitesse d'exécution).

Existe-t-il un équivalent du currentproject.path pour la dorsale ou un moyen détourné pour y arriver ?

Merci de votre attention.

[Domi2]

Bonjour,

J'espère avoir bien compris

En indiquant le nom d'une table de ta base dorsale, ici "tblTaTable" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Recherche le nom du répertoire dans lequel est installée la base de données dorsale, ainsi que le nom du fichier
strCheminDorsale = CurrentDb.TableDefs("tblTaTable").Connect
strCheminDorsale = Right(strCheminDorsale, Len(strCheminDorsale) - InStr(1, strCheminDorsale, "DATABASE=") - 8)
 
'Recherche le nom du répertoire et des sous-répertoires
If Right(strCheminDorsale, 1) = "\" Then
 
    strRepertoireDorsale = strCheminDorsale
 
Else
 
    strRepertoireDorsale = Left(strCheminDorsale, InStrRev(strCheminDorsale, "\"))
 
End If

Domi2

[Nephyline]

Merci Domi !

Cependant j'ai un petit problème, j'ai droit à une erreur 76 "Chemin d'accès introuvable" à l'exécution de cette ligne

Code :

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

1
2
'Copie du fichier sélectionné vers le sous dossier de la base.
FileCopy .SelectedItems(1), strRepertoireDorsale & Me.cbo_Site & "\Num" & strFichier

Un Debug.Print sur strRepertoireDorsale me donne "E=\\Serveur\DB\"

Je ne comprends pas d'où sort ce "E=" et je pense que c'est lui qui fait que le chemin d'accès n'est pas valable.

Comment faire pour m'en débarrasser ?
J'ai bien essayer avec un "Replace" mais ça ne change rien...

[Domi2]

Re,

On pourrait facilement éliminer les 2 premiers caractères mais il m'étonnerait que le code que je t'ai donné soit fiable avec ce genre de chemin.

Regarde ici dans la FAQ, la fonction "DriveLinkedTable"

Domi2

[Nephyline]

Merci beaucoup Domi !

Ça fonctionne au poil !