Bonjour à tous,

J'ai une macro qui utilise le module suivant pour tester qu'un fichier est ouvert :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub test_Createobject()
 
    Dim wb As Excel.Workbook
    Dim Appli As Excel.Application
 
    On Error Resume Next
    Set Appli = GetObject(, "Excel.Application")
 
    For Each wb In Appli.Workbooks
        MsgBox (wb.Name)
    Next wb
End Sub
Sous Excel 2010, ce module fonctionnait correctement sur deux postes, dont le mien.
Depuis j'ai migré en Excel 2016 et le fichier contenant la macro a été déplacé sur un site SharePoint.

La macro fonctionne encore correctement sur mon poste, Appli.Workbokks.Count affiche bien le nombre de fichier ouvert et il est possible de les lister via cette procédure.
Sur l'autre PC qui est resté en Excel 2010, Appli.Workbokks.Count renvoie 0 quelque soit le nombre de fichiers ouverts.

Une idée ?

Merci à tous.

Bonne fin de journée.