Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour,
Une suggestion :
Fichier = "Mon Classeur.xls"
Top = 0
For Each Class In Workbooks
If Class.Name = Fichier Then Top = 1
Next
If Top = 1 Then
Msgbox "Le fichier est ouvert"
Else
Msgbox "Le fichier n'est pas ouvert"
End If
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.