Très bien fait.

Simple et efficace.
Ça m'a bien rendu service.
Merci

Extra,
Tu m'a fais gagner un temps précieux.
9/10

Bonjour Abousamy
Pour InStrRev, je ne connaisais pas cette fonction.
L'important est d'éliminer les blancs de fin de chaine et de placer le "\" final afin de pourvoir le réutiliser pour nos noms de fichier et\ou sous répertoire.

Bonne programation.

J'ai réussi à le faire fonctionner.
j'ai renomer suiveur.frm en folow.frm
et Tout va bien

Quand j'ouvre le projet dans VB6, un message m'indique qu'il manque le fichier Folow.frm.

Merci

Bonjour ramanvda
Vérifie le résultat de la fonction Left(dDate, 4)
Tu devrais y voir l'année ex.: "2005".
Le principe est de soustraire 2 dates.
Tu peux esseyer en inversant la fonction de date

oDate = "01/01/" & Right(dDate,4)

Écrits tes résultats sur cette page pour le bénéfice de tous.

Je ne peux pas décompresser le fichier .zip

Division par zero avec nombre de décimales 110 fréquence d'enregistrement 5.
Ligne qu génère l'erreur
Tmp = Int(Tmp * (nb - h) / (h - deb) )
Ma correction pour éviter le problème est
Tmp = Int(Tmp * (nb - h) / ((h - deb) + 1))
Je ne sais pas si cela cause des erreurs pour le résultat des calculs.
Interface original.
8/10

Énorme.
J'ai adapteé et inclus ton source à un de mes programme.
Mintenant, C'est le programme qui détecte et décompresse les fichiers que j'ai besoins. Il n'y a plus d'intermention humaine.
Merci, tu m'a rendu service.
10/10