Bonjour à tous !

Je suis tombé sur un problème que je ne comprend vraiment pas...
Voici une partie de mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
'Dossier = ThisWorkbook.Path & "\" & CONSTANTE & "\"
'Dossier = ThisWorkbook.Path & "\Nom_Dossier\"
 MsgBox (Dossier)
 
'Suppression du module
While (ModuleExiste(ThisWorkbook, "Module1"))
SupprimerModule("Module1") 
Wend
'Rajout du module
Application.VBE.ActiveVBProject.VBComponents.Import (Dossier & "Module1" & ".bas")
En fait au lancement de mon fichier, je veux actualiser un module en réimportant depuis le fichier .bas.
Donc je le supprime puis je l´importe.
Seulement je voudrais avant de le supprimer récupérer la valeur d´une constante (CONSTANTE) de ce module( qui sert pour le chemin du fichier)

Que je mette l´une ou l´autre de ces lignes :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
'Dossier = ThisWorkbook.Path & "\" & CONSTANTE & "\"
'Dossier = ThisWorkbook.Path & "\Nom_Dossier\"
La MsgBox (Dossier) m´affiche toujours le bon lien.

Par contre :
- Si je mets la première ligne (avec la constante) : On reste indéfiniment dans la boucle
- Si je mets la deuxième ligne, tout marche très bien.

Je ne comprends pas pourquoi ca diffère alors que la msgbox affiche bien dans les deux cas le bon lien.

Merci d´avance de vous pencher sur mon cas
@ +