Bsr, j'ai un message d'erreur qui est "erreur de compilation :référence incore ou non qualifiée"

J'ai deux feuille :la 1ère est frmdocument, la seconde form1

voici une partie de mon code source qui se trouve dans la feuille form1:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Command1_Click()
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
Dim fichier As String
Dim ct As String
 
'Il me met en surbrillance la ligne suivante
frmDocument !Combo5.Text = ct
 
If ct = "DANIEL" Then
fichier = "L:\SERVICE\LE.xls"
ElseIf ct = "MARC" Then
fichier = "L:\SERVICE\DO.xls"
ElseIf ct = "JUAN" Then
fichier = "L:\SERVICE\CR.xls"
ElseIf ct = "NATANT" Then
fichier = "L:\SERVICE\CL.xls"
end if
 
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open(fichier)
Set wsExcel = wbExcel.Worksheets(1)
End Sub
Si qqun à des idées sur une solution, merci d'avance.