Remettre le calendrier utilisé par les fichiers TRS
Suite au changement de PC, il se peut que le contrôle « MsCal » soit manquant. Cela se caractérise par une grosse croix rouge à l’emplacement habituel du calendrier des fichiers TRS.
Récupérer tous les fichiers « MSCALxxxxxxx.xxxx » dans le répertoire « C:\Windows\System32 » d’un PC « qui marche », et les copier dans le même répertoire du PC malade. Ces fichiers sont aussi dans la CléMrdTosh.
Dans Excel, afficher la barre d’icônes « Boite à outils Contrôles »
Choisir l’icône « Autres contrôles », puis le menu « Enregistrer le contrôle personnalisé… »
Dans la fenêtre qui s’ouvre, choisir le « MSCAL.OCX« .
Fermer puis ré-ouvrir le fichier Excel souhaité.
Calcul du caractère de contrôle EAN13
Pris sur le net:
Voici un exemple de calcul du caractère de contrôle d’un code EAN 13. Pour un code EAN 8, la procédure est la même, il y a seulement moins de chiffres à prendre en compte.
Code EAN 400763000011X –> X est le caractère recherché
Chiffres 4 0 0 7 6 3 0 0 0 0 1 1
Multiplier par 1 3 1 3 1 3 1 3 1 3 1 3
Résultat 4 0 0 21 6 9 0 0 0 0 1 3
Somme 4 + 0 + 0 + 21 + 6 + 9 + 0 + 0 + 0 + 0 + 1 + 3 = 44
Division par 10 44 / 10 = 4 reste 4
Caractère de contrôle 10 – reste = 6
Le code EAN final est donc dans ce cas 4007630000116.
Pris dans le programme « Reference Base » de Raf, procédure « TxtNuméro_Article_KeyPress »
‘ Calcul du checksum
If Len(TxtNuméro_Article.Text) = « 13 » Then
Dim l As Long, L2 As Long
l = Mid(TxtNuméro_Article.Text, 2, 1) * 3 + Mid(TxtNuméro_Article.Text, 4, 1) * 3 + Mid(TxtNuméro_Article.Text, 6, 1) * 3 + Mid(TxtNuméro_Article.Text, 8, 1) * 3 + Mid(TxtNuméro_Article.Text, 10, 1) * 3 + Mid(TxtNuméro_Article.Text, 12, 1) * 3 + Mid(TxtNuméro_Article.Text, 1, 1) + Mid(TxtNuméro_Article.Text, 3, 1) + Mid(TxtNuméro_Article.Text, 5, 1) + Mid(TxtNuméro_Article.Text, 7, 1) + Mid(TxtNuméro_Article.Text, 9, 1) + Mid(TxtNuméro_Article.Text, 11, 1)
L2 = l Mod 10
L2 = 10 – L2
If L2 = 10 Then L2 = 0
If L2 <> Mid(TxtNuméro_Article.Text, 13, 1) Or TxtNuméro_Article.Text = « 0000000000000 » Then
MsgBox (« Le numéro d’article est incorrect. » & vbCrLf & « La clé de contrôle n’est pas bonne (13ème chiffres) ou le code est égal à 0000000000000. »)
TxtNuméro_Article.Text = « 3389110000009 »
End If
End If