[VBA-E]-erreur 5(Invalid procedure call or argument)

Version imprimable

Bonjour j'arrive pas à exécuter le code suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
' AddData Macro
' Macro recorded 15/05/98 by MCC-DEV
'
'
Sub AddData(ByRef iCurrentLine As Integer)
 
    Dim vCurrentCell As Variant
    Dim bLastLine As Boolean
    Dim sTypeDepot As String
    Dim iHauteurTotale As Integer
    Dim iHauteurPage As Integer
    Dim bEndOfActionnaire As Boolean
    Dim iNoEnreg As Integer
    Dim iNbFichier As Integer
    Dim iLenghtBarcode As Integer ' nouvelle variable pour code barre'
 
 
    Sheets("Datas").Select
    Sheets("Datas").Range("A2").Select
    Set vCurrentCell = Range("A2")
    sBarcode = Range("A2")
    sFirstActionnaire = Range("K2")
    bEndOfActionnaire = False
    iHauteurPage = 26 ' Exprimée en cellules
    iHauteurTotale = 2 ' hauteur de l'en-tete
    iNoEnreg = 0
    iNbFichier = 1
 
    ' pour chaque enregistrement
    Do While Not IsEmpty(vCurrentCell)
        iNoEnreg = iNoEnreg + 1
        Application.StatusBar = "Enregistrement " & iNoEnreg & "/" & iNbEnreg & " (" & CInt(iNoEnreg / iNbEnreg * 100) & "%)"
        ' Si nouveau actionnaire
        If vCurrentCell <> ActiveCell.Offset(-1, 0).Value Then
            iHauteurTotale = iHauteurTotale + 8
            iCurrentLine = CopieActionnaire.CopieActionnaire(iCurrentLine)
            bEndOfActionnaire = False
            bLastLine = AddDataActionnaire.AddDataActionnaire(iCurrentLine)
        Else
            ' Meme actionnaire
            ActiveCell.Offset(0, 7).Select ' on se positionne sur le type de dépôt
            bLastLine = AddDataActionnaire.AddDataActionnaire(iCurrentLine)
        End If
        If bLastLine Then
            bEndOfActionnaire = True
            ' on encadre l'actionnaire
            'AddReversedSN.AddReversedSN
            Border.Border
        End If
 
        Sheets("Datas").Select
        Set vCurrentCell = ActiveCell.Offset(0, 0)
        ActiveCell.Offset(0, 0).Select
 
        If IsEmpty(vCurrentCell) Then
            InsererReversedSN.InsererReversedSN
 
             ActiveCell.EntireRow.RowHeight = 52.8
 
                ActiveCell.Offset(0, 2).Select
                iLenghtBarcode = 5 - Len(sBarcode)
                ActiveCell.FormulaR1C1 = Chr$(126) & String(iLenghtBarcode, "0") & sBarcode & Chr$(126)
                Selection.Font.Name = "Code 39"
                Selection.Font.Size = 26
                Selection.HorizontalAlignment = xlRight
                Sheets("FeuillePresence").Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, -1)).Select
                Selection.BorderAround Weight:=xlThin, ColorIndex:=xlAutomatic
 
                ActiveCell.Offset(0, 2).Select
                InsererReversedSN.InsererReversedSN
                Selection.HorizontalAlignment = xlRight
                ActiveCell.Offset(0, -3).Select
        Else
            ' saut de page ?
            If (bEndOfActionnaire = True) Then ' (iHauteurTotale >= iHauteurPage) And
                InsererReversedSN.InsererReversedSN
 
                ActiveCell.EntireRow.RowHeight = 52.8
 
                ActiveCell.Offset(0, 2).Select
                iLenghtBarcode = 5 - Len(sBarcode)
                ActiveCell.FormulaR1C1 = Chr$(126) & String(iLenghtBarcode, "0") & sBarcode & Chr$(126)
                Selection.Font.Name = "Code 39"
                Selection.Font.Size = 26
                'remplacement n°boitier par le code barre
 
                'ActiveCell.FormulaR1C1 = ": REITIOB °N"
               ' Selection.Font.Name = "MCC Font"
                'Selection.Font.Size = 20
                Selection.HorizontalAlignment = xlRight
                Sheets("FeuillePresence").Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, -1)).Select
                Selection.BorderAround Weight:=xlThin, ColorIndex:=xlAutomatic
 
                ActiveCell.Offset(0, 2).Select
                InsererReversedSN.InsererReversedSN
                Selection.HorizontalAlignment = xlRight
                ActiveCell.Offset(0, -3).Select
 
                ' Insertion d'un saut de page
                If Worksheets.HPageBreaks.Count < 1000 Then
                    ActiveCell.Offset(1, 0).PageBreak = xlManual
 
                    If Not (IsEmpty(vCurrentCell)) Then
                        ActiveCell.Offset(1, 0).Select
                        InsererEnTete.InsererEnTete
                        iHauteurTotale = 3
                        bEndOfActionnaire = False
                        Sheets("Datas").Select
                        sBarcode = ActiveCell.Offset(0, 0)
                        sFirstActionnaire = ActiveCell.Offset(0, 10)
                    End If
 
                Else
                    Sheets("FeuillePresence").Select
                    Sheets("FeuillePresence").Range(ActiveCell.Offset(0, 0), "D3").Select
                    ActiveWorkbook.Names.Add Name:="Datas", RefersToR1C1:= _
                    Selection()
 
                    ActiveWorkbook.Save ' Pour le premier fichier FPP.xls
                    ActiveWorkbook.SaveAs "FPP" & iNbFichier & ".xls"
                    iNbFichier = iNbFichier + 1
                    Sheets("FeuillePresence").Select
                    Worksheets("FeuillePresence").Range("Datas").EntireRow.Delete
 
                    ' mise au format text des colonnes A et I
                    Columns("A:A").Select
                    Selection.NumberFormat = "@"
                    Columns("I:I").Select
                    Selection.NumberFormat = "@"
                    Range("A3").Select
                    Sheets("Datas").Select
                    sBarcode = ActiveCell.Offset(0, 0)
                    sFirstActionnaire = ActiveCell.Offset(0, 10)
                End If
 
            End If
        End If
    Loop 'fin des enregistrements
 
    Sheets("FeuillePresence").Select
    'delimitation de la zone contenant les donnees
    Sheets("FeuillePresence").Range(ActiveCell.Offset(0, 0), "D3").Select
    ActiveWorkbook.Names.Add Name:="Datas", RefersToR1C1:= _
        Selection()
    ActiveWorkbook.SaveAs "FPP" & iNbFichier & ".xls"
    Range("A3").Select
