migration Excel 2007 - variables personnelles non reconnues

Bonjour,

J'ai développé un projet VBA sous Excel 2002. Il fonctionne très bien...

Lors du changement d'ordinateur et du passage à Excel 2007, VBA ne reconnaît plus les variables personnelles que j'ai créées. Il donne le message

Erreur de compilation : référence ou bibliothèque introuvable

voici un extrait du code: (L'erreur se produit à la première ligne déjà)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub auto_open() ' Dossier_installation = Sheets("Paramètres").Range("B5").Value Dossier_Gestion = Sheets("Paramètres").Range("B6").Value Fichier_Depot = Sheets("Paramètres").Range("B11").Value Fichier_choisi = Dossier_installation & Dossier_Gestion & Fichier_Depot   ' ActiveWorkbook.UpdateLink Name:=Fichier_choisi, Type:=xlExcelLinks   Sheets("Accueil").Select Range("D12").Select     End Sub

---

Si quelqu'un devait connaître la solution merci de bien vouloir me dépanner.

Bonsoir

Les macros Auto_0pen existaient déjà dans l’ancien langage macro d’Excel.

Elles ont été conservées dans VBA, mais la norme est plutôt maintenant l’emploi de procédures événentielles.

Associe ton code à l'événement Open du classeur.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Workbook_Open() ' Dossier_installation = Sheets("Paramètres").Range("B5").Value Dossier_Gestion = Sheets("Paramètres").Range("B6").Value Fichier_Depot = Sheets("Paramètres").Range("B11").Value Fichier_choisi = Dossier_installation & Dossier_Gestion & Fichier_Depot   ' ActiveWorkbook.UpdateLink Name:=Fichier_choisi, Type:=xlExcelLinks   Sheets("Accueil").Select Range("D12").Select End Sub

---

NB - Ce code est à placer dans le module "ThisWorkbook" du classeur.

Bon Noël,

Michel Gaboly

Merci Michel, mais....

Le problème n'est malheureusement pas résolu. Il ne provient pas du titre de la procédure mais des variables personnelles. Mon VBA fonctionne sans elles mais dans d'autres procédures, celles-ci sont indispensables et le code ne peut s'exécuter.

Dossier_installation = Sheets("Paramètres").Range("B5").Value

donne l'erreur :

Erreur de compilation : référence ou bibliothèque introuvable

Peut-être connais-tu la solution?

Merci d'avance

Gabriel

Excuse-moi, je me suis focalisé sur le nom de la procédure en pensant qu’il pouvait y avoir un pb avec la version 2007.

Mais si on se contente de déplacer le code dans la procédure associée à l'événement Open du classeur, on a un problème de portée.

Par ailleurs, on ne peut pas les définir comme des constantes. En effet,

Code:

---

Const Dossier_installation = "Toto"

---

est accepté mais pas

Code:

---

Const Dossier_installation = Sheets("Paramètres").Range("B5").Value

---

La valeur à droite du signe "=" doit être une "vraie" constante, une chaine de caractères, un nombre, une date, ... mais pas une propriété d’un objet.

Je te propose donc de les définir comme des variables publiques et de les initialiser de façon à pouvoir s’en servir comme de constantes, ce qu’elles sont en pratique :

Tout en haut d’un module standard :

Code:

---

1 2	Option Explicit Public Dossier_installation, Dossier_Gestion, Fichier_Depot, Fichier_choisi

---

et dans le module "ThisWorkbook" :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Workbook_Open() Dossier_installation = Sheets("Paramètres").Range("B5").Value Dossier_Gestion = Sheets("Paramètres").Range("B6").Value Fichier_Depot = Sheets("Paramètres").Range("B11").Value Fichier_choisi = Dossier_installation & Dossier_Gestion & Fichier_Depot Sheets("Accueil").Select Range("D12").Select End Sub

---

Bon Noël à nouveau ;)

Michel Gaboly

Citation:

---

Envoyé par Bigalo

