VBA Excel: Nombre de fichiers Excel ouverts

Version imprimable

18/01/2008, 11h45
mamid1706

VBA Excel: Nombre de fichiers Excel ouverts
Bonjour à tous,

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

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:

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.
18/01/2008, 12h24
ouskel'n'or

Code:

MsgBox Application.Workbooks.Count

Une explication : Quand tu mets

Citation:

Dim excelApp As Excel.Application
Set excelApp = CreateObject("Excel.Application")

tu crées une nouvelle instance d'Excel (vas dans le gestionnaire des tâches et tu verras qu'Excel est ouvert plusieurs fois) et dans cette instance, tu n'ouvres aucun fichier... Donc, tu as 0
Inutile d'instancier Excel pour avoir le nombre de fichiers ouverts dans l'application active ;)
18/01/2008, 13h26
mamid1706

Merci pour ta réponse.
J'ai compris... Mais comment puis-je alors récupérer l'instance courante?
Ces lignes, ci-dessus, sont appelées depuis Access.
Mon problème n’est donc toujours pas résolu.
18/01/2008, 13h55
ouskel'n'or

Ok. Dans Access, tu ouvres une instance d'Excel puis les fichiers. Là tu peux compter le nombre des fichiers que tu as ouverts avec excelApp (avec ton code)
Compter les fichiers ouverts dans une instance qui n'en contient pas, tu peux mettre 0 sans poser de question.
Mais je crois comprendre que ce n'est pas là ton pb. Peux-tu préciser ?
18/01/2008, 14h20
mamid1706

En fait, je veux ouvrir un fichier Excel. Or que celui-ci peut être ouvert par un utilisateur. Donc, avant l'ouverture, j'aimerais d'abord tester si le fichier est ouvert ou non (Si c'est oui, alors demander la réponse de l'utilisateur).

Espérant que je suis plus explicite.

merci pour tes réponse.

juste un exemple de ce qui peut être fait:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub AccederAUnClasseur()
    Dim excelApp As Excel.Application
    Dim excelBook As Excel.Workbook
    Dim nomFichier As String
 
    nomFichier = "PatatiEtPatata.xls"
    On Error Resume Next
    Set excelApp = GetObject("Excel.Application")
    ' Aucune instance d'Excel ouverte?
    If Err.Number <> 0 Then
        Err.Clear
        ' Ouvrir une instance
        Set excelApp = CreateObject("Excel.Application")
    End If
    Set excelBook = excelApp.Workbooks(nomFichier)
    ' Aucun fichier de ce nom ouvert?
    If Err.Number <> 0 Then
        Err.Clear
        ' Ouvrir le fichier
        excelApp.Workbooks.Open nomFichier
        ' Erreur à l'ouverture?
        If Err.Number <> 0 Then
            Err.Clear
            MsgBox Prompt:="Le fichier " & nomFivhier & " ne peut pas être ouvert!", _
                    Buttons:=vbOKOnly + vbCritical, Title:="Erreur d'ouverture de fichier"
            ' Terminer le processus car le fichier ne peut pas être ouvert
            Exit Sub  ' ou Function ou For ou Do, dépendamment du contexte
        End If
        ' Prendre en note le dernier classeur ouvert
        Set excelBook = excelApp.Workbooks(excelApp.Workbooks.Count)
    End If
    On Error GoTo 0
End Sub

18/01/2008, 15h19
mamid1706

Pouquoi je fais cela?

Le but est de créer un nouveau fichier Excel rempli automatiquement par un programme Access.

Il y a un formulaire dans Access qui permet de choisir le répertoire de sauvegarde et, par une zone de saisie, d'entrer le nom du fichier à générer.

Comme il est probable que l'utilisateur choisisse des noms semblables pour différents fichiers créés, j'avais peur qu'il y ait un beug (Excel ne permet pas d'ouvrir deux fichier Excel portant le même nom). C'est pour cette raison que je voulais d'abord parcourir la collection WorkBooks pour connaitre les noms des fichiers ouverts et tester avec le nom du fichier à créer.

Mais, finalement, comme il s'agit d'une nouvelle instance, cela devient possible (2 fichiers portant un même nom, sont ouverts dans deux instances différentes).

Le seul probème qui reste est dans le cas ou les deux fichiers ouverts ne sont que le même fichier. Mais j'interdirai ce cas en demandant à l'utilisateur si il veut remplacer le fichier.

Merci pour ton précieuse aide.

Bien cordialement.

Citation:

Envoyé par Singular

juste un exemple de ce qui peut être fait:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub AccederAUnClasseur()
    Dim excelApp As Excel.Application
    Dim excelBook As Excel.Workbook
    Dim nomFichier As String
 
    nomFichier = "PatatiEtPatata.xls"
    On Error Resume Next
    Set excelApp = GetObject("Excel.Application")
    ' Aucune instance d'Excel ouverte?
    If Err.Number <> 0 Then
        Err.Clear
        ' Ouvrir une instance
        Set excelApp = CreateObject("Excel.Application")
    End If
    Set excelBook = excelApp.Workbooks(nomFichier)
    ' Aucun fichier de ce nom ouvert?
    If Err.Number <> 0 Then
        Err.Clear
        ' Ouvrir le fichier
        excelApp.Workbooks.Open nomFichier
        ' Erreur à l'ouverture?
        If Err.Number <> 0 Then
            Err.Clear
            MsgBox Prompt:="Le fichier " & nomFivhier & " ne peut pas être ouvert!", _
                    Buttons:=vbOKOnly + vbCritical, Title:="Erreur d'ouverture de fichier"
            ' Terminer le processus car le fichier ne peut pas être ouvert
            Exit Sub  ' ou Function ou For ou Do, dépendamment du contexte
        End If
        ' Prendre en note le dernier classeur ouvert
        Set excelBook = excelApp.Workbooks(excelApp.Workbooks.Count)
    End If
    On Error GoTo 0
End Sub

Merci pour ta solution. Je pense qu'elle me sera utile.
Très bonne journée.