Ouvrir l'interface de sélection de dossier

Voir le sujet précédent Voir le sujet suivant Aller en bas

Ouvrir l'interface de sélection de dossier

Message par Ramex13 le Lun 30 Mar 2015 - 6:28

Bonsoir tout le monde,

Je rencontre un petit souci sur une macro en ce moment: sans entrer dans les détail, quelqu'un saurait me dire comment on ouvre l'interface windows pour la sélection d'un dossier?

Je sais déjà comment faire avec un fichier (CATIA.FileSelectionBox()) mais ce n'est pas ce que je recherche à faire...

Merci Smile

Ramex13
actif
actif

Messages : 30
Date d'inscription : 13/09/2014
Age : 23
Localisation : Aix-en-Provence

Revenir en haut Aller en bas

Re: Ouvrir l'interface de sélection de dossier

Message par raphael_59240 le Lun 30 Mar 2015 - 7:11

bonsoir,


dans un de mes prog vba ...excel j ai utiliser ceci

Private Sub choix_dossier()
   Dim objShell As Object, objFolder As Object, oFolderItem As Object
   Dim Chemin As String
   
   'récupère le nom du répertoire sélectionné

   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
   
   If Chemin = "" Then
       Exit Sub
   End If
   
   ElementsRepertoire Chemin
End Sub

c'est peux etre utile?qui sait?....
A+

raphael_59240
actif
actif

Messages : 123
Date d'inscription : 28/03/2015
Age : 46
Localisation : dunkerque

Revenir en haut Aller en bas

Re: Ouvrir l'interface de sélection de dossier

Message par Ramex13 le Lun 30 Mar 2015 - 7:21

Mais c'est que ça fonctionne nickel tout ça !

Merci bien l'ami tu m'enlèves une épine du pied cheers

Ramex13
actif
actif

Messages : 30
Date d'inscription : 13/09/2014
Age : 23
Localisation : Aix-en-Provence

Revenir en haut Aller en bas

Re: Ouvrir l'interface de sélection de dossier

Message par raphael_59240 le Lun 30 Mar 2015 - 8:16

A t on service. . Smile

raphael_59240
actif
actif

Messages : 123
Date d'inscription : 28/03/2015
Age : 46
Localisation : dunkerque

Revenir en haut Aller en bas

Re: Ouvrir l'interface de sélection de dossier

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum