nombre de fichier identique

[rafi]

Bonjour a tous,
Voila, je voudrais faire quelque chose mais je ne sais pas si cela est possible.
J'ai un dossier avec plus de 2000fichiers a l'interieur dont les noms des fichiers sont de cette forme la:
"nom prenom_jjmmaa.xls" (jjmmaa representent bien evidemment la date)

Une personne peut etre venue deux fois, elle aura donc par exemple un fichier nommé "Premier Francois_110313.xls" et au autre "Premier Francois_010113.xls" et je voudrais savoir le nombre de personnes differentes venues (donc Premier Francois, meme si il est venu 15fois, cela ne compte qu'une seule fois)

Merci d'avance !

 

[kjin]

Re : nombre de fichier identique

Bonjour,
Indique le véritable chemin du dossier à scrupter dans la procédure auparavant

Set d = CreateObject("Scripting.Dictionary")
f = Dir("x:\xxx\xxx\*.xls") 'indique ici le véritable chemin du dossier à scrupter
Do Until f = ""
    If f Like "*_*" Then
        t = Split(f, "_")
        If Not d.exists(t(0)) Then d.Add t(0), t(0)
    End If
    f = Dir
Loop
MsgBox "Il y a " & d.Count & " noms différents dans le dossier"

A+
kjin

 

[rafi]

Re : nombre de fichier identique

et j'en fais quoi de ca ?!

 

[kjin]

Re : nombre de fichier identique

Re,

et j'en fais quoi de ca ?!

un petit bonjour, merci sont toujours agréables...!
Bon ça se complique...car sans macro
N'as tu jamais utilisé le VBA ?
A+
kjin

 

[rafi]

Re : nombre de fichier identique

non

 

[rafi]

Re : nombre de fichier identique

je viens de regarder sur le net mais j'ai rien trouvé de specifique.
Mon chemin de direction est le suivant
C:\Users\***\Desktop\MGS-CR\Private

 

[kjin]

Re : nombre de fichier identique

Re,

je viens de regarder sur le net mais j'ai rien trouvé de specifique.

Non effectivement, elle n'est pas sur le net, elle est sous ton nez !
Mais moi la politesse, j'en use et j'en abuse
A bon entendeur
kjin

 

[rafi]

Re : nombre de fichier identique

pas tout compris...