Petite procédure pour éviter le démarrage d'une macro si ?
12 réponses
DC
Bonjour,
Est-il possible avec une petite procédure, d'éviter le démarrage d'une
macro, si le 2ème classeur n'est pas chargé à l'écran, ( peut importe son
noms ) du fait de sa variabilité ?
En fait la présence de 2 classeurs chargés à l'écran, est nécéssaire pour le
bon fonctionnement de la macro!
Merci d'y penser ! Merci d'avance de votre aide !
Merci pour vos réponses positives et qui fonctionnent très bien,
J'ai la préférence pour la dernière de RI, qui me parâit être la plus simple et je n'ai rajouté que le " Exib Sub" pour être parfaite dans son fonctionnement, ( voir ci-dessous )
Un grand Merci à vous trois, au plaisir de vous revoir !
'-------------------------------------------------------- Sub Ligne_Seule()
On Error GoTo Sortie
If Workbooks.Count > 2 Then MsgBox "Il n'y a qu'un classeur d'ouvert: ( Arrêt )" Et ça ça fonctionne?
La boîte apparaît quand il y a déjà au moins 3 classeurs d'ouverts et la macro s'arrête?
Exit Sub End If Application.Run "'PERSO.xls'!Bis_Ligne_Seule" Cette macro s'exécutera si 1 ou 2 classeurs sont ouverts
Sortie: End Sub
Est-ce bien ce qui est attendu? Pour plus de clarté, et la maintenance, utiliser de préférence if/else/endif que ExitSub
R1
'----------------------------------------------
Cordialement ! DC
DC wrote:
Bonjour, jps et RI et JB
Merci pour vos réponses positives et qui fonctionnent très bien,
J'ai la préférence pour la dernière de RI, qui me parâit être la plus
simple
et je n'ai rajouté que le " Exib Sub" pour être parfaite dans son
fonctionnement, ( voir ci-dessous )
Un grand Merci à vous trois, au plaisir de vous revoir !
'--------------------------------------------------------
Sub Ligne_Seule()
On Error GoTo Sortie
If Workbooks.Count > 2 Then
MsgBox "Il n'y a qu'un classeur d'ouvert: ( Arrêt )"
Et ça ça fonctionne?
La boîte apparaît quand il y a déjà au moins 3 classeurs d'ouverts et la
macro s'arrête?
Exit Sub
End If
Application.Run "'PERSO.xls'!Bis_Ligne_Seule"
Cette macro s'exécutera si 1 ou 2 classeurs sont ouverts
Sortie:
End Sub
Est-ce bien ce qui est attendu?
Pour plus de clarté, et la maintenance, utiliser de préférence if/else/endif
que ExitSub
Merci pour vos réponses positives et qui fonctionnent très bien,
J'ai la préférence pour la dernière de RI, qui me parâit être la plus simple et je n'ai rajouté que le " Exib Sub" pour être parfaite dans son fonctionnement, ( voir ci-dessous )
Un grand Merci à vous trois, au plaisir de vous revoir !
'-------------------------------------------------------- Sub Ligne_Seule()
On Error GoTo Sortie
If Workbooks.Count > 2 Then MsgBox "Il n'y a qu'un classeur d'ouvert: ( Arrêt )" Et ça ça fonctionne?
La boîte apparaît quand il y a déjà au moins 3 classeurs d'ouverts et la macro s'arrête?
Exit Sub End If Application.Run "'PERSO.xls'!Bis_Ligne_Seule" Cette macro s'exécutera si 1 ou 2 classeurs sont ouverts
Sortie: End Sub
Est-ce bien ce qui est attendu? Pour plus de clarté, et la maintenance, utiliser de préférence if/else/endif que ExitSub
R1
'----------------------------------------------
Cordialement ! DC
DC
Bonjour, R1
C'est très gentil de ta part de m'aider à la perfection, aussi je vais voir çà de plus près et essayer de mieux comprendre les choses,
Un grand MERCI ! pour ton dévouement,........ à la prochaine !
Cordialement ! DC
"R1" a écrit dans le message de news:
DC wrote:
Bonjour, jps et RI et JB
Merci pour vos réponses positives et qui fonctionnent très bien,
J'ai la préférence pour la dernière de RI, qui me parâit être la plus simple et je n'ai rajouté que le " Exib Sub" pour être parfaite dans son fonctionnement, ( voir ci-dessous )
Un grand Merci à vous trois, au plaisir de vous revoir !
'-------------------------------------------------------- Sub Ligne_Seule()
On Error GoTo Sortie
If Workbooks.Count > 2 Then MsgBox "Il n'y a qu'un classeur d'ouvert: ( Arrêt )" Et ça ça fonctionne?
La boîte apparaît quand il y a déjà au moins 3 classeurs d'ouverts et la macro s'arrête?
Exit Sub End If Application.Run "'PERSO.xls'!Bis_Ligne_Seule" Cette macro s'exécutera si 1 ou 2 classeurs sont ouverts
Sortie: End Sub
Est-ce bien ce qui est attendu? Pour plus de clarté, et la maintenance, utiliser de préférence if/else/endif que ExitSub
R1
'----------------------------------------------
Cordialement ! DC
Bonjour, R1
C'est très gentil de ta part de m'aider à la perfection, aussi je vais voir
çà de plus près et essayer de mieux comprendre les choses,
Un grand MERCI ! pour ton dévouement,........ à la prochaine !
Cordialement ! DC
"R1" <R125600_AOTER_@hotmail.com> a écrit dans le message de news:
evlA8MpeHHA.4188@TK2MSFTNGP02.phx.gbl...
DC wrote:
Bonjour, jps et RI et JB
Merci pour vos réponses positives et qui fonctionnent très bien,
J'ai la préférence pour la dernière de RI, qui me parâit être la plus
simple
et je n'ai rajouté que le " Exib Sub" pour être parfaite dans son
fonctionnement, ( voir ci-dessous )
Un grand Merci à vous trois, au plaisir de vous revoir !
'--------------------------------------------------------
Sub Ligne_Seule()
On Error GoTo Sortie
If Workbooks.Count > 2 Then
MsgBox "Il n'y a qu'un classeur d'ouvert: ( Arrêt )"
Et ça ça fonctionne?
La boîte apparaît quand il y a déjà au moins 3 classeurs d'ouverts et la
macro s'arrête?
Exit Sub
End If
Application.Run "'PERSO.xls'!Bis_Ligne_Seule"
Cette macro s'exécutera si 1 ou 2 classeurs sont ouverts
Sortie:
End Sub
Est-ce bien ce qui est attendu?
Pour plus de clarté, et la maintenance, utiliser de préférence
if/else/endif
que ExitSub
C'est très gentil de ta part de m'aider à la perfection, aussi je vais voir çà de plus près et essayer de mieux comprendre les choses,
Un grand MERCI ! pour ton dévouement,........ à la prochaine !
Cordialement ! DC
"R1" a écrit dans le message de news:
DC wrote:
Bonjour, jps et RI et JB
Merci pour vos réponses positives et qui fonctionnent très bien,
J'ai la préférence pour la dernière de RI, qui me parâit être la plus simple et je n'ai rajouté que le " Exib Sub" pour être parfaite dans son fonctionnement, ( voir ci-dessous )
Un grand Merci à vous trois, au plaisir de vous revoir !
'-------------------------------------------------------- Sub Ligne_Seule()
On Error GoTo Sortie
If Workbooks.Count > 2 Then MsgBox "Il n'y a qu'un classeur d'ouvert: ( Arrêt )" Et ça ça fonctionne?
La boîte apparaît quand il y a déjà au moins 3 classeurs d'ouverts et la macro s'arrête?
Exit Sub End If Application.Run "'PERSO.xls'!Bis_Ligne_Seule" Cette macro s'exécutera si 1 ou 2 classeurs sont ouverts
Sortie: End Sub
Est-ce bien ce qui est attendu? Pour plus de clarté, et la maintenance, utiliser de préférence if/else/endif que ExitSub
