Lister ts les fichiers d'un repertoires prédéfini?

[Eric D]

Bonsoir à toutes et tous du forum,

Je recherchais une Macro qui me listerais tous les fichiers d'un repertoire.

J'ai trouver une Macro de Michel qui permet de choisir le repertoire. j'aimerais chunter cette possibilitée et de définir le repertoire par une variable 'rep', mais je n'y arrive pas.

Voici le code.

Merci pour votre aide.

Eric D [file name=ListView_Fichiers_et_icones_executables.zip size=27360]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ListView_Fichiers_et_icones_executables.zip[/file]

 

[MichelXld]

bonsoir Eric

j'espere que cette adaptation répondra à ta demande



bonne soiree
MichelXld [file name=ListView_Fichiers_et_icones_executablesV02.zip size=27267]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ListView_Fichiers_et_icones_executablesV02.zip[/file]

Message édité par: MichelXld, à: 07/04/2005 22:48

Message édité par: MichelXld, à: 07/04/2005 22:50

 

[Eric D]

Bonsoir Michel,

Je te remercie, c'est exactement ce que je cherchais à faire , mais mes competenses en VBA m'enpechaient de savoir où et comment faire la modif.

Bonne fin de soirée

Eric D

 

[Eric D]

Re Michel, le forum

C'est encore moi, je pensais m'en sortir, mais ce n'est pas le cas...
je souhaiterais pouvoir selestionner un fichier. Est ce tjs valable ou dois-je passer par une TextBox. On devrait pouvoir faire quelque chose avec ListView1.SelectedItem?

Merci pour ta solution ou a celle ou celui qui me la donnera

Eric D

 

[MichelXld]

bonjour Eric

s'il tu souhaites juste récuperer le nom sélectionné

MsgBox ListView1.SelectedItem.Text


et pour ouvrir le fichier par double clic sur le nom ( ne fonctionne pas pour tous les formats de fichiers)

ActiveWorkbook.FollowHyperlink Label1 & '\\' & ListView1.SelectedItem.Text

bonne journée
MichelXld

Message édité par: MichelXld, à: 08/04/2005 06:24

 

[Darkblaste]

Salut à tous

Bein voila moi je commence dans le VBA et j'ai une question vraiment bidon je pense pour vous 😱
Ou mettre cette ligne de code pour ouvrir le fichier par double clic sur le nom :

ActiveWorkbook.FollowHyperlink Label1 & '\\' & ListView1.SelectedItem.Text

?? 😱 😱 😱 😱 😱

Bein désolé de mon ignorance mais comme j'ai dit je commence en vba :S

Merci encore

 

[MichelXld]

bonsoir

tu peux utiliser l'evenement double clic des ListView

Private Sub ListView1_DblClick()
ActiveWorkbook.FollowHyperlink Label1 & '\\\\\\\\' & ListView1.SelectedItem.Text
End Sub


bonne soirée
MichelXld

 

[Darkblaste]

Merci MichelXld :lol: :lol: dsl je vien de voir que tu avais répondu comme j'avais ouvert un 2eme topics dessus :S

Merci encore et a tout le forum