Discussion :

[max2245]

Bonsoir,

je souhaiterais avoir dans une macro excel un
code qui vérifie que les fichiers .xls soient bien fermés,
car ma macro ouvre les fichiers excel du répertoire, donc
cela éviterait de les ouvrir en double.

Quelqu'un peut il me suggérer une solution?

Merci

[leroissejp]

Bonsoir,
Ce code vérifie si un classeur est ouvert ou non et demande s'il faut l'ouvrir s'il est fermé. Tu peux peut-être l'adapter ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Function EstDansCollection(Coln As Object, Item As String) As Boolean
Dim obj As Object
On Error Resume Next
Set obj = Coln(Item)
EstDansCollection = Not obj Is Nothing
End Function
 
Private Sub CommandButton1_Click()
Dim Reponse
    If EstDansCollection(Workbooks, "Classeur2.xls") = True Then
        MsgBox "Le classeur est déjà ouvert !"
    Exit Sub
End If
 
If EstDansCollection(Workbooks, "Classeur2.xls") = False Then
    Reponse = MsgBox("Le classeur n'est pas ouvert, voulez-vous l'ouvrir ?", vbInformation + vbYesNo)
    If (Reponse = vbNo) Then
    Exit Sub
Else
        Workbooks.Open ("Classeur2.xls")
    End If
End If
End Sub

jpleroisse

[max2245]

ok je te remercie, mais à mon avis il doit y avoir plus simple,
je crois avoir vu une solution proposée dejà ici; il va falloir
quue je regarde!

[leroissejp]

Re,
Cette macro ferme tous les classeur ouvert, mis à part le classeur Actif

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub FermerTousClasseurs()
Dim Classeur As Workbook
For Each Classeur In Workbooks
    If Classeur.Name <> ThisWorkbook.Name Then
        Classeur.Close SaveChanges:=True
    End If
Next Classeur
End Sub

jpleroisse

[calimero91]

je ne sait pas si cela est valable en VBA mais je pense qu'un excel.quit devrais suffir.etant donne que de cette maniere tu ferme completement l'application excel tout les classeur devrais etre fermer.

[max2245]

Je te remercie; il faudrait une application qui aille voir
tous les classeurs ouverts et qui les ferme, sauf celui que tu
utilises.
Tu peux me dire comment on fait dans ce cas la, car je ne vois
pas comment ta fonction peut fonctionner!

[max2245]

ok merci j'ai testé ca marche, il suffit de rentrer le code;
je pensais qu'il fallait appeler la fonction ultérieurement!

[jmfmarques]

Je connais mal l'utilisation d'Excel (je n'ai plus pratiqué depuis très longtemps).

Je ne sais donc pas si ce qui suit, trouvé dans l'aide en ligne, correspond réellement à des besoins :

Les objets sont les éléments fondamentaux de Visual Basic. En effet, la quasi totalité des opérations que vous effectuez dans Visual Basic impliquent leur utilisation. Chaque élément de Microsoft Excel (classeurs, feuilles de calcul, graphiques, cellules, etc.) peut être représenté par un objet dans Visual Basic. En créant des procédures qui appliquent les méthodes et contrôlent les propriétés de ces objets, vous pouvez automatiser des tâches dans Microsoft Excel.

Qu'est-ce qu'un objet?

Un objet représente un élément de Microsoft Excel, tel qu'un classeur, une feuille de calcul, un graphique ou une plage de cellules. Dans le code Visual Basic, vous devez identifier un objet avant de pouvoir lui appliquer une de ses méthodes ou changer la valeur de l'une de ses propriétés.

Qu'est-ce qu'une collection?

Une collection est un objet qui contient plusieurs autres objets qui sont, en règle générale, du même type. Par exemple, la collection Workbooks contient tous les objets Workbook ouverts.
Utilisez la méthode Workbooks pour renvoyer un membre particulier de la collection Workbooks. Vous travaillez avec une collection comme vous le feriez avec un tableau. Ainsi, vous pouvez identifier un élément au sein d'une collection en délimitant un nom ou un numéro à l'aide de parenthèses. Par exemple, dans la procédure suivante, Workbooks(1) identifie le premier objet Workbook ouvert, puis la méthode Close le ferme.

Sub FermerPremier()
Workbooks(1).Close
End Sub

La procédure suivante utilise un nom (spécifié sous forme de chaîne) pour identifier un objet Workbook.

Sub FermerClass()
Workbooks("MonClass.xls").Close
End Sub

Remarque Vous devez utiliser les méthodes Workbooks et Worksheets pour identifier un classeur ou une feuille de calcul. N'utilisez jamais le mot «Workbook» ou «Worksheet» dans Visual Basic pour désigner un objet Workbook ou Worksheet particulier.

Vous pouvez également manipuler la totalité d'une collection d'objets. Par exemple, la procédure suivante ferme tous les classeurs ouverts.

Sub FermerTout()
Workbooks.Close
End Sub

Parcours de la hiérarchie pour accéder à un objet

Pour renvoyer un objet, vous devez parcourir vers le bas la hiérarchie des objets Microsoft Excel. Par exemple, la procédure suivante supprime la première feuille de calcul contenue dans le classeur nommé CLASS6.XLS.

Sub SupprimerPremier()
Application.Workbooks("Class6.xls").Worksheets(1).Delete
End Sub

La propriété Application renvoie l'objet Application. La méthode Workbooks de l'objet Application renvoie l'objet classeur unique qui fait référence à CLASS6.XLS. Ensuite, la méthode Worksheets de l'objet Workbook renvoie le premier objet Worksheet du classeur CLASS6.XLS. Enfin, la méthode Delete est appliquée à l'objet Worksheet.
Comme vous pouvez le constater, vous utilisez toujours une méthode ou une propriété pour descendre dans la hiérarchie vers un objet. Cela signifie que vous renvoyez un objet en appliquant une méthode ou une propriété à un objet se trouvant au-dessus de lui dans la hiérarchie des objets. Après avoir renvoyé l'objet souhaité, vous pouvez appliquer les méthodes et contrôler les propriétés de cet objet. Pour passer en revue la hiérarchie des objets, reportez-vous à la rubrique Objets Microsoft Excel. Pour plus d'informations sur l'utilisation des méthodes et des propriétés pour parcourir la hiérarchie des objets afin d'accéder à l'objet souhaité, reportez-vous à la section «Renvoi d'objets à l'aide de méthodes et de propriétés», plus loin dans cette rubrique.