Discussion :

[franckb74]

Bonjour,

Dans un module qui me permet d'aller enregistrer un fichier dans un dossier nommé "FICHIER_LIE_PRO" qui est stocké dans le même repertoir que celui de ma base j'ai la ligne de code suivante :

Code :

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

FileCopy CheminEtFichierBase, CurrentProject.Path & "\FICHIER_LIE_PRO\" & GestionFichier.GetFileName(CheminEtFichierBase)

Je souhaiterai pouvoir stocker les photos dans un autre dossier que celui stocké dans le même repertoir que celui de ma base et pouvoir le modifier facilement si ma base ou mon dossier est ammené à être déplacé.

J'ai créé une table nommée "TblCheminPhoto" dans laquelle j'ai crée un champ nommé : CheminPhoto

Je souhaiterai remplacer la fonction "CurrentProject.Path" par le lien enregistré dans le champ "CheminPhoto"

Quelle serait la bonne synthaxe ?

En vous remerciant par avance,
Franck

[ClaudeLELOUP]

Bonjour,

Connais-tu ce tutoriel ?

http://cafeine.developpez.com/access/tutoriel/photos/

[franckb74]

Oui je connais
Ma base fonctionne très bien avec les liens que je crée vers des photos ou tout autre type de fichier, je ne sais juste pas comment écrire la syntaxe qui me permettra remplacer le crurent projet par le champ provenant de ma table chemin

Merci pour ton aide

[ClaudeLELOUP]

Comme ceci par exemple :

Code :

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

FileCopy CheminEtFichierBase, "C:\MesDocuments\FICHIER_LIE_PRO\" & GestionFichier.GetFileName(CheminEtFichierBase)

tu remplaces le contenu de "CurrentProject.path" par le chemin du répertoire que tu veux. Dans mon exemple, le répertoire "MesDocuments" sur le disque C.


Dans ton code actuel, juste au dessus de la ligne que tu montres, mets cette instruction :

Code :

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

debug.print CurrentProject.Path & "\FICHIER_LIE_PRO\" & GestionFichier.GetFileName(CheminEtFichierBase)

et tu verras apparaître l'adresse actuelle en clair dans la fenêtre d'exécution.

[franckb74]

Bonjour,

Merci pour ta réponse mais ce que je souhaite arriver à faire ce n'est pas écrire le chemin en dur dans mon code mais que ce chemin soit ce que j'ai inscrit dans le champ "CheminPhoto" de la table "TblCheminPhoto"
Cela me permettra de modifier facilement depuis un formulaire le chemin lorsque je déplacerai le dossier destination ou la base elle-même

Merci pour ton aide

[Invité]

Bonjour

Tu peux utiliser la fonction de domaine DLookup pour récupérer simplement une donnée dans une table.

Code :

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

DLookup("CheminPhoto", "tblCheminPhoto")

Tu inclus cette fonction par concaténation dans ta chaine.

Philippe

[franckb74]

Bonjour Philippe,

Youpi ça marche tip top :-))
Mille merci !!

Bonne journée
Franck