Discussion :

[isitfar]

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.

[Marc-L]

Bonjour, bonjour !

Avec ces incohérences, pas facile !

• Le titre ne correspond pas au code …

• Comme ici c'est un forum Excel, nous supposons que le code se trouve dans un classeur …

- Dans ce cas, pourquoi appeler Excel via GetObject alors qu'il est déjà ouvert, quel en est le but ?

- Sinon préciser l'application du code, c'est toujours utile dès la présentation initiale de préciser le contexte !

• Retirer la ligne On Error !

Voilà, voilà !

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[isitfar]

Merci pour votre retour.

Désolé pour l'erreur dans l'objet.
Comme je le disais en introduction, la procédure me permet de tester si un fichier est ouvert dans Excel.
Le GetObject permet de récupérer dans la variable "Appli" la liste des fichiers que j'affiche un à un via la variable "wb"

Est-ce plus clair ?

[Marc-L]

Non car on ne sait toujours pas où se trouve le code ‼

Et si c'est dans un classeur alors GetObject est totalement superflu, c'est clair !

[isitfar]

Oui, le code est dans le classeur !
Ce code fonctionnait à merveille jusqu'aux modifications évoquées.
S'il existe une meilleure méthode, je suis preneur.

Merci.

[Marc-L]

Donc ne pas utiliser GetObject mais directement la collection Workbooks …

Ensuite il peut y avoir un souci de droits d'accès au SharePoint.