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