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

onyirimba

XLDnaute Occasionnel
Supporter XLD
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

1634892051664.png
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour onyirimba,
Peut être une possibilité avec :
VB:
 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

XLDnaute Occasionnel
Supporter XLD
Bonjour onyirimba,
Peut être une possibilité avec :
VB:
 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
 

Discussions similaires

Réponses
7
Affichages
485

Statistiques des forums

Discussions
311 725
Messages
2 081 939
Membres
101 844
dernier inscrit
pktla