[Access] Générer un code barre

Tu peux trouver ça dans les spécifications du code, mais c'est des fois un peu compliqué...

Alors ce que je propose, c'est d'utiliser autre chose que le EAN, le code 39, c'est un code utilisé dans l'industrie, car il est robuste et auto-contrôlé...

Tu peux le charger ici :

http://www.squaregear.net/fonts/free3of9.shtml

Il te suffit ensuite d'imprimer ton code produit avec la police désirée, en n'oubliant pas de mettre une '*' au début et à la fin...

Ensuite, tu n'oublieras pas de tester avec une douchette avant de l'acheter...

Ou alors, tu vas sur le site suivant :

http://francis.georges.free.fr/manuel/manuel.html#_Toc421162935

Et tu construis ton scanner !

En passant, il est expliqué le fonctionnement du code 39...

Si tu y tiens, j'ai a ma disposition une feuille excel dont je me sers pour imprimer des étiquettes pour des cartouches magnétiques, avec le code VBA qui fait tout...

@bluxBonsoir,

J'ai le même soucis que pour lizak. je dois éditer des étiquettes codes à barres. Peux tu également m'envoyer ta feuille excel que tu te sers pour imprimer tes étiquettes avec la code VBA...

merci, ha oui, mon mail: Adresse supprimée Modération CCM

@bluxSalut,
J'ai vu ton post pour la feuille Excel afin de générer des étiquettes EAN13.

Peux tu me l'envoyer stp?

Merci d'avance.

Eschasse

@Eschasseva falloir lire les messages jusqu'au bout, j'y donne un lien...

et c'est tant mieux finalement, car je ne vais pas deviner ton adresse mail...

@bluxSalut,

J'ai vu ton post pour la feuille Excel afin de générer des étiquettes EAN13.

Peux tu me l'envoyer stp?

Merci d'avance.

Al94

Dès que tu m'auras envoyé une adresse ;-)

Ne mets pas de @, si tu l'affiches, ça évitera aux robots de venir la piquer...

Mets plutôt : toto point tata chez pouet point com :-)

bonjour
je sais que votre annonce date un peu mai je recherche comment lire mes codes barre et votre document excel m'interresse.. j'espere que tu pourra me l'envoyer!!
merci d'avance mon adresse:Adresse supprimée Modération CCM

Bonjour,

J'ai une application access à réaliser avec des code-barres 39.
Pourrais-je recevoir de ta part tout ce qu'il me faut en détails ?
Tu as une expérience dans ce domaine moi pas.
Merci par avance avec un retour gagnant gagnant dans la
mesure de mes possibilités
slts
-----------------------------------------------------------
"Un chercheur trouveur" c'est :
Une graine de folie,
Une overdose de créativité,
Un zeste de génie
Un concentré de patience

Salut,

les détails sont expliqués plus haut.

Je ne peux que t'envoyer une feuille excel (je n'ai pas eu de besoin sous ACCESS)...

Par contre, je ne sais pas ce que tu entends par application à réaliser : c'est un truc qui va imprimer des codes ou simplement lire des codes pour une gestion quelconque ?

@bluxBonjour,

Mes excuses pour le retard...
Voilà, j'ai besoin de faire ma gestion de stocks, d'imprimer les codes barres, la totale quoi.
Merci pour les éléments donnés dans les messages précédents pour me documenter
Slts
Bilaurent

@bluxSans adresse, moi rien envoyer...

@bluxBonjour,

Je viens de faire un petit tour sur le forum et je recherche également une solution pour lire un code barre sous acces..

Je vois que tu as des outils sympas pour faire ca..

Peux tu me les transmettre ???

voici mon adresse mail...

simonantoine1(arobazzzz)yahoo(dot)com

merci d'avance pour ton aide..

A plus

Je recherche aussi un programme pour imprimer les code barre sous access mais je seche grave peux-tu m'aider ?
Mon adresse est Adresse supprimée Modération CCM merci d'avance.

Je voudrais bien que tu me cède myennant finances (ou des places de cinéma pour ta ville) ton petit programme sous access 2000 pour générer ces codes barres (code 39)...
Merci de ta réponse même négative.
Bernard
Merci aussi si d'autres amis me répondent...
Adresse supprimée Modération CCM

Bonjour Laurent
Ton programme m'interesse beaucoup. Pourrais - tu me l'envoyer sur ma boite mail?
ce serais très gentil de ta part... je suis stagiaire en ce moment et je rame beaucoup sur VBA
Adresse supprimée Modération CCM
Merci!
Alain

bonjour,
Je sais que votre discussion date un peu mais si c'est toujours possible de récupérer le fichier ce serait vraiment cool.
Je cherche à coder des codes barres puis à tous les imprimer à l'unité avec des infos supplémentaires.
Adresse mail supprimée Modération CCM
merci d'avance

Merci pour ta réponse si rapide, je veux bien que tu m'envoie le programme en VBA.

Pour la police, j'en ai déjà (je verais pour la compatibilité), pour la douchette j'avais déjà reperé le site de JR INFORMATIQUE merci pour l'info.

A+ et merci encore.

MLib toujours à la même adresse

Bonsoir,

Peux tu m'expliquer à quoi consite le pgm sous access que tu as créé, je dois également, en créer un.
Peux tu m'envoyerle pgm VBA, que tu as mis au point, cela m'avancerai beaucoup.

mon mail :Adresse supprimée Modération CCM

merci.
A++

Salut,

je cherche actuellement à mettre en place un systeme de code barre pour gerer un stock dans le cadre s'un stage et ton programme en VBA sous acces pourrait me rendre un grand service.
Pourrais tu me l'envoyer egalement?

merci

mon adresse: Adresse supprimée Modération CCM

Bonjour,

J'ai lu que tu as réussi à concocter un soft en vba pour access pour générer le code barre, cela m'interresse pour pouvoir l'intégrer un même système dans ma base. J'ai un projet pour une database de génération de carte adhérent pour mon asso.
Pourrais-tu me l'envoyer stp ?
Aussi, tu utilises quoi comme douchette ?

Merci d'avance,
Jean-Yves

Email : Adresse supprimée Modération CCM

Bonjour Bilaurent,

Je viens de tomber sur ce post, qui m'intéresse au plus au point! J'ai vu que tu as réussi (en mai 2007...) à faire un programme en vba pour générer des codes barres, et qu'ensuite tu as trouvé une douchette reconnue par le programme... C'est pile poil ce que j'aimerais réaliser!!
Te serait-il possible de m'envoyer le programme que tu as développé / plus d'infos sur ta méthode?

mon email : Adresse supprimée Modération CCM
Merci beaucoup par avance
Vali

Slt Blux! j'ai lu tes post et j'aimerais que tu me donnes ton avis sur mon projet. En fait je dois pouvoir générer des codes barres à partir d'une application depuis un téléphone mobile et les envoyer pour impression via Bluetooth à une imprimente. Mon problème c'est que les délais sont tres courts et je n'ai pas tout le temps pour lire la spécification de plusieurs codes barres. Je dois en fait imprimer des tickets de jeux alors j'aimerais que me dise premièrement selon toi quel serait le type de code barre le plus indiqué: UPC, 39, EAN, etc...; lequel penses-tu qu'il soit facile à mettre en oeuvre (peu de ressources nécessaires pour les calculs) et si possible m'envoyer ton fichier excel à Adresse supprimée Modération CCM

Merci d'avance!

@raz2007Tout dépend de ce que tu veux coder : si ce ne sont que des chiffres, tu peux prendre EAN, mais ce n'est pas facile à gérer. Si tu dois mettre autre chose que des chiffres, prends le code 39 (il est facile à gérer, car il ne faut qu'un astérisque en début et fin de zone), mais il peut être gros si tu as plein de données à coder.

Pour le fichier excel, tu pourras le trouver ici :

https://www.divshare.com/download/3175447-53e/

En conclusion, si tu ne veux pas t'ennuyer, prends le code 39...

peux tu m'envoyer le programme des codes a barre que tu as fais ça m'interesse

@asprogVoici les fonctions indispensables qui permettent d'éditer un code-barres avec la police ean13.ttf.
C'est copié de ce qu'on trouve sur le forum (mais qu'on ne peut pas ouvrir, merci GrandZébu !) mais adapté à Excel et tellement simple à utiliser, du genre :
Cells(i,j) = EAN13(code), code étant les 12 chiffres du code à imprimer, le 13ème, la clef de contrôle, est ajouté dans la fonction par l'intermédiaire de la function Clef ci-dessous.
Bonne réception et bon travail !
LouisAvona

Function EAN13$(chaine$)
Dim i%, first%, CodeBarre$, tableA As Boolean, clé As Byte
'V 1.1.1
'Paramètres reçu : une chaine de 12 chiffres
'Retour de la fonction : une chaine qui, affichée avec la police EAN13.TTF, donne le code barre
' ou une chaine vide si paramètre fourni incorrect.
EAN13 = ""
If Len(chaine) = 12 Then
'Et que ce sont bien des chiffres
For i = 1 To 12
If Asc(Mid(chaine, i, 1)) < 48 Or Asc(Mid(chaine, i, 1)) > 57 Then
i = 0
Exit For
End If
Next
If i = 13 Then
clé = Clef(chaine)
chaine = chaine & clé
'Le premier chiffre est pris tel quel, le deuxième vient de la table A
CodeBarre = Left(chaine, 1) & Chr(65 + Val(Mid(chaine, 2, 1)))
first = Val(Left(chaine, 1))
For i = 3 To 7
tableA = False
Select Case i
Case 3
Select Case first
Case 0 To 3
tableA = True
End Select
Case 4
Select Case first
Case 0, 4, 7, 8
tableA = True
End Select
Case 5
Select Case first
Case 0, 1, 4, 5, 9
tableA = True
End Select
Case 6
Select Case first
Case 0, 2, 5, 6, 7
tableA = True
End Select
Case 7
Select Case first
Case 0, 3, 6, 8, 9
tableA = True
End Select
End Select
If tableA Then
CodeBarre = CodeBarre & Chr(65 + Val(Mid(chaine, i, 1)))
Else
CodeBarre = CodeBarre & Chr(75 + Val(Mid(chaine, i, 1)))
End If
Next
CodeBarre = CodeBarre & "*" 'Ajout séparateur central
For i = 8 To 13
CodeBarre = CodeBarre & Chr(97 + Val(Mid(chaine, i, 1)))
Next
CodeBarre = CodeBarre & "+" 'Ajout de la marque de fin
EAN13 = CodeBarre
End If
End If
End Function

Function Clef(EAN13$) As Byte 'String 'Byte
Dim k%, i%, total%
'Calcul de la clé de contrôle
EAN13 = Left(Trim(EAN13), 12)
k = 3 'facteur'
For i = Len(EAN13) To 1 Step -1
total = total + Mid(EAN13, i, 1) * k
k = 4 - k
Next i
Clef = CStr(10 - IIf(total Mod 10 <> 0, total Mod 10, 10))
End Function

@LouisAvonasalut,
je cherche une solution en access qui me permet de lire mes code a bar a partir du scaner code a bar (Sick CLV 420) SVP est ce que vous avez une idee a propos de ce sujet merci.