Je te propose donc de les définir comme des variables publiques et de les initialiser de façon à pouvoir s’en servir comme de constantes, ce qu’elles sont en pratique :

Tout en haut d’un module standard :

Code:

---

1 2	Option Explicit Public Dossier_installation, Dossier_Gestion, Fichier_Depot, Fichier_choisi

---

---

beuèahhhh !!!
C'est quoi cette manière de déclrer des variables !
Eh ! Faut pas oublier de les typer les variables !
:lol: :lol: :lol:

Bon, sinon, ton problème ne vient, normalement, ni des déclarations, ni même du nom de ta procédure.
Ceci dit, Bigalo a pleinement raison :
Déclarer ses variables
Utiliser les évènements

D'où vient donc ton problème ?

Je t'invite à regarder dans Outils/Références
Tu devrais avoir une référence marquée MANQUANT ou quelque chose dans ce genre...


vàlà vàlà ;)

Bonsoir Maxence,

Tout à fait d’accord avec toi sur le fait qu’ïl faut typer les variables. L’unique raison pour laquelle je ne l’ai pas fait ici, est qu’on ne connaît pas le contenu des cellules de façon certaine.

Ceci dit, on peut estimer que la probabilité qu’il s’agisse de chaînes de caractères, concaténées pour former la 4ème "constante" (un chemin d’accès, apparemment) est > 99%.

Si c’est bien cela, le code est à modifier ainsi.

Code:

---

1 2	Option Explicit Public Dossier_installation as String, Dossier_Gestion as String, Fichier_Depot as String, Fichier_choisi as String

---

Ce qui me chiffonne est qu’il faut supposer que les cellules utilisées pour définir les 2 premières "constantes", "Dossier_installation et Dossier_Gestion ont comme dernier caractère le séparateur de chemin d’accès, ce qui n’est pas une bonne idée. Je préférerais la version suivante (avec une variable publique supplémentaire, "Sep" et un caractère de moins (le dernier) dans les cellules B5 et B6 de la feuille "Paramètres")

Code:

---

1 2	Option Explicit Public Dossier_installation as String, Dossier_Gestion as String, Fichier_Depot as String, Fichier_choisi as String, Sep as string

---

et dans le Workbook_Open() :

Code:

---

1 2 3 4 5 6

Private Sub Workbook_Open() ... Sep = Application.PathSeparator Fichier_choisi = Dossier_installation & Sep & Dossier_Gestion & Sep & Fichier_Depot ... End Sub

---

L'intérêt est d’avoir un code qui fonctionne avec les versions Mac (où Sep sera égal à ":"), comme avec les versions Windows, où Sep sera gal à "\").

Cordialement,

Un grand merci à tous!

Voilà que cà fonctionne. Il suffisait de déclarer les variables, ben voyons!

Ceci dit les références dans les cellules étaient bien du texte.

Pour ma gouverne, j'aimerais cependant bien savoir pourquoi il faut obligatoirement déclarer des variables alors que la case à cocher de la boîte de dialogue de VBA n'estime pas cela nécessaire... S'agit-il d'un bug?

Merci encore à tous...

Bonne fin d'année à vous

Bonsoir,

Je viens juste de lire ton message ; j’étais sur la route aujourd’hui entre la Bourgogne et les Alpes ;)

Déclarer les variables n’est pas obligatoire, mais c’est plus propre comme façon de programmer.

D’une part cela conduit à une meilleure gestion de la mémoire, le type par défaut étant Variant, beaucoup plus gourmand qu’un Integer par exemple.

D’autre part cela facilite le débuggage : en cas de faute de frappe sur un nom de variable, si on a choisi "Option Explicit", un message permet de se rendre compte immédiatement de l’erreur, car un message prévient qu’une variable n’a pas été définie. Dans le cas contraire, on se retrouve avec 2 variables distinctes ayant chacune une valeur différente, et on peut très bien ne pas s’en rendre compte tout de suite.

Bigalo