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

onyirimba · 22 Octobre 2021

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 · 22 Octobre 2021

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 · 22 Octobre 2021

sylvanu à dit:

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

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

onyirimba

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

onyirimba

XLDnaute Occasionnel

Discussions similaires