Comment selectionner un chemin vers un répertoire, à l'aide d'un bouton Parcourir ?

tototiti2008

XLDnaute Barbatruc

• 12 Mai 2010

• #2

Re : Comment selectionner un chemin vers un répertoire, à l'aide d'un bouton Parcouri

Bonjour gimli,

quelle est ta version d'Excel

Il y a un objet FileDialog qui permet de faire ça mais je crois qu'il n'existe que depuis XL2002

 

Vote positif 0 Vote négatif

gimli

XLDnaute Occasionnel

• 12 Mai 2010

• #3

Re : Comment selectionner un chemin vers un répertoire, à l'aide d'un bouton Parcouri

Bonjour tototiti2008,

je travaille sur Excel 2003 😉

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 12 Mai 2010

• #4

Re : Comment selectionner un chemin vers un répertoire, à l'aide d'un bouton Parcouri

Re,

Bon, puisque je viens de le découvrir, pour ceux qui n'ont pas de FileDialog, on peut le faire comme ça :

Browse For Folder

Pour toi (mais ton code ne sera pas compatible pour Excel 2000 et antérieurs) :

Code:

Function FoldPick(Optional InitialDir As String = "") As String
Dim FD As FileDialog
    FoldPick = ""
    Set FD = Application.FileDialog(msoFileDialogFolderPicker)
    FD.InitialFileName = InitialDir
    If FD.Show <> 0 Then
        FoldPick = FD.SelectedItems(1)
    End If
End Function

 

Vote positif 0 Vote négatif

U

Ubot303

XLDnaute Occasionnel

• 12 Mai 2010

• #5

Re : Comment selectionner un chemin vers un répertoire, à l'aide d'un bouton Parcouri

Bonjour,

Au risque de n'avoir pas compris le problème, la fonction VB 2003 ".path" ne renvoie t'elle pas le chemin d'un fichier?

Pour avoir le chemin de la feuille Excel active, activeworkbook.path

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 12 Mai 2010

• #6

Re : Comment selectionner un chemin vers un répertoire, à l'aide d'un bouton Parcouri

Bonjour Ubot,
Re,

Il me semble que gimli (Gandalf m'en soit témoin 😉) cherche à noter dans une cellule le chemin d'un dossier qu'il pourra choisir au moyen d'un bouton

Le bouton appellera un Sub qui elle même pourrait appeler ma Function FoldPick pour écrire le chemin du dossier choisi dans la cellule

 

Vote positif 0 Vote négatif

U

Ubot303

XLDnaute Occasionnel

• 12 Mai 2010

• #7

Re : Comment selectionner un chemin vers un répertoire, à l'aide d'un bouton Parcouri

Ah 😀 J'ai du mal ce matin 😛

Dans ce cas, il suffit d'ajouter un contrôle (je ne sais pu lequel) qui permette d'aller selectionner un fichier dans une arborescence puis de noter via macro par ex le .path de ce fichier.

Ou cela coince-t'il?

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 12 Mai 2010

• #8

Re : Comment selectionner un chemin vers un répertoire, à l'aide d'un bouton Parcouri

Re,

Mais je ne sais pas, je ne suis pas demandeur, j'ai simplement proposé une solution... dans l'attente d'une réaction de gimli 😉

 

Vote positif 0 Vote négatif

U

Ubot303

XLDnaute Occasionnel

• 12 Mai 2010

• #9

Re : Comment selectionner un chemin vers un répertoire, à l'aide d'un bouton Parcouri

Je chercherais ptet le nom du contrôle qui affiche les disques et les arborescendes fichier en attendant sa réponse 😀

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 12 Mai 2010

• #10

Re : Comment selectionner un chemin vers un répertoire, à l'aide d'un bouton Parcouri

Re,

Personnelement je ne connais pas le contrôle, j'ai pris l'habitude d'utiliser FileDialog

 

Vote positif 0 Vote négatif

gimli

XLDnaute Occasionnel

• 12 Mai 2010

• #11

Re : Comment selectionner un chemin vers un répertoire, à l'aide d'un bouton Parcouri

RE, bonjour Ubot303,

je ne comprend pas trop ton code tototiti2008 =S je dois remplacer quoi comme valeur pour que ça marche ? qu'est ce que cette fonction fait exactement ? merci encore 🙂

 

Vote positif 0 Vote négatif

gimli

XLDnaute Occasionnel

• 12 Mai 2010

• #12

Re : Comment selectionner un chemin vers un répertoire, à l'aide d'un bouton Parcouri

tototiti2008 j'ai essayé ta fonction, il y a bien une fenêtre qui s'ouvre mais au final rien n'est retourné à la cellule cible...🙁
Sais-tu pourquoi ? merci

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 12 Mai 2010

• #13

Re : Comment selectionner un chemin vers un répertoire, à l'aide d'un bouton Parcouri

Re,

par la fumée de Smaug, je pensit que c'était clair 😉

un exemple :

 

Pièces jointes

• Classeur1.xls

  25.5 KB · Affichages: 226
• Classeur1.xls

  25.5 KB · Affichages: 240
• Classeur1.xls

  25.5 KB · Affichages: 257

Vote positif 0 Vote négatif

gimli

XLDnaute Occasionnel

• 12 Mai 2010

• #14

Re : Comment selectionner un chemin vers un répertoire, à l'aide d'un bouton Parcouri

Par les flammes d'Angmar ! Le résultat est bien ce que j'attendais, cependant je ne comprend pas tout (MP) 😉

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 12 Mai 2010

• #15

Re : Comment selectionner un chemin vers un répertoire, à l'aide d'un bouton Parcouri

Re,

donc je réitère ma réponse à ton MP (c'est mieux de continuer sur le fil, tout le monde en profite)

ça se passe là :

Code:

Sub EcritChemin() 
Range("Chemin").Value = FoldPick
End Sub

J'ai attribué le nom Chemin à la cellule jaune (Insertion - Nom - Définir), donc je peux utiliser son nom en VBA

La fonction FoldPick renvoie une Chaine (String) qui correspond au chemin choisi par l'utilisateur

 

Vote positif 0 Vote négatif