Discussion :

[delamarque]

Bonjour,

J'utilise un code permettant d'ouvrir un explorateur avec uniquement des fichiers au format JPEG, j'utilise aussi la fonction path pour retrouver le chemin d'accés.
Voici mon code :

Code :

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

1
2
3
chemin = ActiveWorkbook.Path & "\" & "Photos"
        FichiersAOuvrir = Application.GetOpenFilename _
                      ("Image JPEG (*.jpg),*.jpg", , , , True)

Le pb est qu'il m'ouvre l'eplorateur mais je ne sais pas comment lui indiquer le chemin.

Merci pour vos pistes

A+

[illight]

le chemin de quoi ?

[delamarque]

en fait je dois indiquer le chemin ou se trouvent toutes les photos car lorsque j'ouvre mon explorateur je veux accéder directement à ces dernieres. Les photos se trouvent dans un dossier au même endroit que mon fichier Excel

[SilkyRoad]

bonjour

tu peux essayer

Code :

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

1
2
3
4
chemin = ActiveWorkbook.Path & "\" & "Photos"
ChDir chemin
FichiersAOuvrir = _
Application.GetOpenFilename("Image JPEG (*.jpg),*.jpg", , , , True)

bon apres midi
michel

[delamarque]

en fait il faudrait pouvoir indiquer le chemin non pas avant mais dans l'instruction permettant d'ouvrir l'explorateur (instruction :getopenfilename)

[SilkyRoad]

rebonjour

la macro ne fonctionne pas ?

j'avais interprété que tu voulais ouvrir la boite de dialogue sur le repertoire

Code :

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

ActiveWorkbook.Path & "\" & "Photos"

si tu dois changer de lecteur courant , tu peux prealablement utiliser la fonction ChDrive


bonne soiree
michel

[delamarque]

je ne veux pas changer le compte courant, je veux que lorsque mon explorateur s'ouvre il ait suivi le chemin que j'ai défini, ce qui n'est pas le cas

Merci pour vos pistes