[AC-2007] lien hypertexte relatif

[sylv20]

Bonjour, voici mon lien hypertexte en vba vers une image :

Code :

logoconstructeur.Picture = "\\Gimacluster\DATA\Vnivel\Suivipt\photo pour suivi\logoclaas.bmp"

J'aimerais que celui ci soit en relatif c'est a dire :

Code :

logoconstructeur.Picture = "..\photo pour suivi\logoclaas.bmp"

Enfin quelque chose du genre.

PS cette image change suivant une marque

[dave92]

Bonjour,

Tu peux récupérer l'emplacement de ton application avec CurrentDb.Name

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
logoconstructeur.Picture = GetPath(CurrentDb.Name) & "photo pour suivi\logoclaas.bmp"
 
Public Function GetPath(strCheminComplet As String) As String
Dim strFile As String
Dim Position As Integer
    strFile = strCheminComplet
    Position = InStr(strFile, "\")
    While Position <> 0
       strFile = Right(strFile, Len(strFile) - Position)
        If Position <> 0 Then
           Position = InStr(strFile, "\")
        End If
    Wend
    GetPath = Left(strCheminComplet, Len(strCheminComplet) - Len(strFile))
End Function

[Dolphy35]

Salut,

ou plus simple

Code :

CurrentProject.Path

ce qui donne

Code :

logoconstructeur.Picture = CurrentProject.Path & "\photo pour suivi\logoclaas.bmp"

Dolphy