VBA : vérifier si le classeur est ouvert (avec exemple)

Vous pouvez utiliser la syntaxe suivante dans VBA pour vérifier si un classeur particulier est actuellement ouvert.

Sub CheckWorkbookOpen()

Dim resultCheck As Boolean
Dim wb As Workbook
Dim specific_wb As String
    
On Error Resume Next
specific_wb = InputBox("Check if this workbook is open:")
    
Set wb = Application.Workbooks.Item(specific_wb)
resultCheck = Not wb Is Nothing

If resultCheck Then
    MsgBox "Workbook is open"
Else
    MsgBox "Workbook is not open"
End If
    
End Sub

Lorsque cette macro est exécutée, une zone de saisie apparaîtra dans laquelle un utilisateur peut saisir le nom d’un classeur Excel et la macro produira une boîte de message avec l’un des résultats suivants :

• « Le classeur est ouvert »
• « Le classeur n’est pas ouvert »

L’exemple suivant montre comment utiliser cette syntaxe dans la pratique.

Exemple : Comment vérifier si le classeur est ouvert à l’aide de VBA

Supposons que nous ayons actuellement deux classeurs ouverts portant les noms suivants :

• mon_workbook1.xlsx
• mon_workbook2.xlsx

Supposons que nous souhaitions vérifier si le classeur appelé my_workbook1.xlsx est actuellement ouvert.

Nous pouvons créer la macro suivante pour ce faire :

Sub CheckWorkbookOpen()

Dim resultCheck As Boolean
Dim wb As Workbook
Dim specific_wb As String
    
On Error Resume Next
specific_wb = InputBox("Check if this workbook is open:")
    
Set wb = Application.Workbooks.Item(specific_wb)
resultCheck = Not wb Is Nothing

If resultCheck Then
    MsgBox "Workbook is open"
Else
    MsgBox "Workbook is not open"
End If
    
End Sub

Une fois que nous avons exécuté cette macro, une boîte apparaîtra dans laquelle je peux saisir my_workbook1.xlsx dans la zone de saisie :

Une fois que j’ai cliqué sur OK , la macro produira la boîte de message suivante :

La macro affiche correctement « Le classeur est ouvert » pour indiquer qu’un classeur portant ce nom est actuellement ouvert.

Supposons maintenant que j’aie tapé le nom d’un classeur qui n’est pas actuellement ouvert :

Une fois que j’ai cliqué sur OK , la macro produira la boîte de message suivante :

La macro affiche correctement « Le classeur n’est pas ouvert » pour indiquer qu’un classeur portant ce nom n’est pas actuellement ouvert.

Ressources additionnelles

Les didacticiels suivants expliquent comment effectuer d’autres tâches courantes dans VBA :

VBA : Comment compter le nombre de feuilles dans un classeur
VBA : comment insérer plusieurs colonnes
VBA : comment insérer plusieurs lignes