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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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 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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
243
Réponses
7
Affichages
968
Retour