comment contôler qu'une feuille excel est déja ouverte ??Résolu

Question

[mailto:S@lut S@lut] @ tous comment v&#233;rifier qu'une feuille excel est d&#233;ja ouverte, et si ce le cas la fermer, merci beaucoup!!

mrdep1978 · Accepted Answer

Par feuille Excel, je suppose que tu veux dire fichier Excel.
Tu as 2 solutions :

- Parcourir tous les classeurs ouverts et fermer celui qui a le bon nom :
Dim l_Workbook As Workbook
'Parcourt les classeurs ouverts
For Each l_Workbook In Workbooks
   'Teste le nom du classeur
    If l_Workbook.Name = "Classeur2.xls" Then
        'Ferme le classeur sans enregistrer
        l_Workbook.Close False
        'Sort de la boucle
        Exit For
    End If
Next l_Workbook

- Utiliser la gestion d'erreur en essayant de manipuler un classeur qui le nom que tu veux
If lfct_WorkBookExists("Classeur3.xls") Then
    Workbooks("Classeur3.xls").Close False
End If
Avec la fonction :
Public Function lfct_WorkBookExists(a_Name As String) As Boolean
   On Error GoTo Err_NoWorkbook
   lfct_WorkBookExists = (Workbooks(a_Name).Name <> "")
   Exit Function
Err_NoWorkbook:
   lfct_WorkBookExists = False
End Function
Cette solution n&#233;cessite que dans l'onglet G&#233;n&#233;ral du menu Outils - Options tu aies s&#233;lectionn&#233; l'option Arr&#234;t sur les erreurs non g&#233;r&#233;es

Comment contôler qu'une feuille excel est déja ouverte ??

1 réponse

Discussions similaires