afficher une liste en occultant certains fichiers

satwaf · 25 Janvier 2012

j'ai cette ligen de code dans ma macro Ui sert a recuperer dans une feuile excel tous les noms de fichiers d'un dossier,et je m'apercois que si le nom de fichier comporte un point autre que celui avant l'extension , alors il n'est pas pris en compte dans la liste. comment puis solutionner mon problême.

If Mid(Fichier.Name, InStr(Fichier.Name, ".")) Like ".xl*" Then 'On affiche que les fichiers excel

de plus je me suis aperçu que la liste afficher des fichier commencant par ~$ je pense que ce sont des fichiers temporaires, et j'aimerai aussi les occulter, quel type de code puis je mettre en remplacement de mes ???? en sachant que je ne connais pas a l'avance le nom des fichiers

If Fichier.Name <> "~$" & ??????? Then

merci a tous par avance pour votre aide

Pierrot93 · 25 Janvier 2012

Re : afficher une liste en occultant certains fichiers

Bonjour,

essaye peut être ceci, non testé :

Code:

If Not Fichier.Name Like "~$*" And Fichier.Name Like "*.xl*" Then

bon après midi
@+

satwaf · 25 Janvier 2012

Re : afficher une liste en occultant certains fichiers

merci pierrot ca fonctionne , la seule chose c'est qu'a la suite de ce code j'ai ajouté une ligne demandant d'afficher le nom du fichier sans l'extension, et domme dans la liste j'ai un fichier qui comporte un point en plein mileu du nom, ca tronque la moitié du nom

If Not Fichier.Name Like "~$*" And Fichier.Name Like "*.xl*" Then
I = I + 1
'Fichiers avec extension
Cells(I, 2) = Fichier.Name ' Nom du fichier
'Fichiers sans extension
'Cells(I, 2) = Left(Fichier.Name, InStr(Fichier.Name, ".") - 1)

Pierrot93 · 25 Janvier 2012

Re : afficher une liste en occultant certains fichiers

Re,

essaye avec la fonction "InStrRev" :

Code:

MsgBox Mid(Fichier.Name, 1, InStrRev(Fichier.Name, ".") - 1)

satwaf · 25 Janvier 2012

Re : afficher une liste en occultant certains fichiers

j'ai modifié légérement le code pour avoir ceci

Cells(I, 2) = Mid(Fichier.Name, 1, InStrRev(Fichier.Name, ".") - 1)

et!!! ca fonctionne parfaitement

merci pierrot, mon apres midi ne peut être que bonne aprés ça

MJ13 · 25 Janvier 2012

Re : afficher une liste en occultant certains fichiers

Bonjour Satwaf, Pierrot

Tu peux aussi tester ce code:

Code:

Sub Liste_Fichiers_Ext_XLS_DossierEnCours_compr()
'MJ
    t1 = Timer: Sheets.Add: Ext = "xls": ChDir ActiveWorkbook.Path
    i = 1: z = Dir("*." & Ext, 1)
    While z <> ""
        If Left(z, 1) = "~" Then GoTo suite
        If z <> ActiveWorkbook.Name Then ActiveSheet.Cells(i + 1, 1).Value = z: i = i + 1
suite:
        z = Dir
    Wend
    MsgBox Timer - t1
End Sub

afficher une liste en occultant certains fichiers

satwaf

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

satwaf

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

satwaf

XLDnaute Occasionnel

MJ13

XLDnaute Barbatruc

Discussions similaires

afficher une liste en occultant certains fichiers

satwaf

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

satwaf

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

satwaf

XLDnaute Occasionnel

MJ13

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency