Bonjour,
J'ai crée une macro excel qui me permet de creer des codes barres.
J'ai cependant un petit probleme.
voici le code concerné:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
 Worksheets(1).Cells(i, y) = "20" & codesite & année & compteur  'stockage code barre sans la cle et cellule en format texte
        cle = (Worksheets(1).Mid(Cells(i, y), 1, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 2, 1) * 3 + Worksheets(1).Mid(Cells(i, y), 3, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 4, 1) * 3 + Worksheets(1).Mid(Cells(i, y), 5, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 6, 1) * 3 + Worksheets(1).Mid(Cells(i, y), 7, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 8, 1) * 3 + Worksheets(1).Mid(Cells(i, y), 9, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 10, 1) * 3 + Mid(Cells(i, y), 11, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 12, 1) * 3) Mod 10
        If cle = 0 Then 'calcul de la cle
            cle = (Worksheets(1).Mid(Cells(i, y), 1, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 2, 1) * 3 + Worksheets(1).Mid(Cells(i, y), 3, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 4, 1) * 3 + Worksheets(1).Mid(Cells(i, y), 5, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 6, 1) * 3 + Worksheets(1).Mid(Cells(i, y), 7, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 8, 1) * 3 + Worksheets(1).Mid(Cells(i, y), 9, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 10, 1) * 3 + Mid(Cells(i, y), 11, 1) * 1 + Worksheets(1).Mid(Cells(i, y), 12, 1) * 3) / 10
        End If
Bon ca fait peut etre u peu brouillon mais ma question est simple.
Quand je rajoute "worksheets(1)" devant "mid(cells(i,y)....)" j'ai le message d'erreur "propriete ou methode non gérée"
Si quelqu'un a une idée du probleme je lui en serai reconnaissant.
Je signale que sans worksheets(1) le programme fonctionne mais semble se morde la queue de temps en temps.