mettre ds list box nom de classeurs

[julie]

REbonjour a vous tous,


je voudrais mettre dans une listbox le nom de plusieurs classeur dont les 7 premieres lettres sont 'externe'
je voudrais en selectionant un de ces noms ds ma listbox 'externe...' et en cliquant sur 'ok' arriver directement sur le classeur.

qqn peut-il m'indiquer le code a ecrire?

merci

 

[Creepy]

Bonjour,

Petite question, tu souhaites ta listebox sur une feuille en particulier ou sur une Userform ?

Si c'est sur une Feuille pourquoi ne passes tu pas par les liens hypertextes plutôt ?

++

Creepy

 

[julie]

salut creepy,

je cherche a mettre tout ca ds une userform

merci de repondre

 

[Julie]

rebonjour,

qqn peut-il m'aider?

merci

 

[julie]

je relance ma demande

merci d'avance

 

[michel_m]

Bonjour,

Tes fichiers 'externes*'sont ils dans le même répertoire ?

A propos, j'avais ( moi et/ou d'autres) lu ton fil mais j'ai eu un boulot à faire de suite, donc, inutile de t'impatienter sur ce forum. voir la charte

Michel

 

[julie]

salut,

pour repondre a ta question mes classeurs sont dans le meme dossier : ''fichiers_externes''

 

[julie]

re,

voila ce que j'ai reussi a faire mais ca ne marche pas :

Private Sub UserForm_Activate()
Dim nbre As Integer
Dim i As Integer
nbre = Worksheet.Count

For i = 1 To nbre
If Mid(Sheets(i).Name, 1, 7) = 'externe' Then
ListBox1.AddItem worksheets(i).Name
End If
Next i

End Sub


qqn a t'il une idee?

merci

 

[ChTi160]

Salut julie

bonsoir le Fil

julie ce dont tu parles ce ne sont pas des Fichiers mais des Feuilles d'un Classeur à en croire la macro que tu présentes
en pièce jointe ce que j'ai compris
n'hésite pas [file name=NomFeuilleDansListBox.zip size=9763]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/NomFeuilleDansListBox.zip[/file]

 

[_Thierry]

Bonsoir Julie, Michel, Creepy, le Forum

Ta dernière macro Julie concer des feuille dans un classeur et plus des Fichiers dans un Répertoire...


Enfin sinon j'ai ça sous le coude :

Materiel : Une List Box Dans un UserForm et ceci :

Option Explicit

Dim Chemin As String

Private Sub UserForm_Initialize()
Dim ThisBookPath As String
Dim ChercheFichier As FileSearch
Dim i As Integer

Set ChercheFichier = Application.FileSearch
ThisBookPath = ThisWorkbook.Path
Chemin = ThisBookPath 'changer ici pour mettre un répertoire fixe

    With ChercheFichier
        .NewSearch
        .Filename = '*externe*.XLS'
        .LookIn = Chemin
        .SearchSubFolders = False
        .Execute msoSortByFileName, msoSortOrderAscending
            If .Execute > 0 Then
                With .FoundFiles
                    For i = 1 To .Count
                        ListBox1.AddItem Dir(.Item(i))
                    Next i
                End With
            Else
                MsgBox 'Pas de Fichier trouvé dans ' & Chemin
            End If
    End With
Set ChercheFichier = Nothing
End Sub


Private Sub ListBox1_Click()
Workbooks.Open Chemin & ListBox1
End Sub

Bonne Soirée
@+Thierry

 

[ChTi160]

Re Salut @+Thierry

j'ai compris la même chose que toi
et moi je suis content car je récupère une de tes Macro Lol
il faut attendre pour Voir et Savoir Lol
merci quand même Lol

 

[ChTi160]

re je viens de tester et je n'obtiens rien
si ce n'est pas de fichier trouvés etc
j'ai crée deux fichiers externe_Un et externe_Deux que j'ai placé dans le même répertoire que le fichier d'ou je lance la recherche peux tu me dire pouquoi tu ecrit '*externe*.XLS' le problème ne vient il pas de là ??????Lol
merci d'avance

Message édité par: Chti160, à: 06/07/2005 22:05