affichage des docs word

[jon.cottin]

Bonjour à tous,

J'ai créé une petite application de saisie d'information en VBA sous Excel.
Grâce à cette application, je peux venir créer des tableaux de résultats différents. Ensuite j'exporte ces tableaux sous word. Jusque là tout va bien.😀 Pour cela j'aimerais afficher la liste des documents word ouvert .
Ma question est comment afficher tous les documents word ouverts dans une listbox sous Excel ?😕 Et si aucun document word n'est ouvert qu'il n'affiche rien dans la liste.

Merci d'avance.

Jo

 

[Guest]

Re : affichage des docs word

bonjour,

Voici une petite fonction qui retournera un tableau contenant la liste des document ouverts. Il faut que Word soit lancé.

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

Utilisation avec une combobox nommée MaComBoBox

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

A+

 

[jon.cottin]

Re : affichage des docs word

Merci pour ta réponse rapide.
Quelques précisions :
- a quoi cela sert il de tester si t est un tableau ? pourquoi un tableau ?
- comment faire si aucun document word n'est ouvert ?

jo

 

[Guest]

Re : affichage des docs word

Bonjour,

- a quoi cela sert il de tester si t est un tableau ? pourquoi un tableau ?

MaComboBox.List attends un tableau et la fonction 'ListeDocs' renvoie uniquement un tableau s'il y a des documents ouverts.

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

Ou

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

Ou imaginer ce que tu veux.

A+