Discussion :

[doclefou]

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.

[Marc-L]

Bonjour,

via ThisWorkbook.Path …

_________________________________________________________________________________________________________

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

_________________________________________________________________________________________________________

Je suis Paris, Berlin, Nice, Bruxelles, Charlie, …

[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

[Jean-Philippe André]

Salut,

il te suffit de remonter dans la hierarchie des dossiers :

Code :

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

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 :

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

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

[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.

Code :

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

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

[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

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.

[doclefou]

Salut,

il te suffit de remonter dans la hierarchie des dossiers :

Code :

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

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 :

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

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

[Menhir]

Code :

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

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

[doclefou]

Code :

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

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...

[Marc-L]

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 :

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

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

Code :

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

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

_________________________________________________________________________________________________________

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

[doclefou]

Bonjour 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é

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