A
Aurélien
Guest
HELP!!
Quand je lance mon fichier depuis mon micro(c, il marche. Je l'ai mis sur le réseau, dans une partie share accessible à tous, il marche depuis mon micro mais pas depuis celui des autres, il affiche une erreur de compilation, une macro s'éxécutant à l'ouverture du fichier le message" erreur de compilation, impossible d'affecter cette valeur à ce tableau..." apparait? Le déboggeur me positionne
Sub NumeroAleatoire()
Dim Numeros()
' renvoie 5 valeurs pour la série 1
Numeros = ValeursAleatoires(1, 10, 4) "ici erreur"
'le 2ème paramètre indique le numéro de la première ligne
'd'affichage (les numéros sont écrits toutes les 2 lignes
'dans la colonne B)
EcritValeurs Numeros, 7
'pour la série 2
Numeros = ValeursAleatoires(11, 20, 5)
EcritValeurs Numeros, 25
'pour la série 3
Numeros = ValeursAleatoires(21, 30, 5)
EcritValeurs Numeros, 39
'pour la série 4
Numeros = ValeursAleatoires(31, 40, 5)
EcritValeurs Numeros, 49
End Sub
Pour mieux comprendre, vous pouvez regarder le fichier joint.
Comme je ne suis pas l'auteur de cette macro, et étant débutant, j'ai pas tout pigé mais elle marche en local pas en réseau. elle lance une série de question aléatoire sans doublon.
;-(
Merci d'avance.
Quand je lance mon fichier depuis mon micro(c, il marche. Je l'ai mis sur le réseau, dans une partie share accessible à tous, il marche depuis mon micro mais pas depuis celui des autres, il affiche une erreur de compilation, une macro s'éxécutant à l'ouverture du fichier le message" erreur de compilation, impossible d'affecter cette valeur à ce tableau..." apparait? Le déboggeur me positionne
Sub NumeroAleatoire()
Dim Numeros()
' renvoie 5 valeurs pour la série 1
Numeros = ValeursAleatoires(1, 10, 4) "ici erreur"
'le 2ème paramètre indique le numéro de la première ligne
'd'affichage (les numéros sont écrits toutes les 2 lignes
'dans la colonne B)
EcritValeurs Numeros, 7
'pour la série 2
Numeros = ValeursAleatoires(11, 20, 5)
EcritValeurs Numeros, 25
'pour la série 3
Numeros = ValeursAleatoires(21, 30, 5)
EcritValeurs Numeros, 39
'pour la série 4
Numeros = ValeursAleatoires(31, 40, 5)
EcritValeurs Numeros, 49
End Sub
Pour mieux comprendre, vous pouvez regarder le fichier joint.
Comme je ne suis pas l'auteur de cette macro, et étant débutant, j'ai pas tout pigé mais elle marche en local pas en réseau. elle lance une série de question aléatoire sans doublon.
;-(
Merci d'avance.