Bouton "Explorer dossier", mais...

[ted69000]

Bonjour

Mais, il y a un mais...
Plutôt que de devoir entrer dans la macro un chemin en dur, je voudrais qu'il soit relatif, par exemple montrer les fichiers qui sont au même niveau que le xls en cours...

Merci à vous
ted

 

[mromain]

Re : Bouton "Explorer dossier", mais...

Avec

ThisWorkbook.Path

tu as le chemin du classeur


A+

 

[tototiti2008]

Re : Bouton "Explorer dossier", mais...

Bonjour Ted 69000,

Peut-être avec quelque chose comme ça :

Sub ChoixDoss()
Dim FD As FileDialog
Set FD = Application.FileDialog(msoFileDialogFolderPicker)
FD.InitialFileName = ThisWorkbook.path & "\"
FD.AllowMultiSelect = False
FD.Show
MsgBox FD.SelectedItems(1)
End Sub

 

[ted69000]

Re : Bouton "Explorer dossier", mais...

Bonjour

Merci à vous !

tototiti
ça marche en local, faut que je vois sur un disque réseau...
Un p'tit soucis : la fenêtre d'exploration ainsi ouverte attend un nom de dossier, avec erreur à la clef...
Je souhaite ouvrir le dossier dans lequel se trouve le xls, et pouvoir cliquer sur un fichier, pdf par exemple, et l'ouvrir (pas dans excell, mais avec son appli source)...

A+
Ted

 

[tototiti2008]

Re : Bouton "Explorer dossier", mais...

Bonjour à tous,

Tu parles d'un bouton "Explorer dossier" mais en fait tu veux choisir un fichier ?
essaye avec

Set fd = Application.FileDialog(msoFileDialogOpen)
fd.Filters.Clear
fd.Filters.Add "Tous", "*.*"
fd.InitialFileName = ThisWorkbook.Path & "\" & ThisWorkbook.Name

 

[ted69000]

Re : Bouton "Explorer dossier", mais...

re bonjour (Je l'ai déjà dit...😉)

tototiti, stp, mon niveau en vba ne me permet pas d'exploiter tes infos.Tu pourrais reprendre ton dernier message et me faire un fichier exemple ?

Merci d'avance
Ted

 

[ted69000]

Re : Bouton "Explorer dossier", mais...

bonjour à tous

Help tototiti...
Je ne sais pas (j'ai essayé...) mettre en oeuvre ton extrait de code !
Merci
ted

 

[tototiti2008]

Re : Bouton "Explorer dossier", mais...

Bonjour à tous,

ça doit donner ça :

Sub ChoixDoss()
Dim FD As FileDialog
Set fd = Application.FileDialog(msoFileDialogOpen)
fd.Filters.Clear
fd.Filters.Add "Tous", "*.*"
fd.InitialFileName = ThisWorkbook.Path & "\" & ThisWorkbook.Name FD.AllowMultiSelect = False
FD.Show
MsgBox FD.SelectedItems(1)
End Sub

 

[ted69000]

Re : Bouton "Explorer dossier", mais...

Hello everybody

Tototiti,
A l'exécution, j'ai une erreur sur "FD as filedialog", message :Erreur de compilation, type défini par l'utilisateur non défini...

Par ailleurs, mais encore un truc de débutant, j'ai créée un bouton pour l'exécuter, et je ne truve plus le moyen d'affecter la macro !
clic droit sur bouton, il me semblait que c'était ici !
J'ai essayé dans les deux modes (création ou non)...

Merci
ted

 

[tototiti2008]

Re : Bouton "Explorer dossier", mais...

tu as quelle version d'excel ?

 

[ted69000]

Re : Bouton "Explorer dossier", mais...

Re salut

2000...
C'est pour les besoins Pro (objet du fil),
Et 2002 at home.
Au boulot, on a plutôt au service info des pro-libre, donc je n'ai pas trop d'espoir que cela évolu.
Est il possible qu'il n'y ait pas compatibilité descendante pour finalement une question relativement simple (par pour moi 😉) ?
Merci
A+

 

[tototiti2008]

Re : Bouton "Explorer dossier", mais...

ahhh... j'ai peur que les filedialog n'existent pas en XL 2000...

Il va falloir fouiller vers les Application.Dialogs().show...
Mais malheureusement, là, je manque de temps.

 

[ted69000]

Re : Bouton "Explorer dossier", mais...

Bonjour à tous

Donc pas d'idée en compatible 2000 d'explorer un dossier ?
(CàD ouvrir le dossier spécifié, et avoir la possibilité de cliquer sur un fichier (pdf en l'espèce) pour l'ouvrir, dans son appli d'origine).

Merci à vous
NB : c'est pour rajouter une fonctionnalité à un dévelppement en cours...
Ted

 

[MJ13]

Re : Bouton "Explorer dossier", mais...

Bonjour ted,

ce sujet a déjà été évoqué des dizaines de fois sur ce forum. Fais une recherche!

 

[ted69000]

Re : Bouton "Explorer dossier", mais...

Bonsoir

J'y vais de ce clic...

Bonne soirée
thierry