End Sub

J'ai l'erreur 5 :Invalid procedure call or argument.
En mode debogage je remarque que cette erreur est dûe à la ligne: ActiveCell.FormulaR1C1 = Chr$(126) & String(iLenghtBarcode, "0") & sBarcode & Chr$(126).

Quelqu'un a déjà eu ce genre de bug?

Merci d'avance de votre aide.

04/04/2007, 18h32
ouskel'n'or

Modifie ton message et place les balises Code -> Tu sélectionnes le code et tu fais un clic sur l'icône # ;)
04/04/2007, 18h33
Invité

Bonjour zahui_eric,

Juste une idée en passant, je n'ai pas détaillé tout votre code :

que contient la variable sBarcode (le format n'est pas défini dan les déclarations) ?

Amicalement.
04/04/2007, 18h52
ouskel'n'or

Regarde dans l'aide l'utilisation de ActiveCell.FormulaR1C1 ;)
et remplace-le par Activecell.value
Tu dis
A+
05/04/2007, 10h06
zahui_eric

salut ouskel'n'or

J'ai remplacé

Code:

ActiveCell.FormulaR1C1 = Chr$(126) & String(iLenghtBarcode, "0") & sBarcode & Chr$(126)

par

Code:

ActiveCell.value = Chr$(126) & String(iLenghtBarcode, "0") & sBarcode & Chr$(126)

mais j'ai toujours un bug à cet endroit...
05/04/2007, 10h16
zahui_eric

que contient la variable sBarcode (le format n'est pas défini dan les déclarations) ?

Le format de la variable sBarcode n'est pas défini.
Dans le code on a

Code:

sBarcode = Range("A2")

comme déclaration.

Amicalement
05/04/2007, 11h09
ouskel'n'or
J'ai fait un truc tout bête
Code:

1 2 3 4 5 Sub TestString() iLenghtBarcode = 10 sBarcode = 150 ActiveCell.Value = Chr$(126) & String(iLenghtBarcode, "0") & sBarcode & Chr$(126) End Sub
Et là, je n'ai aucun problème.
Ta feuille ne serait pas protégée ?
A+

Quoique j'aurais écrit

Code:

ActiveCell.Offset(1, 0).Value = "~" & Right(String(16, "0") & sBarcode, 16) & "~"

Pour éviter la variable iLenghtBarcode :D
05/04/2007, 11h54
zahui_eric

J'ai testé ton dernier code, il n y a plus de bug par contre j'ai pas le résultat escompté.
Le but c'est d'avoir un code bar alors que là j'ai des chiffres.
05/04/2007, 12h05
ouskel'n'or

Ok, je n'ai jamais travaillé sur des codes-barres. :( Je me pose malgré tout une question.
"A2" contient donc le code barre. Mais alors pourquoi complètes-tu par des "0" à gauche ? La vraie question : "le code barre et un string sont-ils compatibles ?"
Là, je n'ai pas la réponse.
Tu devrais faire une recherche sur le forum VB et VBA sur code barre, je sais que certains sujets sur les codes barres ont été traités.
A+
05/04/2007, 12h12
zahui_eric

Ok mec
merci bcp pour ton aide.

A+
05/04/2007, 12h14
ouskel'n'or
Bon, je crois que j'ai compris le pb. Regarde là
En fait, il semblerait que ce ne soit qu'un pb de Police de caractère. A l'adresse indiquée, on précise les polices à utiliser.
Essaie de faire ça
Code:

1 2 Range("A2" ).Copy Activecell.PasteSpecial Paste:=xlPasteFormats
Si tu as le format correct, j'ai raison :lol: Sinon, j'ai tort :cry:
A+
05/04/2007, 13h13
zahui_eric

toujours le même bug:(
05/04/2007, 15h28
zahui_eric
C'est bon j'ai trouvé l'erreur

ça vient de String(iLenghtBarcode, "0")

Code:

ActiveCell.FormulaR1C1 = Chr$(126) & String(iLenghtBarcode, "0") & sBarcode & Chr$(126)

En fait la valeur de iLenghtBarcode était négative.

J'y ai pensé quand tu m as conseillé de testé le code:
Code:

1 2 3 4 5 Sub TestString() iLenghtBarcode = 10 sBarcode = 150 ActiveCell.Value = Chr$(126) & String(iLenghtBarcode, "0") & sBarcode & Chr$(126) End Sub
J'ai essayé iLenghtBarcode = -10 j'avais le même bug.

Merci pour ton aide.
En plus tout ça gratuitement...Tro de la balle internet!!:yaisse2: :king: