pb transmission variable

bonjour le groupe,

voilà mon objectif :

dans une première feuille, une commande est lancée. Lors du traitement, une
vérification est faite, et si une variable est manquante, elle doit être
récupérée par l'affichage d'une nouvelle feuille proposant un choix. Ainsi
ma variable fait poursuivre ma procédure.

Mon problème est lors de l'appel de la nouvelle feuille : à l'exécution, le
programme ne s'arrête pas pour attendre le choix de l'utilisateur. Le code
se poursuit et une erreur est générée plus bas.

Voici mon bout de code pour mieux comprendre :

procédure principale qui appelle la feuille "frmCart":
[...]
sTemplate = oSheet.GetTemplateName
If sTemplate = "" Then 'cas où le nom du fond de plan n'est pas
trouvé
frmCart.Show
sTemplate = frmCart.sAdrCart
End If
sTemplate = Left$(oSheet.GetTemplateName,
Len(oSheet.GetTemplateName) - 7)
[...]

procédures de la feuille "frmCart"


Public sAdrCart As String

Private Sub btnOK_Click(Index As Integer)
Select Case Index
Case Is = 0
sAdrCart = "FORMAT A.slddrt"
Case Is = 1
sAdrCart = "FORMAT B.slddrt"
Case Is = 2
sAdrCart = "FORMAT C.slddrt"
Case Is = 3
sAdrCart = "FORMAT D.slddrt"
Case Is = 4
sAdrCart = "FORMAT A-CAT-V.slddrt"
Case Is = 5
sAdrCart = "FORMAT A-CAT-H.slddrt"
Case Is = 6
sAdrCart = "FORMAT B-CAT.slddrt"
End Select
Unload Me
End Sub

Private Sub Form_Load()
Me.Show
btnQuitte.SetFocus
End Sub



Merci de votre aide
--


Jacques