Recherche de fichiers qui ne contiennent pas une lettre précises

[apt]

Bonsoir à tous,

Cette macro est pour rechercher tous les fichiers dont leurs noms commencent par "P" :

'-------------------------------------
Sub ChercheFichier()
Set fs = Application.FileSearch
With fs
.LookIn = "C:\Fichiers"
.FileName = "P*"
If .Execute > 0 Then
MsgBox .FoundFiles.Count & " Fichier(s) ont été trouvés."
For I = 1 To .FoundFiles.Count
MsgBox .FoundFiles(I)
Next I
Else
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
End Sub
'-----------------------------------

Alors comment faire pour trouver dans un répertoire tous les fichiers qui ne contiennent pas dans leurs noms la lettre "P" par exemple ?


Merci.

 

[Staple1600]

Re : Recherche de fichiers qui ne contiennent pas une lettre précises

Bonsoir

EDITION :La c'est un peu mieux

Sub test()
Dim Chemin As String
Dim Type_FICHIER As String
Chemin = "C:\Temp\"
Type_FICHIER = "*.xls"
Dim Fichier_SUIVANT As String
Fichier_SUIVANT = Dir(Chemin & Type_FICHIER)
While Not Fichier_SUIVANT Like "P*"
MsgBox Fichier_SUIVANT
On Error GoTo Fin
Fichier_SUIVANT = Dir
Wend
Fin:
Exit Sub
End Sub

Cela semble fonctionner, (mais parfois y a comme un bug lol)

Sub test()
Dim Chemin As String
Dim Type_FICHIER As String
Chemin = "C:\Temp\"
Type_FICHIER = "*.xls"
Dim Fichier_SUIVANT As String
Fichier_SUIVANT = Dir$(Chemin & Type_FICHIER)
While Not Fichier_SUIVANT Like "P*"
MsgBox Fichier_SUIVANT
Fichier_SUIVANT = Dir$
Wend
End Sub

edit:

 

[apt]

Re : Recherche de fichiers qui ne contiennent pas une lettre précises

Merci Staple1600,

Dans mon répertoire, j'ai un fichier Excel qui utilise d'autres
fichiers DOS (Sans extension).

Les fichiers DOS se trouvent forme de :

- B* (B5, B6, B7)
- P* (P B5, P B6, P B7, P TI)
- TI

Comme les fichiers B* et TI contiennent les mêmes types de données. Alors ils devront être décomptés ensemble.

De même pour les fichiers P*.

(Soit 4 fichiers entre les B* et TI et 4 autres fichiers pour les P*)

Comment devra être le code dans ce cas ?

Merci.