afficher une liste en occultant certains fichiers

[satwaf]

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]

Re : afficher une liste en occultant certains fichiers

Bonjour,

essaye peut être ceci, non testé :

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

bon après midi
@+

 

[satwaf]

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]

Re : afficher une liste en occultant certains fichiers

Re,

essaye avec la fonction "InStrRev" :

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

 

[satwaf]

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]

Re : afficher une liste en occultant certains fichiers

Bonjour Satwaf, Pierrot

Tu peux aussi tester ce 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