Discussion :

[Philam]

Bonjour à tous,

J'ai utilisé la méthode proposée par Caféine pour intégrer des images à mes bases de données Access, une méthode tout à fait satisfaisante (merci d'ailleurs à son auteur).

Méthode : http://cafeine.developpez.com/access/tutoriel/photos/

J'ai néanmoins un petit souci. En effet, le chemin de l'image, inséré dans le champ adéquat, est absolu (c'est-à-dire qu'il commence par C:/). Comment faire pour le transformer en chemin relatif (du type /images/image1.jpg)? Car à présent, dès que je déplace ma base de données, je dois transformer tous les champs pour indiquer le nouveau chemin. Etant donné que je devrai migrer une de mes bases sur un mac, ce serait vraiment important d'avoir un chemin relatif.

J'ai vu qu'on pouvait travailler avec le code

Code :

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

CurrentProject.Path

, mais je ne sais pas comment l'intégrer au code de Caféine.

Merci à tous ceux qui pourront m'apporter de l'aide, ne serait-ce que par des conseils.

Philam

[argyronet]

Bonjour,

Si ton dossier contenant les images est un sous dossier de l'application, alors effectivement, tu peux utiliser la propriété Path de CurrentProject qui te retournera le chemin de l'application quel que soit son emplacement.

Cela pourrait donner alors quelque chose comme :

Code :

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

1
2
3
4
5
6
Const IMAGES_PATH    As String = "\Images\"
Dim strImagesPath    As String
Dim strImageFilename    As String
 
    strImagesPath = CurrentProject.Path & IMAGES_PATH
    strImageFilename = strImagesPath & "mon image.jpg"

Sinon, il n'y a pas d'autre solution que de déclarer le chemin dans une table de paramètres ou dans un fichier INI si toutefois le chemin est ailleurs mais c'est tout à fait possible de le rendre dynamique :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Const IMAGES_PATH    As String = "Applications\Gestion\Images\"
Dim strImagesDrive    As String
Dim strImagesPath    As String
Dim strImageFilename    As String
 
    strImagesDrive = Left$(CurrentProject.Path, 3)
    If Left$(strImagesDrive, 2) <> "\\" Then
        strImagesPath = strImagesDrive & IMAGES_PATH
        strImageFilename = strImagesPath & "mon image.jpg"
    Else
        MsgBox "Le chemin est spécifié en UNC !", vbExclamation
    End If

Argy