Chemin d'accès récupéré par VBA

Version imprimable

20/12/2016, 15h38
doclefou

Chemin d'accès récupéré par VBA

Bonjour à toutes et à tous,

J'ai "développé", enfin j'ai créé un fichier Excel avec des formulaires.
Dans ces formulaires, j'y ai mis des images (pour que ça fasse plus beau). Je passe donc par loadpicture("E:\_Mes Textes\projets\images\image.gif").
Cela me pose problème car je ne peux utiliser ces fichiers que si l'ensemble du chemin d'accès existe, et donc quand je réinstalle mon ordinateur, je suis obligé de partitionner mon disque dur.

Alors j'aurai aimé savoir comment j'aurai pu récupérer le chemin d'accès en fonction de l'emplacement de mon fichier Excel. Et donc de remplacer ce chemin en dur, par une variable dans loadpicture(variable &"\images\image.gif").
Sachant que mon fichier est soit dans E:\_Mes Textes\Projets\ soit dans E:\_Mes Textes\Projets\OK\.

J'espère que cela est assez clair, et qu'une âme charitable pourra m'aider.

Merci.
20/12/2016, 16h06
Marc-L

Bonjour,

via ThisWorkbook.Path …

_________________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

_________________________________________________________________________________________________________
Je suis Paris, Berlin, Nice, Bruxelles, Charlie, …
20/12/2016, 16h38
doclefou

Merci Marc-L,
Je viens de tester le code avec adresse = ThisWorkBook.Path
et je l'ai mis dans un msgbox, cela me donne :
E:\_Mes Textes\projets\OK

Donc si je place la variable public à l'ouverture du fichier, et que je fais un logo.picture = LoadPicture(adresse & "image.gif")
J'ai une erreur... Normal vu que mon image.gif se trouve dans :
E:\_Mes Textes\projets\images\

Du coup, comment Est-ce que je fais pour avoir le bon chemin ?

Merci

Salut,

il te suffit de remonter dans la hierarchie des dossiers :

Code:

