Discussion :

[laly38]

Bonjour,

J'ai un fichier excel avec un userform par lequel j'enregistre des données dont la photo de l'adhérent. Lorsque j'enregistre le chemin du fichier de la photo, il enregistre bien C:\Users\mon_nom\Desktop\Nouveau dossier\nomdelaphoto.JPG dans la colonne prévue à cet effet. Tout fonctionne très bien sur mon PC mais bien sûr, lorsque je mets le fichier sur un autre PC, ça ne fonctionne pas puisqu'il ne trouve pas la photo.
y a-t-il une solution simple pour enregistrer un chemin de fichier "standard" ou pour changer le chemin de fichier à l'ouverture d'Excel?


Merci pour votre aide.

[Marc-L]

Bonjour !

L'idéal est de placer le dossier des photos dans le dossier contenant le classeur (ThisWorkbook.Path) …

Et si c'est sur un réseau, suffit de le placer dans un chemin commun à tous !

Edit : j'avais lu un peu vite, tu peux récupérer le chemin via Environ("USERPROFILE") par exemple …


_____________________________________________________________________________________________________
Je suis Charlie, Bardo, Sousse

[laly38]

Bonjour,

on m'a proposé cette solution qui marche, si ça peut intéresser quelqu'un

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
j = 1
           Do Until IsEmpty(rg.Offset(0, j + 1))
 
              'Ajouter un sous-élément en spécifiant la valeur seulement
 
             .ListItems(i).ListSubItems.Add , , rg.Offset(i, j)
             j = j + 1
         Loop
        .ListItems(i).ListSubItems.Add , , "C:\Users\" & Application.UserName & "\DeskTop\Nouveau dossier\" & rg.Offset(i, 2) & rg.Offset(i, 3) & ".jpg"
 
         i = i + 1
      Loop

Merci beaucoup de vous être penché sur mon problème

[patricktoulon]

Bonjour
a ta place j'utiliserais environ("username") car le user de l'application n'est pas forcement le user de la session windows

[Marc-L]

Laly, ta solution est effectivement la moins fiable car je rencontre souvent le cas décrit par Patrick !

En dehors d'Environ("USERPROFILE") révélant le chemin du répertoire utilisateur de la session,

si comme sur certains ordinateurs de mon côté le bureau est délocalisé sur un autre disque que celui de la session,

mieux vaut en passer par un ActiveX, exemple : MsgBox CreateObject("WScript.Shell").SpecialFolders("Desktop") …