Une macro pour ouvrir un répertoir

Bonjour

je cherche une macro qui me permet d'ouvrir un répertoire pour sélectionner un fichier ...par exemple D:\Audit\Attributions\Crédits

Merci beaucoup

Bonjour,

Essaye ce code :

ChDir "D:\Audit\Attributions\Crédits\" 'fixe le dossier à ouvrir
Application.GetOpenFilename 'boîte de dialogue Ouvrir

Bonjour....merci pour ta réponse....

ça marche pas car il m'ouvre le répertoire Bibliothèques\Documents

Re,

Il n'y a pas de raisons, si le répertoire exemple existe et tu insères les 2 lignes du code correctement.

Bonjour à tous,

Si Excel ne connait pas l'unité, il faut lui indiquer ...

ChDrive "D:"
ChDir "D:\Audit\Attributions\Crédits\" 'fixe le dossier à ouvrir
Application.GetOpenFilename 'boîte de dialogue Ouvrir

ric

ah merci cette fois-ci ça marche ...j'avais effacer le \ de la dernière ligne.

Merci beaucoup

bonjour

la macro m'ouvre le répertoire de destination où se trouve mes fichiers...mais le soucis quand je double clique sur le fichier il ne s'ouvre pas, je dois faire clique droit puis ouvrir....si vous avez une solution à ce problème

Merci d'avance

Bonjour à tous,

Un essai si l'on parle d'ouvrir des fichiers Excel ...

Dim FileToOpen As String
   ChDrive "D:"
   ChDir "D:\Audit\Attributions\Crédits\" 'fixe le dossier à ouvrir
   FileToOpen = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*")
   Workbooks.Open (FileToOpen)

ric

merci beaucoup Ric ....

ric