Utilisation de fonction selection de dossier

[uriel]

Bonjours,
J'ai cette fonction qui me permet de selectionner un dossier:

Function ChoisirDossier()
Dim ObjShell, objFolder, SecuriteSlash As Byte
Set ObjShell = CreateObject("Shell.Application")
Set objFolder = ObjShell.BrowseForFolder(&H0&, "Choisissez un répertoire", &H1&, "c:\Documents")
If objFolder Is Nothing Then GoTo EndProc
If Left(objFolder.self.Path, 2) = "::" Then GoTo EndProc
ChoisirDossier = objFolder.self.Path
SecuriteSlash = InStr(objFolder.Title, ":")
If SecuriteSlash > 0 Then ChoisirDossier = Left(ChoisirDossier, Len(ChoisirDossier) - 1)
EndProc:
Set objFolder = Nothing
Set ObjShell = Nothing
End Function

Mais, je n'arrive pas à l'utiliser. Je dois m'en servir pour que la macro ouvre un certains nombres de fichiers txt de nom connu et invariable (Data.txt; Profil.txt et Pdf11.txt). Mais je n'arrive pas a relier les deux.

Merci

 

[Creepy]

Re : Utilisation de fonction selection de dossier

Bonjour le Forum, Uriel,

Uriel tu aurais dû continuer à poster dans ton précedent fil, il ne fallait pas en créer un nouveau pour finalement une même problème général.

Bref ce n'est pas grave.

Ci dessous le code d'un bouton qui appelle cette fonction. Ce code demande le repertoire de travail, liste tous les fichiers .xls et affiche leurs noms dans un boite de message.

Private Sub Select_Repertoire()
Dim Fichier As String
Dim Rep_Travail As String
Rep_Travail = ChoisirDossier & "\" '<- ICI Appel de la fonction
 
Fichier = Dir(Rep_Travail & "*.xls") 'Liste tousles fichiers xls du repertoire choisi
Do While Fichier <> "" ' tant qu'il y a un fichier xls
    mssgbox Fichier ' affiche son nom
Loop
End Sub

A+

Creepy

 

[uriel]

Re : Utilisation de fonction selection de dossier

Oh! Merci, sa marche super!🙂

Désolé pour le nouveau sujet, la prochaine fois je ferais gaffe.

En tout cas, merci, sa nous dépanne bien.

A bientôt!

 

[alucard_xs]

Re : Utilisation de fonction selection de dossier

bon je fais remonter ce sujet un peu, chez moi la boucle est infinie ... est ce normal?