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