Apparition d'erreurs sur une ancienne macro (année 2000)

[todg]

Bonjour à tous,
on m'a demandé de regarder une macro qui ne fonctionne plus, malheureusement je ne comprends pas ce qui ne fonctionne pas.
Le code type d'erreur est "Variable non définie".
Apparement c'est une macro qui va chercher les informations concernant l'ordinateur utilisé.
Je vous joins le fichier en question, vous y verrez surment plus clair que moi.
Un grand merci.

 

[tototiti2008]

Re : Apparition d'erreurs sur une ancienne macro (année 2000)

Bonjour todg,

Tu as environ 600 lignes de code dans la Feuil1, et visiblement aucun exemple de leur utilisation
On doit tout lire hors contexte et te revenir après ou bien tu aurais quelques informations sur l'application que tu fais de ces macros ?
PS : si on doit tout lire je crains de ne pas avoir le temps 🙄

 

[todg]

Re : Apparition d'erreurs sur une ancienne macro (année 2000)

Bonjour,
tout d'abord merci pour votre réponse.
Il n'est pas necessaire de tout lire, effectivement je ne mettais pas rendu compte qu'il y avait autant de ligne.
Lire la premiere fonction où il y a l'erreur me parait suffisant, cad, CheckSecurity.
l'erreur porte sur cette ligne

Password = Registry.regQuery_A_Key(Registry.HKEY_CURRENT_USER, "Software\ExxonMobil\CompSpecDLL", "Password")"

j'ai ajouté la fonction regQuery_A_Key (au début), la fonction qui était tout en haut (GetVolumeInformation) je l'ai déplacé un peu en dessous mais elle génère une autre erreur que je n'arrive pas à régler.
je joins mes modifications.

 

[tototiti2008]

Re : Apparition d'erreurs sur une ancienne macro (année 2000)

Re,

Les déclarations des fonctions (Declare) doivent se trouver en tout premier dans un module
Au vu du code et des appels de fonctions, le code était à l'origine séparé en modules différents (ou éventuellement dans différentes feuilles), tout regrouper dans la même feuille va demander d'aller modifier tout ton code
La fonction que tu as ajouté et qui manquait n'a pas de code, ça ne risque pas de fonctionner

Pas évident tout ça...