Discussion :

[Aragorn_destroy]

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
@ +

[SilkyRoad]

bonjour

- Si je mets la première ligne (avec la constante) : On reste indéfiniment dans la boucle

Est ce cette boucle?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
'Suppression du module
While (ModuleExiste(ThisWorkbook, "Module1"))
SupprimerModule("Module1") 
Wend

peux tu expliquer son principe de fonctionnement?


As tu essayé directement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If ModuleExiste(ThisWorkbook, "Module1") Then _
    SupprimerModule ("Module1")

michel