Problème avec Fonction CreateObject
Bonjour à tous,
J'ai une macro qui utilise le module suivant pour tester qu'un fichier est ouvert :
Code:
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.
