Bonjour,
Je bosse sur des macros word. J'aimerais parcourir les tableaux excel ouverts pour vérifier si celui dont j'ai besoin est déjà ouvert ou pas.
J'ai écris une macro toute simple pour ça, mais elle ne fonctionne pas :
En gros, même si j'ai mon fichier ouvert à côté, le code ne rentre pas dans la boucle for et me renvoie "False".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Function IsOpen(fichier) As Boolean Dim Wb As Excel.Workbook For Each Wb In Excel.Workbooks If Wb.Name = fichier Then IsOpen = True Exit For End If Next Wb If Wb Is Nothing Then IsOpen = False End If End Function
Je précise que j'ai activé la librairie Excel dans Word bien sûr.
Une idée ?
Partager