Lister un directory sans le .xls

[Temjeh]

Bonjour et merci d'avance
Dans ce code y a t il moyen de ne pas y avoir le .xls dans le nom qu'il importe:

Dim I As Integer, Chemin As String, Fichier As String
Chemin = "C:\Documents and Settings\Claude\Bureau\*.xls"
Fichier = Dir(Chemin)

Do While (Len(Fichier) > 0)
Me.ComboBox1.AddItem Fichier
Fichier = Dir()
Loop

J'ai pensé un replace ".xls" par "" dans la loop

Merci beaucoup

Temjeh

 

[chris]

Re : Lister un directory sans le .xls

Bonjour

Tu peux aussi ajouter après Fichier=Dir()

fichier=left(Fichier, len(fichier)-4)

 

[Temjeh]

Re : Lister un directory sans le .xls

Bonjour et merci pour l'info

Il y a .....ERREUR 5 D'ARGUMENT
Argument ou appel incorrect

Merci

 

[chris]

Re : Lister un directory sans le .xls

Re

Bizarre cela marche chez moi : l'as bien placé après l'autre ligne comme indiqué, donc dans la boucle ?

 

[Temjeh]

Re : Lister un directory sans le .xls

Merci
Voici un screen de l'initialize (.mp3 mais ca change rien je pense)

Temjeh

 

[Jam]

Re : Lister un directory sans le .xls

Salu Temjeh, chris,

Elle se produit où l'erreur ?

 

[Jam]

Re : Lister un directory sans le .xls

Au fait j'ai trouvé un post où une solution me parait être tout à fait adaptée à ton problème:
https://www.excel-downloads.com/thr...hier-dun-dossier-sans-leur-extensions.135053/

Bon courgae,

 

[chris]

Re : Lister un directory sans le .xls

Re

En fait le problème vient de la boucle

il faudrait placer la ligne avant me.combobox.additem

En effet dans un do while l'abandon n'a lieu qu'au moment du loop : donc le dir() qui renvoie un nom vide donne une variable fichier de longeur nulle d'où l'erreur

PS : il me semble qu'à l'inverse, dans un while condition do , dès que le condition est fausse cela s'interromp.

 

[Temjeh]

Re : Lister un directory sans le .xls

Merci beaucoup
Jam pour le début et chris pour la fin.
Effectivement en changeant de ligne.

Merci

temjeh