DriveList,FileList...

[Aurore]

Bonjour à tout le forum

Je voudrais créer une driveList, une fileList, et une DirList...Je viens d'apprendre que cela n'etait pas possible avec excel qui ne fourni pas d'outils pour les créer.
Quelqu'un aurait il un code source me permettant de naviguer dans les répertoires pour choisir mon fichier

Par contre g fait une recherche sur ce site ou il est donné une adresse pour utiliser une ActiveX mais je n'ai pas réussi à la lire ici, je ne dois pas avoir les logiciels appropriés...
je vous donne l'adresse au cas ou certains seront interesse
http://fred.just.free.fr/francais/index.html


Je vous remercie tous par avance pour votre aide qui me sera d'un tres grand secours

Aurore

 

[Roland]

Bonjour à tous


Essaie
Application.GetOpenFilename
qui ouvre une boite de dialogue et te renvoie le fichier choisi


Amicalement Roland

 

[Aurore]

Merci Roland

C excatement ce qu'il me fallait

 

[Bouba]

Comment faire

Bonjour à tous
j'ai ce code qui fonction tres bien par contre j'aimerai bien qu'il arrete de mettre les donner dans une autre feuilles.

merci


Private Sub TextBox1_Change()
If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "" Or TextBox4.Value = "" Then MsgBox "Veuillez remplir toutes les données !": Exit Sub
Dim i As Integer
i = 9
Do While ActiveWorkbook.ActiveSheet.Range("D" & i) <> ""
i = i + 1
Loop
ActiveWorkbook.ActiveSheet1.Range("B" & i) = TextBox1.Value
ActiveWorkbook.ActiveSheet1.Range("C" & i) = TextBox2.Value
ActiveWorkbook.ActiveSheet1.Range("D" & i) = TextBox3.Value
ActiveWorkbook.ActiveSheet1.Range("E" & i) = TextBox4.Value

TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
End Sub