Bonjour à tous !
Je suis tombé sur un problème que je ne comprend vraiment pas...
Voici une partie de mon code :
En fait au lancement de mon fichier, je veux actualiser un module en réimportant depuis le fichier .bas.Code:
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")
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 :
La MsgBox (Dossier) m´affiche toujours le bon lien.Code:
1
2 'Dossier = ThisWorkbook.Path & "\" & CONSTANTE & "\" 'Dossier = ThisWorkbook.Path & "\Nom_Dossier\"
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 :)
@ +