1
2
3
4
5
Function getParentFolder2(ByVal strFolder0)
  Dim strFolder
  strFolder = Left(strFolder0, InStrRev(strFolder0, "\") - 1)
  getParentFolder2 = Left(strFolder, InStrRev(strFolder, "\") - 1)
End Function

a utiliser avec :

Code:

1
2
3
Dim strFolder As String
strFolder = getParentFolder2(ThisWorkbook.Path)
logo.picture = LoadPicture(strFolder & "\images\image.gif")

Bonjour à tous,

Juste un petit ajout si je peux me permettre. Ce même si ce n'est pas le sujet.
Parfois, les connexions de lecteur réseau posent problème (E:)

Pour obtenir le chemin intégral d'un fichier ouvert à partir d'un lecteur réseau, une fonction fournie par Gayot sur ce forum, que je remercie.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Option Compare Text
 
Public Function fnctGetUNCPath(ByVal PathName As String) As String
 
'fonction donnée par GAYOT sur forum, discussion ouverte par MG
'http://www.developpez.net/forums/d1025923/logiciels/microsoft-office/excel/macros-vba-excel/recherche-repertoire-libelle-integral/
 
'comment récupérer le chemin intégral du fichier si connection lecteur réseau
'tuto :
'http://access.developpez.com/sources/?page=reseau#GetUNC
 
Const MAX_UNC_LENGTH  As Integer = 512
Dim strUNCPath As String
Dim strTempUNCName As String
Dim lngReturnErrorCode  As Long
 
  strTempUNCName = String(MAX_UNC_LENGTH, 0)
  lngReturnErrorCode = WNetGetConnection(Left(PathName, 2), strTempUNCName, _
    MAX_UNC_LENGTH)
 
  If lngReturnErrorCode = 0 Then
     strTempUNCName = Trim(Left(strTempUNCName, InStr(strTempUNCName, vbNullChar) - 1))
     strUNCPath = strTempUNCName & Mid(PathName, 3)
  End If
 
fnctGetUNCPath = strUNCPath
End Function
 
Sub essai()
Debug.Print fnctGetUNCPath(ThisWorkbook.FullName)
End Sub

20/12/2016, 17h22
Menhir

Code:

adresseImg = Mid(adresse, 1, InStrRev(adresse, "\")) & "images\"
21/12/2016, 01h40
Marc-L
Citation:

Envoyé par doclefou

E:\_Mes Textes\projets\OK

J'ai une erreur... Normal vu que mon image.gif se trouve dans :
E:\_Mes Textes\projets\images\

Comme je n'avais pas de viscères de mouton sous le coude je ne pouvais le deviner ‼

Autres voies pour le fun :
Code:

1 2 3 SP = Split(ThisWorkbook.Path & "\", "\") SP(UBound(SP) - 1) = "images" DOSSIER$ = Join$(SP, "\")
Code:

DOSSIER$ = Left$(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\")) & "images\"

_________________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Citation:
Envoyé par Jean-Philippe André
Salut,

il te suffit de remonter dans la hierarchie des dossiers :
Code:

1 2 3 4 5 Function getParentFolder2(ByVal strFolder0) Dim strFolder strFolder = Left(strFolder0, InStrRev(strFolder0, "\") - 1) getParentFolder2 = Left(strFolder, InStrRev(strFolder, "\") - 1) End Function
a utiliser avec :
Code:

1 2 3 Dim strFolder As String strFolder = getParentFolder2(ThisWorkbook.Path) logo.picture = LoadPicture(strFolder & "\images\image.gif")
Bonjour Jean-Philippe,

Hier soir, j'ai testé ta réponse. Cela a bien fonctionné en mettant la fonction au début du code de mon formulaire, et en modifiant l'appel à mon image.gif.

Ce que je n'ai pas eu le temps de tester, c'est dans tous les autres formulaires. Je pense que je n'ai pas besoin de réécrire à chaque fois la fonction, il suffit qu'elle soit public, tout comme la variable strFolder.

Par contre, je les place dans "ThisWorkbook" ou ailleurs dans mon VBAProject ?
Je pose la question avant d'avoir testé...

En tout cas merci pour ta prompte réponse

21/12/2016, 16h05
doclefou

Bonjour MarcelG,

Tu fais bien te mettre cette petite touche de subtilité dans ce post.

Effectivement, je ne suis pas ce cas... ou devrais-je dire pas encore.
J'ai dans l'idée de déporter cette information sur mon NAS et donc oui à un moment, je me serai posé la question.

Je vais mettre ce code dans un de mes nombreux fichiers d'aide VBA.

Merci

Citation:

Envoyé par MarcelG

Bonjour à tous,

Juste un petit ajout si je peux me permettre. Ce même si ce n'est pas le sujet.
Parfois, les connexions de lecteur réseau posent problème (E:)

Pour obtenir le chemin intégral d'un fichier ouvert à partir d'un lecteur réseau, une fonction fournie par Gayot sur ce forum, que je remercie.
21/12/2016, 16h16
doclefou

Bonjour Marc-L,

Citation:

Envoyé par Marc-L

Comme je n'avais pas de viscères de mouton sous le coude je ne pouvais le deviner ‼

Effectivement, si tu n'as pas éviscéré le mouton, cela va être compliqué :ptdr:

Mais il me semblait qu'en écrivant :
"Je passe donc par loadpicture("E:\_Mes Textes\projets\images\image.gif")"
Puis :
"Sachant que mon fichier est soit dans E:\_Mes Textes\Projets\ soit dans E:\_Mes Textes\Projets\OK\"
Il n'y aurait aucun sacrifice de mouton... Comme quoi, dans la communication, il est très important de se faire comprendre et non de penser être compris. ;)

Comme je ne viens de voir ta réponse que maintenant, je ne pourrai tester que ce soir, et juste pour le fun ;) je verrai bien ce que donne ce nouveau bout de code.
Merci encore de ta solution
21/12/2016, 16h24
doclefou

Citation:

Envoyé par Menhir

Code:

adresseImg = Mid(adresse, 1, InStrRev(adresse, "\")) & "images\"

Bonjour Menhir,

Merci de ta réponse... Je pense que je dois rajouter ton bout de code dans la première réponse de Marc-L.

Je testerai aussi ce soir.

PS : Il y a beaucoup de "comme toi" qui poussent par chez moi... ;)