Bonjour à tous,

Je voudrais savoir combien de fichier Excel ouverts. Pour cela j'ai écris ces 3 lignes:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
Dim excelApp As Excel.Application
 
Set excelApp = CreateObject("Excel.Application")
MsgBox (excelApp.Workbooks.count)
Le problème c'est que j'ai ouvert 4 fichiers Excel. Mais le MsgBox me retourne 0. Je ne comprends pas du tout pourquoi.

Croyant que l'origine du problème était la propriété "Count" de la collection WorkBooks, j'ai alors essayé d'accéder à un de mes fichiers ouverts, en écrivant cette ligne,

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Dim excelApp As Excel.Application
Dim excelBook As Excel.Workbook
 
Set excelApp = CreateObject("Excel.Application")
Set excelBook = excelApp.Workbooks( 1)
Et là, j'ai une erreur. Donc, mes fichiers Excel Ouverts ne sont pas visibles?

Merci de votre aide.