Sélection de dossier sous VBA?

3D Design Volume Model
1

Bonjour,

Lorsque je demande de sélectionner un dossier dans VBA, je trouve le cheminement pas intuitif du tout. Quelqu'un connaitrait une commande permettant d'ouvrir une fenêtre type Explorateur Windows qui permettrait un développement des dossiers par double clic ?

J'utilise la commande suivante :

'Choix dossier
 FlagChoix = &H1
    Msg = "Sélectionner un dossier :"
    Set objShell = CreateObject("Shell.Application")
     On Error Resume Next
        Set objFolder = objShell.BrowseForFolder(&H0&, Msg, FlagChoix)
         If NbPoint = 0 Then
         Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & ""
         Else
         Exit Sub
         End If

 

Merci d'avance,

1 « J'aime »
2

Bonjour,

J'ai créé un petit tutoriel pour ouvrir l'explorateur Windows pour choisir un dossier, c'est assez pratique :

http://www.lynkoa.com/tutos/3d/selectionner-un-repertoire-en-vba

Si le tutoriel ne fonctionne pas je peux mettre le fichier en PJ ici, il suffit de demander.

2 « J'aime »
3

Bonjour,

Je veux bien le fichier en PJ, les tutos ne marchent aps chez moi à priori...

Merci!

1 « J'aime »
4

Peut-etre un bug, parceque j'y ai pas accès non plus à ton tuto @PL

1 « J'aime »
5

Oui les tutoriels ne fonctionnenet pas, c'est un bug signalé au staff, et malheureusement il n'a pas été résolu avec la mise à jour du 1er octobre...

http://www.lynkoa.com/tutos/3d/selectionner-un-repertoire-en-vba

 

Le code à inclure dans une macro est ici :

http://we.tl/C85tB1qRGr

3 « J'aime »
6

Du coup, je le recupere aussi, ca pourra toujours me servir un jours. Haha

1 « J'aime »
7

.PL, serait-il possible d'envoyer aussi le tutoriel ? Le code ne fonctionne pas chez moi, il m'aiderait peut-être à comprendre...

"FileDialog" n'est pas reconnu. Si tu as une piste je suis preneur, sinon je creuserai dans quelques temps.

A +

 

8

Salut,

Avec un peu de recherche :

FilleDialog : https://msdn.microsoft.com/fr-fr/library/office/ff836226.aspx

Il existe des dizaines d'exemples sur le web

1 « J'aime »
9

Désolé mon code précedent fonctionne pour Excel, et j'ai présumé qu'il fonctionnerait aussi pour SolidWorks sans tester mais ça n'est pas le cas !

Voilà le bon fichier :

http://we.tl/CgWO3GxU8T

Et le bon tutoriel :

http://www.lynkoa.com/tutos/solidworks/api-solidworks-explorateur-windows-pour-selection-de-fichier-vba-0

 

 

2 « J'aime »
10

@remrem : justement c'est le FileDialog qui n'est pas compatible avec SolidWorks, mais uniquement Excel !

1 « J'aime »
11

Je me met -1 !

;-)

1 « J'aime »