Discussion :

[Windaube]

Bonjour,

J'aurais besoin d'avoir un bouton parcourir dans une feuille excel et qui enregistre le chemin qu'on à choisir, dans une cellule.

Mais je ne sais pas trop comment faire. Quelqu'un pourrait-il m'aider?

C'est pour choisir un dossier et non des fichiers.

Merci

[jfontaine]

Regards du coté de

Code :

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

1
2
 
Application.FileDialog(msoFileDialogFolderPicker).Show

[Windaube]

Je n'arrive pas à le faire fonctionner

J'ai le code suivant:

Code :

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

CheminEtNom = Excel.Application.GetOpenFilename("Fichiers pdf (*.pdf),*.*", Null, "selection")

Qui permet de parcourir afin de d'ouvrir un fichier .pdf

A mon avis on peut facilement modifier ce code pour mes besoins mais je n'y arrive pas... j'a essayé avec ce que tu m'a proposé mais rien à faire... je dois faire faux

[jfontaine]

Il y a e pas mal de post assez récemment sur ce sujet.

Code :

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

1
2
3
4
5
6
 
With Application.FileDialog(msoFileDialogFolderPicker)
    .Show
    Range("A1").Value = .SelectedItems(1)
 
End With

petitte correction pour les fichiers c'est

Code :

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

With Application.FileDialog(msoFileDialogFilePicker)

l'exemple précédent c'est pour choisir un répertoire

[SilkyRoad]

bonjour

Code :

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

Application.FileDialog(msoFileDialogFolderPicker).Show

Cette propriété est uniquement valable à partir d'Office 2002. Quelle version utilises tu?



Tu peux tester cette autre procédure pour choisir un répertoire:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Dim objShell As Object, objFolder As Object, oFolderItem As Object
    Dim Chemin As String
 
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
 
    On Error Resume Next
    Set oFolderItem = objFolder.Items.Item
    Chemin = oFolderItem.Path
 
    MsgBox Chemin

bonne journée
michel

[Windaube]

Arf ben voila le client est sur office 2000 c'est vrais que ça change beaucoup

je vais essayer le deuxieme code