Discussion :

[BtjpsspgrW]

Bonjour,

Je souhaiterais insérer une MsgBox dans le cas où le fichier nommé Controle.xls ne serait pas ouvert avant l'avertissement de Visual Basic :
Erreur d'exécution 9 (Fin ou Débogage). A quel endroit, l'insérer ?

Code :

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

1
2
3
If Err.Number = 9 Then
MsgBox("Le fichier ´Controle.xls' n'est pas ouvert")
End If

Voici ma syntaxe :

Code :

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

1
2
3
4
5
6
7
8
9
Select Case MsgBox("Le fichier ´Controle ´ est-il ouvert ?", vbYesNo + vbCritical)
Case vbYes
Windows("Controle.xls").Activate
 ... ...
... ...
Case vbNo
Exit Sub
End Select
End Sub

Quelle modification faut-il apporter ?

Vous en remerciant par avance.

Cordialement.

[electrons]

Bonjour,

Pour la solution, consulter le lien suivant, il y a des exemples intéressant :

http://support.microsoft.com/kb/141571/fr


Bonne journée

[Marc-L]

Bonjour, bonjour,

s'il est bien question de VBA et de savoir si un classeur est ouvert, facile via une fonction comme

Code :

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

1
2
3
4
Function ExistWindow(Name) As Boolean
         On Error Resume Next
         ExistWindow = IsObject(Application.Windows(Name))
End Function

ou encore

Code :

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

1
2
3
4
Function IsOpen(Name) As Boolean
         On Error Resume Next
         IsOpen = IsObject(Workbooks(Name))
End Function

Il faut juste prêter attention à l'affichage du nom du classeur dans Excel avec son extension,
cf config de l'Explorateur Windows …

_______________ ____________________________________ ______________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …