Discussion :

[CrasherSEP]

Bonjour,

J'aimerais utiliser cette commande "Application.CurrentProject.Path" mais avec un niveau moins 1... est-ce possible ?

Ma base de données se trouve et la commande "Application.CurrentProject.Path" affiche bien : C:\Users\Propriétaire\Desktop\BASE_DE_DONNEES_V\UTILS-MAJ

Maintenant j'aimerais me rendre 1 niveau plus bas, c'est-à-dire : C:\Users\Propriétaire\Desktop\BASE_DE_DONNEES_V pour ensuite me rendre dans le répertoire [IMAGE]

Comment dois-je faire ? J'ai essayé :

Code :

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

Application.CurrentProject.Path & "../IMAGE/pic.jpg"

Mais cela ne fonctionne pas

Merci pour votre aide

[Phiphi41]

Bonjour

Et quelque chose dans ce goût là :

Code :

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

1
2
3
4
5
 Dim str As String
    str = "C:\Users\Propriétaire\Desktop\BASE_DE_DONNEES_V\UTILS-MAJ"
 
 
    MsgBox Left(str, InStrRev(str, "\")) & "IMAGE\pic.jpg"

[CrasherSEP]

Je vais tester... merci

[hyperion13]

Salu
Ou pourquoi pas

Code :

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

1
2
3
Public Function myimgPath() As String
    myimgPath = Application.CurrentProject.Path & "\IMAGE\pic.jpg"
End Function

[CrasherSEP]

Bonjour,

Left(str, InStrRev(str, "\")) & "IMAGE\pic.jpg" fonctionne nickel !

Merci