Obtenir un chemin d'accès

Bonjour tout le monde,

Je souhaiterai obtenir une fonction qui ouvre une boite de dialogue permettant à l'utilisateur de sélectionner un chemin d'accès (un dossier en gros) et enregistrant ce chemin sous forme de string dans une variable. Pour pouvoir ensuite le réutiliser dans une fonction d'enregistrement.

Merci d'avance pour votre aide.

Bonjour,

C'est un genre de fichier "Ouvrir" mais directement dans le bon répertoire que tu veux ?

A te relire

Dan

Bonjour Dan,

Non non, en fait, je ne veux rien ouvrir, simplement donner la possibilité à l'utilisateur de choisir un chemin dans lequel il souhaite obtenir les résultats de la macro. Et obtenir ce chemin sous forme de string.

Je viens de trouver un truc interressant :

    Dim Repertoire As FileDialog

    Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
    Repertoire.Show

    chemin = CStr(Repertoire.SelectedItems(1))

    MsgBox chemin

Pas encore eu le temps de bien vérifier mais il me semble que ça résout mon problème.

Edit : En effet ça fonctionne parfaitement. Il suffit ensuite pour le réutiliser de dire :

fonction nécessitant un chemin(chemin & "\Nom du fichier que l'on souhaite créé.son extension (avi, txt, etc...)",.,..,.)

re,

Si c'est choisir un répertoire de sauvegarde essaie avec ceci :

Application.GetSaveAsFilename

ou

Application.Dialogs(xlDialogSaveAs).Show

Amicalement

Dan

Merci pour tes autres solutions Dan !

Toujours intéressant d'avoir plusieurs manières de procéder.