affichage des docs word

Function ListeDocs() As Variant
    Dim oApp As Object
    Dim tbRes()
    Dim i As Integer
    Set oApp = GetObject(, "Word.Application")
 
    If Not oApp Is Nothing Then
        For i = 1 To oApp.documents.Count
            ReDim Preserve tbRes(0 To i - 1)
            tbRes(i - 1) = oApp.documents(i).Name
        Next
        ListeDocs = tbRes
    End If
End Function

Sub ChargeComboBox()
 Dim t
 t = ListeDocs()
 'Tester si t est un tableau
 If IsArray(t) Then MaComboBox.List=t
End Sub

Sub ChargeComboBox()
Dim t
t = ListeDocs()
'Tester si t est un tableau
If IsArray(t) Then 
      MaComboBox.List=t
Else
      MaCombobox.Additem "Aucun document ouvert"
End Sub

if IsArray(t) Then
   MaCombobox.List=t
Else
   msgBox "Aucun document ouvert"
   UnLoad Me
End If