Discussion :

[erlerwade]

Bonjour Forum!
J'ai développé une macro qui marche super bien sur excel 2003 par contre si je veux le faire tourner sur 2007 ce message d'erreur s'affiche:
Erreur d’exécution '94'
utilisation incorrecte de Null
La macro plante au niveau de cette ligne de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Enregistrement = Enregistrement & ";" & Trait0(CDbl(Requete.Fields(CompA).Value))

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Trait0

est une fonction que j'ai codé me servant de remplacer des 0 par des 0.1
Je vous remercie d'avance de votre aide chers membres de ce magnifique Forum !

[Jean-Philippe André]

salut,

peut-on en savoir plus sur les valeurs et fonctions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
CompA
Requete.Fields(CompA).Value
'et
Trait0()

stp ?

[erlerwade]

voila la fonction Trait0

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Function Trait0(Val As Double) As Double
    If Val = 0 Then
        Trait0 = 0.01
    Else
        Trait0 = Format(Val, "0.00")
    End If
    If Trait0 = 0 Then
    Trait0 = 0.01
    End If
End Function

Mon fichier est un fichier texte .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

compA

est mon compteur qui me balaie mes colonnes

je joins a ce courriel quelque ligne de mon Fichier pour vous permettre de voir les valeurs
Si vous voulez aussi je peux poster tout le code.

Merci

[Jean-Philippe André]

Ok, et ce compteur, à quelle valeur y a-t-il un erreur ?
que te donne le mode pas à pas ?

[erlerwade]

Lorsque ma macro plante dans CompA y'a la valeur 13
sachant que dans la macro j'ai:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For CompA = 3 To 17
                Enregistrement = Enregistrement & ";" & Trait0(CDbl(Requete.Fields(CompA).Value))
            Next CompA

Merci

[Jean-Philippe André]

et que vaut ton champ d'id 13 ?

[erlerwade]

Tu veux dire l'entête de ma 13 colonne justement rien de spéciale le même format que les autres entêtes.
je t'envoies peut être l'intégralité du code?

[Jean-Philippe André]

Non pas le libellé du champ, mais bien la valeur du champs dans l'enregistrement

que vaut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Requete.Fields(CompA).Value

je pencherai pour une valeur Null =)

[erlerwade]

Effectivement la valeur du champs dans l'enregistrement est "Null"
C'est pou cela j'ai fait la fonction Trait0 pour qu'elle remplace automatiquement le 0 a priori donc il devrait pas y'avoir de problème d’ailleurs çà marche sur excel 2003
je comprend pas .

Merci d'avance

[Jean-Philippe André]

Attention Null =! 0

tu ne peux pas caster en double (Cdbl()) la valeur Null

Il te faut donc tester la valeur en amont du code avec IsNull() par exemple

[erlerwade]

Merci beaucoup pour cette indication jpcheck !
Effectivement la valeur du champs dans l'enregistrement est "Null"
Mais concretement comment je peux tester en amont sur mon code IsNull sachant que j'ai jamais utilisé .

Merci

[Jean-Philippe André]

en utilisant l'aide en ligne tu trouves la syntaxe habituelle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If ind < 3 Then
                LectureTemp = LectureTemp & ";" & Lecture ' si non on prends la valeur numérique
            Else
                LectureTemp = LectureTemp & ";" & Format(CDbl(Lecture), "0.000000") ' si non on prends la valeur numérique
            End If

se transformerait par exemple en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
If Not IsNull(Lecture) Then
If ind < 3 Then
                LectureTemp = LectureTemp & ";" & Lecture ' si non on prends la valeur numérique
            Else
                LectureTemp = LectureTemp & ";" & Format(CDbl(Lecture), "0.000000") ' si non on prends la valeur numérique
            End If
End If

[erlerwade]

Si j'ai compris le teste IsNull fait en amont vérifie si la valeur est nulle .
Si le teste est positif dans ce cas comment faut réparer l'erreur?
Je comprend tjrs pas pourquoi ca marche sur 2003 sans le test IsNull et pas sur 2007?
j'apporte la correction que tu m'a suggeré et je te dis!
Merci

[erlerwade]

merci beaucoup jpcheck
nous avons réussi !