[VBA] Probleme Userform

Fermé
poulain35 - 17 déc. 2010 à 09:01
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 17 déc. 2010 à 12:48
Bonjour,

J'ai un probleme qui m'intrgue beaucoup. Je suis dans une Userform qui appel une autre userform, comme ceci :
If Conversion = vbYes Then ' oui:conversion
    
                    Convert.Show

            Else 'non: reste sur la page
        
            End If

Je vais sur mon autre userform, elle s'exécute ... à la fin de ma userform convert j'ai :
             MsgBox "Testez le fichier, s'il est endommagé, vous devrez remplir une fiche d'incident.", vbInformation
                    
                    'mettre les fenetres en arrière plan pour tester le document
                    Fichiers.Hide
                    service.Hide
                    Application.Visible = True
                    Application.WindowState = xlMaximized
                       
                    'active le fichier
                    Workbooks(newnom).Activate
                    'selection de la 1ere feuille
                    Sheets(1).Select
                    'selection 1ere cellule
                    Range("A1").Select
                    
                
                    'temp d'attente pour tester le fichier
                    dtime = Now + TimeValue("00:00:20")
                    Application.OnTime dtime, "TestMsgBox"


End Sub


A la fin de celle ci j'ai une erreur " Variable objet ou de bloc with non definie, en mode debogage il me retourne vers mon Convert.Show . Je ne vois pas pourquoi il n'execute pas ma macro TestMsgBox sur ma derniere ligne.
Quelqu'un peut m'aider SVP !!


1 réponse

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
17 déc. 2010 à 12:48
Bonjour,
Expliquer comme ça c'est incompréhensible.
Ou est ta macro "TestMsgBox"
Autre constatation tu fais une référence circulaire (si je comprend entre les lignes)
à la fin de ma userform convert j'ai : ...Dans quel événement ?
A+
0