XL 2013 Arrêter une Macro si une condition n'est pas remplie (if... then... endif...)

[onyirimba]

Bonjour,

Dans la programmation ci-dessous je souhaite que si les fichiers "CK.xls","CT.xls" ,"FU.xls" etc.... ne sont pas ouvert dans mon ordinateur que la programmation s'arrête (atteigne directement End Sub c'est la dire la fin de la macro).
Je n'y arrive pas car lorsque les fichiers en question ne sont pas ouvert j'ai "un message de débogage" et les fichiers en question sont surlignés en jaune

Quelle est la solution ?
est-ce ? le codage ci-après ?
Option Explicit

Sub Maj()



Dim x
Dim Cel As Range
Const Formule As String = "=IFERROR(G@/F@,0)"
Dim Bdd As Range, Destination As Range
Dim nbLignes As Long



If Classeur_Ouvert("CK.xls") = False Then MsgBox "CK.xls is not open"
End if
etc......
Merci d'avance

 

[sylvanu]

Bonjour onyirimba,
Peut être une possibilité avec :

 Sub Essai()
    ' Si Fichier est non ouvert, on sort de la macro
    On Error Resume Next
    Fichier = "CK.xls"                  ' Mettre ici le nom de fichier désiré
    If Application.Workbooks.Item(Fichier).Name = "" Then
        MsgBox Fichier & " is not open" ' Message éventuel d'alerte
        Exit Sub                        ' On sort !
    End If
    MsgBox Fichier & " is open"         ' Message éventuel d'alerte
End Sub

 

[onyirimba]

Bonjour onyirimba,
Peut être une possibilité avec :

 Sub Essai()
    ' Si Fichier est non ouvert, on sort de la macro
    On Error Resume Next
    Fichier = "CK.xls"                  ' Mettre ici le nom de fichier désiré
    If Application.Workbooks.Item(Fichier).Name = "" Then
        MsgBox Fichier & " is not open" ' Message éventuel d'alerte
        Exit Sub                        ' On sort !
    End If
    MsgBox Fichier & " is open"         ' Message éventuel d'alerte
End Sub

Bonjour,

Merci beaucoup je regarde