Excel doit être installé sur le PC où doit tournée l'appli, si ce n'est pas le cas, la référence à EXCEL dans 'projet -->références' doit être notée manquante.
Je ne vois que cela, je viens de vérifier, l'appli tourne très bien chez moi....mais en effet, le pack office est présent sur mon PC.
@+
Jimy

Bonsoir jm

Dans Source\form du zip vous trouverez le fichier MSCAL.ocx à mettre dans le dossier WINDOWS\SYSTEM32 de votre PC, c'est ce qui vous pose un PB de date.
Dans le Lisez-moi, je propose de placer le dossier 'GARDE4  a la racine de C:/. C'est une erreur de frappe, ils'agit du dossier 'GARDE'.
N'hesitez pas à apporter vos idées et critiques ou encore à noter cette source.

Bonne prog
Jimy

Salut WarriorProg

Tout d'abord merci pour ton code, bien commenté et soigné..

Je poste pour ta fonction 'GetEtat', telle que je la vois, elle ne peut pas retranscrire en binaire (chaque checkbox etant un bit)la valeur inp32(AdresseEtat). Pour cela il ne faudrais pas commencer par comparer le bit de poids faible, mais par celui de poids fort, soit 2^7, puis 2^6, etc...
donc:

Public Function GetEtat(ByVal Adr As String) As Boolean
Dim i As Integer
Value = Inp32(Adr)
Text5.Text = Value

    For i = 0 To 7
        If Value >= 2 ^ (7 - i) Then
            Form1.ChEtat(7 - i).Value = 1
            Value = Value - (2 ^ (7 - i))
        Else
            Form1.ChEtat(7 - i).Value = 0
        End If
    Next i
End Function

Ou est-ce une question de logique inversée?
J'ai du mal à saisir, merci de ton aide...

Bien, je m'incline devant tant d'expérience, ton code et bien plus ...optimisé!
Mais sans vouloir te paraitre têtu, voir chi...Autant qu'utilisateur, j'apprécie de pouvoir saisir une date sans separateurs.22101972 pour la voir validé en 22/10/1972. mais peut-être suis-je le seul?!
Mais voyant ton niveau et le mien,c'est sans doute beaucoup de ligne pour peu de choses, j'en conviens.

Merci de ta participation.

Par contre, merci pour 'CLng', je ne connaissais pas et c'est très pratique.

Salut,

Merci de ton interet,mais je ne suis pas d'accord avec toi, en effet:

si LaDateChaine = "21à12@1990"
madate = Format(LaDateChaine, "DD/MM/YYYY") renvoi 21à12@1990

de même si si LaDateChaine = "21121990" une erreur "depassement de capacité" intervient.

Le but de cette fonction est de palier à l'absence de separateur ou au séparateurs non conforme à une date.