Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à un "On
error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le projet ?
Je m'explique : en général, on traite l'erreur en plaçant ladite li gne avant
une ligne de code qui "pourrait" poser problème ... mais l'idée serai t de
prévoir l'imprévisible afin d'épargner à l'utilisateur l'affichag e d'une
fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse !) ...
Cordialement,
JP
Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à un "On
error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le projet ?
Je m'explique : en général, on traite l'erreur en plaçant ladite li gne avant
une ligne de code qui "pourrait" poser problème ... mais l'idée serai t de
prévoir l'imprévisible afin d'épargner à l'utilisateur l'affichag e d'une
fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse !) ...
Cordialement,
JP
Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à un "On
error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le projet ?
Je m'explique : en général, on traite l'erreur en plaçant ladite li gne avant
une ligne de code qui "pourrait" poser problème ... mais l'idée serai t de
prévoir l'imprévisible afin d'épargner à l'utilisateur l'affichag e d'une
fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse !) ...
Cordialement,
JP
Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à un
"On error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le
projet ?
Je m'explique : en général, on traite l'erreur en plaçant ladite ligne
avant une ligne de code qui "pourrait" poser problème ... mais l'idée
serait de prévoir l'imprévisible afin d'épargner à l'utilisateur
l'affichage d'une fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse !) ...
Cordialement,
JP
Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à un
"On error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le
projet ?
Je m'explique : en général, on traite l'erreur en plaçant ladite ligne
avant une ligne de code qui "pourrait" poser problème ... mais l'idée
serait de prévoir l'imprévisible afin d'épargner à l'utilisateur
l'affichage d'une fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse !) ...
Cordialement,
JP
Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à un
"On error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le
projet ?
Je m'explique : en général, on traite l'erreur en plaçant ladite ligne
avant une ligne de code qui "pourrait" poser problème ... mais l'idée
serait de prévoir l'imprévisible afin d'épargner à l'utilisateur
l'affichage d'une fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse !) ...
Cordialement,
JP
Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à un
"On
error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le projet
?
Je m'explique : en général, on traite l'erreur en plaçant ladite ligne
avant
une ligne de code qui "pourrait" poser problème ... mais l'idée serait de
prévoir l'imprévisible afin d'épargner à l'utilisateur l'affichage d'une
fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse !) ...
Cordialement,
JP
Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à un
"On
error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le projet
?
Je m'explique : en général, on traite l'erreur en plaçant ladite ligne
avant
une ligne de code qui "pourrait" poser problème ... mais l'idée serait de
prévoir l'imprévisible afin d'épargner à l'utilisateur l'affichage d'une
fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse !) ...
Cordialement,
JP
Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à un
"On
error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le projet
?
Je m'explique : en général, on traite l'erreur en plaçant ladite ligne
avant
une ligne de code qui "pourrait" poser problème ... mais l'idée serait de
prévoir l'imprévisible afin d'épargner à l'utilisateur l'affichage d'une
fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse !) ...
Cordialement,
JP
Bonsoir Jacques,
Ca fonctionne parfaitement ... Merci !
Je ne comprends pas :
'---------
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
'---------
Est-ce que ça traite le cas où l'onglet "Toto" existe ??
Si oui, que fait "Sheets.Add" ? Pas à pas, je ne vois rien !
@+ ?
JP
"JB" a écrit dans le message de news:
Bonsoir,
Sub essai()
'....
'....
On Error Resume Next ' si erreur, continuer (on va traiter l
'erreur si on la reconnaît)
onglet = "Toto"
Sheets(onglet).Select
Select Case Err.Number
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = onglet
Case Is > 0
GoTo FinProg
End Select
On Error GoTo FinProg ' Si erreur, aller à finProg pour
erreursnon prévues.
'suite du pgm
'....
End
FinProg:
MsgBox "Erreur non prévue"
Sheets("log").[A65000].End(xlUp).Offset(1, 0) = Environ("Username")
Sheets("log").[A65000].End(xlUp).Offset(0, 1) = Now
Sheets("log").[A65000].End(xlUp).Offset(0, 2) = Err.Number
Sheets("log").[A65000].End(xlUp).Offset(0, 3) = Err.Description
ActiveWorkbook.Save
Stop
End Sub
JBhttp://boisgontierjacques.free.fr
On 19 oct, 18:34, "j-pascal" wrote:Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à un
"On
error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le proj et
?
Je m'explique : en général, on traite l'erreur en plaçant ladite ligne
avant
une ligne de code qui "pourrait" poser problème ... mais l'idée ser ait de
prévoir l'imprévisible afin d'épargner à l'utilisateur l'affich age d'une
fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse ! ) ...
Cordialement,
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir Jacques,
Ca fonctionne parfaitement ... Merci !
Je ne comprends pas :
'---------
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
'---------
Est-ce que ça traite le cas où l'onglet "Toto" existe ??
Si oui, que fait "Sheets.Add" ? Pas à pas, je ne vois rien !
@+ ?
JP
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1192815018.487392.41...@e9g2000prf.googlegroups.com...
Bonsoir,
Sub essai()
'....
'....
On Error Resume Next ' si erreur, continuer (on va traiter l
'erreur si on la reconnaît)
onglet = "Toto"
Sheets(onglet).Select
Select Case Err.Number
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = onglet
Case Is > 0
GoTo FinProg
End Select
On Error GoTo FinProg ' Si erreur, aller à finProg pour
erreursnon prévues.
'suite du pgm
'....
End
FinProg:
MsgBox "Erreur non prévue"
Sheets("log").[A65000].End(xlUp).Offset(1, 0) = Environ("Username")
Sheets("log").[A65000].End(xlUp).Offset(0, 1) = Now
Sheets("log").[A65000].End(xlUp).Offset(0, 2) = Err.Number
Sheets("log").[A65000].End(xlUp).Offset(0, 3) = Err.Description
ActiveWorkbook.Save
Stop
End Sub
JBhttp://boisgontierjacques.free.fr
On 19 oct, 18:34, "j-pascal" <nospam-j-pas...@free.fr> wrote:
Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à un
"On
error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le proj et
?
Je m'explique : en général, on traite l'erreur en plaçant ladite ligne
avant
une ligne de code qui "pourrait" poser problème ... mais l'idée ser ait de
prévoir l'imprévisible afin d'épargner à l'utilisateur l'affich age d'une
fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse ! ) ...
Cordialement,
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir Jacques,
Ca fonctionne parfaitement ... Merci !
Je ne comprends pas :
'---------
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
'---------
Est-ce que ça traite le cas où l'onglet "Toto" existe ??
Si oui, que fait "Sheets.Add" ? Pas à pas, je ne vois rien !
@+ ?
JP
"JB" a écrit dans le message de news:
Bonsoir,
Sub essai()
'....
'....
On Error Resume Next ' si erreur, continuer (on va traiter l
'erreur si on la reconnaît)
onglet = "Toto"
Sheets(onglet).Select
Select Case Err.Number
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = onglet
Case Is > 0
GoTo FinProg
End Select
On Error GoTo FinProg ' Si erreur, aller à finProg pour
erreursnon prévues.
'suite du pgm
'....
End
FinProg:
MsgBox "Erreur non prévue"
Sheets("log").[A65000].End(xlUp).Offset(1, 0) = Environ("Username")
Sheets("log").[A65000].End(xlUp).Offset(0, 1) = Now
Sheets("log").[A65000].End(xlUp).Offset(0, 2) = Err.Number
Sheets("log").[A65000].End(xlUp).Offset(0, 3) = Err.Description
ActiveWorkbook.Save
Stop
End Sub
JBhttp://boisgontierjacques.free.fr
On 19 oct, 18:34, "j-pascal" wrote:Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à un
"On
error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le proj et
?
Je m'explique : en général, on traite l'erreur en plaçant ladite ligne
avant
une ligne de code qui "pourrait" poser problème ... mais l'idée ser ait de
prévoir l'imprévisible afin d'épargner à l'utilisateur l'affich age d'une
fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse ! ) ...
Cordialement,
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
blablabla peut être appelé par tout Sub du projet et même gérer une partie
du problème par des échanges de valeurs
Dim P As Boolean, R As Integer
'
Sub xxxx()
Dim i As Integer: R = 1
On Error GoTo E_xxxx
debub.Print 1 / i
Exit Sub
E_xxxx:
blablabla
If P Then MsgBox "FIN"
End Sub
'
Sub blablabla()
P = True
MsgBox "Blablabla " & R
End Sub
Cordialement
"j-pascal" a écrit dans le message de news:Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à un
"On error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le
projet ?
Je m'explique : en général, on traite l'erreur en plaçant ladite ligne
avant une ligne de code qui "pourrait" poser problème ... mais l'idée
serait de prévoir l'imprévisible afin d'épargner à l'utilisateur
l'affichage d'une fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse !) ...
Cordialement,
JP
blablabla peut être appelé par tout Sub du projet et même gérer une partie
du problème par des échanges de valeurs
Dim P As Boolean, R As Integer
'
Sub xxxx()
Dim i As Integer: R = 1
On Error GoTo E_xxxx
debub.Print 1 / i
Exit Sub
E_xxxx:
blablabla
If P Then MsgBox "FIN"
End Sub
'
Sub blablabla()
P = True
MsgBox "Blablabla " & R
End Sub
Cordialement
"j-pascal" <nospam-j-pascal@free.fr> a écrit dans le message de news:
eFZSm4mEIHA.484@TK2MSFTNGP06.phx.gbl...
Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à un
"On error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le
projet ?
Je m'explique : en général, on traite l'erreur en plaçant ladite ligne
avant une ligne de code qui "pourrait" poser problème ... mais l'idée
serait de prévoir l'imprévisible afin d'épargner à l'utilisateur
l'affichage d'une fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse !) ...
Cordialement,
JP
blablabla peut être appelé par tout Sub du projet et même gérer une partie
du problème par des échanges de valeurs
Dim P As Boolean, R As Integer
'
Sub xxxx()
Dim i As Integer: R = 1
On Error GoTo E_xxxx
debub.Print 1 / i
Exit Sub
E_xxxx:
blablabla
If P Then MsgBox "FIN"
End Sub
'
Sub blablabla()
P = True
MsgBox "Blablabla " & R
End Sub
Cordialement
"j-pascal" a écrit dans le message de news:Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à un
"On error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le
projet ?
Je m'explique : en général, on traite l'erreur en plaçant ladite ligne
avant une ligne de code qui "pourrait" poser problème ... mais l'idée
serait de prévoir l'imprévisible afin d'épargner à l'utilisateur
l'affichage d'une fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse !) ...
Cordialement,
JP
Bonsoir Jacques,
Ca fonctionne parfaitement ... Merci !
Je ne comprends pas :
'---------
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
'---------
Est-ce que ça traite le cas où l'onglet "Toto" existe ??
Si oui, que fait "Sheets.Add" ? Pas à pas, je ne vois rien !
@+ ?
JP
"JB" a écrit dans le message de news:
Bonsoir,
Sub essai()
'....
'....
On Error Resume Next ' si erreur, continuer (on va traiter l
'erreur si on la reconnaît)
onglet = "Toto"
Sheets(onglet).Select
Select Case Err.Number
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = onglet
Case Is > 0
GoTo FinProg
End Select
On Error GoTo FinProg ' Si erreur, aller à finProg pour
erreursnon prévues.
'suite du pgm
'....
End
FinProg:
MsgBox "Erreur non prévue"
Sheets("log").[A65000].End(xlUp).Offset(1, 0) = Environ("Username")
Sheets("log").[A65000].End(xlUp).Offset(0, 1) = Now
Sheets("log").[A65000].End(xlUp).Offset(0, 2) = Err.Number
Sheets("log").[A65000].End(xlUp).Offset(0, 3) = Err.Description
ActiveWorkbook.Save
Stop
End Sub
JBhttp://boisgontierjacques.free.fr
On 19 oct, 18:34, "j-pascal" wrote:Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à un
"On
error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le
projet
?
Je m'explique : en général, on traite l'erreur en plaçant ladite ligne
avant
une ligne de code qui "pourrait" poser problème ... mais l'idée serait
de
prévoir l'imprévisible afin d'épargner à l'utilisateur l'affichage d'une
fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse !) ...
Cordialement,
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir Jacques,
Ca fonctionne parfaitement ... Merci !
Je ne comprends pas :
'---------
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
'---------
Est-ce que ça traite le cas où l'onglet "Toto" existe ??
Si oui, que fait "Sheets.Add" ? Pas à pas, je ne vois rien !
@+ ?
JP
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1192815018.487392.41...@e9g2000prf.googlegroups.com...
Bonsoir,
Sub essai()
'....
'....
On Error Resume Next ' si erreur, continuer (on va traiter l
'erreur si on la reconnaît)
onglet = "Toto"
Sheets(onglet).Select
Select Case Err.Number
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = onglet
Case Is > 0
GoTo FinProg
End Select
On Error GoTo FinProg ' Si erreur, aller à finProg pour
erreursnon prévues.
'suite du pgm
'....
End
FinProg:
MsgBox "Erreur non prévue"
Sheets("log").[A65000].End(xlUp).Offset(1, 0) = Environ("Username")
Sheets("log").[A65000].End(xlUp).Offset(0, 1) = Now
Sheets("log").[A65000].End(xlUp).Offset(0, 2) = Err.Number
Sheets("log").[A65000].End(xlUp).Offset(0, 3) = Err.Description
ActiveWorkbook.Save
Stop
End Sub
JBhttp://boisgontierjacques.free.fr
On 19 oct, 18:34, "j-pascal" <nospam-j-pas...@free.fr> wrote:
Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à un
"On
error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le
projet
?
Je m'explique : en général, on traite l'erreur en plaçant ladite ligne
avant
une ligne de code qui "pourrait" poser problème ... mais l'idée serait
de
prévoir l'imprévisible afin d'épargner à l'utilisateur l'affichage d'une
fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse !) ...
Cordialement,
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonsoir Jacques,
Ca fonctionne parfaitement ... Merci !
Je ne comprends pas :
'---------
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
'---------
Est-ce que ça traite le cas où l'onglet "Toto" existe ??
Si oui, que fait "Sheets.Add" ? Pas à pas, je ne vois rien !
@+ ?
JP
"JB" a écrit dans le message de news:
Bonsoir,
Sub essai()
'....
'....
On Error Resume Next ' si erreur, continuer (on va traiter l
'erreur si on la reconnaît)
onglet = "Toto"
Sheets(onglet).Select
Select Case Err.Number
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = onglet
Case Is > 0
GoTo FinProg
End Select
On Error GoTo FinProg ' Si erreur, aller à finProg pour
erreursnon prévues.
'suite du pgm
'....
End
FinProg:
MsgBox "Erreur non prévue"
Sheets("log").[A65000].End(xlUp).Offset(1, 0) = Environ("Username")
Sheets("log").[A65000].End(xlUp).Offset(0, 1) = Now
Sheets("log").[A65000].End(xlUp).Offset(0, 2) = Err.Number
Sheets("log").[A65000].End(xlUp).Offset(0, 3) = Err.Description
ActiveWorkbook.Save
Stop
End Sub
JBhttp://boisgontierjacques.free.fr
On 19 oct, 18:34, "j-pascal" wrote:Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à un
"On
error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le
projet
?
Je m'explique : en général, on traite l'erreur en plaçant ladite ligne
avant
une ligne de code qui "pourrait" poser problème ... mais l'idée serait
de
prévoir l'imprévisible afin d'épargner à l'utilisateur l'affichage d'une
fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse !) ...
Cordialement,
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re,
Sur cet exemple, si la feuille TOTO n'existe pas, on la crée avec
Sheets.Add et on la renomme.
Mais à quoi sert cette feuille ? Je pensais (au départ) que tu séle ctionnais
une feuille qui n'existait pas pour "simuler" une erreur ...
Maintenant, ça bogue sur :
"Sheets("log").[A65000].End(xlUp).Offset(1, 0) = Environ("Username")"
(L'indice n'appartient pas à la sélection)
(Je ne comprends pas l'utilité de cette ligne et des 3 autres qui suive nt
...)
PS : pour produire une erreur, j'ai ajouté : "Sheets("zaza").Select" ap rès
'suite du pgm
Peut-être n'ai-je pas compris où il fallait insérer le programme "f autif" !
JB
On 20 oct, 21:25, "j-pascal" wrote:Bonsoir Jacques,
Ca fonctionne parfaitement ... Merci !
Je ne comprends pas :
'---------
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
'---------
Est-ce que ça traite le cas où l'onglet "Toto" existe ??
Si oui, que fait "Sheets.Add" ? Pas à pas, je ne vois rien !
@+ ?
JP
"JB" a écrit dans le message de news:
Bonsoir,
Sub essai()
'....
'....
On Error Resume Next ' si erreur, continuer (on va traiter l
'erreur si on la reconnaît)
onglet = "Toto"
Sheets(onglet).Select
Select Case Err.Number
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = onglet
Case Is > 0
GoTo FinProg
End Select
On Error GoTo FinProg ' Si erreur, aller à finProg pour
erreursnon prévues.
'suite du pgm
'....
End
FinProg:
MsgBox "Erreur non prévue"
Sheets("log").[A65000].End(xlUp).Offset(1, 0) = Environ("Username")
Sheets("log").[A65000].End(xlUp).Offset(0, 1) = Now
Sheets("log").[A65000].End(xlUp).Offset(0, 2) = Err.Number
Sheets("log").[A65000].End(xlUp).Offset(0, 3) = Err.Description
ActiveWorkbook.Save
Stop
End Sub
JBhttp://boisgontierjacques.free.fr
On 19 oct, 18:34, "j-pascal" wrote:Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à un
"On
error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le
projet
?
Je m'explique : en général, on traite l'erreur en plaçant ladit e ligne
avant
une ligne de code qui "pourrait" poser problème ... mais l'idée s erait
de
prévoir l'imprévisible afin d'épargner à l'utilisateur l'affi chage d'une
fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse !) ...
Cordialement,
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re,
Sur cet exemple, si la feuille TOTO n'existe pas, on la crée avec
Sheets.Add et on la renomme.
Mais à quoi sert cette feuille ? Je pensais (au départ) que tu séle ctionnais
une feuille qui n'existait pas pour "simuler" une erreur ...
Maintenant, ça bogue sur :
"Sheets("log").[A65000].End(xlUp).Offset(1, 0) = Environ("Username")"
(L'indice n'appartient pas à la sélection)
(Je ne comprends pas l'utilité de cette ligne et des 3 autres qui suive nt
...)
PS : pour produire une erreur, j'ai ajouté : "Sheets("zaza").Select" ap rès
'suite du pgm
Peut-être n'ai-je pas compris où il fallait insérer le programme "f autif" !
JB
On 20 oct, 21:25, "j-pascal" <nospam-j-pas...@free.fr> wrote:
Bonsoir Jacques,
Ca fonctionne parfaitement ... Merci !
Je ne comprends pas :
'---------
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
'---------
Est-ce que ça traite le cas où l'onglet "Toto" existe ??
Si oui, que fait "Sheets.Add" ? Pas à pas, je ne vois rien !
@+ ?
JP
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1192815018.487392.41...@e9g2000prf.googlegroups.com...
Bonsoir,
Sub essai()
'....
'....
On Error Resume Next ' si erreur, continuer (on va traiter l
'erreur si on la reconnaît)
onglet = "Toto"
Sheets(onglet).Select
Select Case Err.Number
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = onglet
Case Is > 0
GoTo FinProg
End Select
On Error GoTo FinProg ' Si erreur, aller à finProg pour
erreursnon prévues.
'suite du pgm
'....
End
FinProg:
MsgBox "Erreur non prévue"
Sheets("log").[A65000].End(xlUp).Offset(1, 0) = Environ("Username")
Sheets("log").[A65000].End(xlUp).Offset(0, 1) = Now
Sheets("log").[A65000].End(xlUp).Offset(0, 2) = Err.Number
Sheets("log").[A65000].End(xlUp).Offset(0, 3) = Err.Description
ActiveWorkbook.Save
Stop
End Sub
JBhttp://boisgontierjacques.free.fr
On 19 oct, 18:34, "j-pascal" <nospam-j-pas...@free.fr> wrote:
Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à un
"On
error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le
projet
?
Je m'explique : en général, on traite l'erreur en plaçant ladit e ligne
avant
une ligne de code qui "pourrait" poser problème ... mais l'idée s erait
de
prévoir l'imprévisible afin d'épargner à l'utilisateur l'affi chage d'une
fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse !) ...
Cordialement,
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re,
Sur cet exemple, si la feuille TOTO n'existe pas, on la crée avec
Sheets.Add et on la renomme.
Mais à quoi sert cette feuille ? Je pensais (au départ) que tu séle ctionnais
une feuille qui n'existait pas pour "simuler" une erreur ...
Maintenant, ça bogue sur :
"Sheets("log").[A65000].End(xlUp).Offset(1, 0) = Environ("Username")"
(L'indice n'appartient pas à la sélection)
(Je ne comprends pas l'utilité de cette ligne et des 3 autres qui suive nt
...)
PS : pour produire une erreur, j'ai ajouté : "Sheets("zaza").Select" ap rès
'suite du pgm
Peut-être n'ai-je pas compris où il fallait insérer le programme "f autif" !
JB
On 20 oct, 21:25, "j-pascal" wrote:Bonsoir Jacques,
Ca fonctionne parfaitement ... Merci !
Je ne comprends pas :
'---------
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
'---------
Est-ce que ça traite le cas où l'onglet "Toto" existe ??
Si oui, que fait "Sheets.Add" ? Pas à pas, je ne vois rien !
@+ ?
JP
"JB" a écrit dans le message de news:
Bonsoir,
Sub essai()
'....
'....
On Error Resume Next ' si erreur, continuer (on va traiter l
'erreur si on la reconnaît)
onglet = "Toto"
Sheets(onglet).Select
Select Case Err.Number
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = onglet
Case Is > 0
GoTo FinProg
End Select
On Error GoTo FinProg ' Si erreur, aller à finProg pour
erreursnon prévues.
'suite du pgm
'....
End
FinProg:
MsgBox "Erreur non prévue"
Sheets("log").[A65000].End(xlUp).Offset(1, 0) = Environ("Username")
Sheets("log").[A65000].End(xlUp).Offset(0, 1) = Now
Sheets("log").[A65000].End(xlUp).Offset(0, 2) = Err.Number
Sheets("log").[A65000].End(xlUp).Offset(0, 3) = Err.Description
ActiveWorkbook.Save
Stop
End Sub
JBhttp://boisgontierjacques.free.fr
On 19 oct, 18:34, "j-pascal" wrote:Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à un
"On
error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le
projet
?
Je m'explique : en général, on traite l'erreur en plaçant ladit e ligne
avant
une ligne de code qui "pourrait" poser problème ... mais l'idée s erait
de
prévoir l'imprévisible afin d'épargner à l'utilisateur l'affi chage d'une
fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse !) ...
Cordialement,
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Re,
Sur cet exemple, si la feuille TOTO n'existe pas, on la crée avec
Sheets.Add et on la renomme.
Mais à quoi sert cette feuille ? Je pensais (au départ) que tu
sélectionnais
une feuille qui n'existait pas pour "simuler" une erreur ...
Maintenant, ça bogue sur :
"Sheets("log").[A65000].End(xlUp).Offset(1, 0) = Environ("Username")"
(L'indice n'appartient pas à la sélection)
(Je ne comprends pas l'utilité de cette ligne et des 3 autres qui suivent
...)
PS : pour produire une erreur, j'ai ajouté : "Sheets("zaza").Select" après
'suite du pgm
Peut-être n'ai-je pas compris où il fallait insérer le programme "fautif"
!
JB
On 20 oct, 21:25, "j-pascal" wrote:Bonsoir Jacques,
Ca fonctionne parfaitement ... Merci !
Je ne comprends pas :
'---------
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
'---------
Est-ce que ça traite le cas où l'onglet "Toto" existe ??
Si oui, que fait "Sheets.Add" ? Pas à pas, je ne vois rien !
@+ ?
JP
"JB" a écrit dans le message de news:
Bonsoir,
Sub essai()
'....
'....
On Error Resume Next ' si erreur, continuer (on va traiter l
'erreur si on la reconnaît)
onglet = "Toto"
Sheets(onglet).Select
Select Case Err.Number
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = onglet
Case Is > 0
GoTo FinProg
End Select
On Error GoTo FinProg ' Si erreur, aller à finProg pour
erreursnon prévues.
'suite du pgm
'....
End
FinProg:
MsgBox "Erreur non prévue"
Sheets("log").[A65000].End(xlUp).Offset(1, 0) = Environ("Username")
Sheets("log").[A65000].End(xlUp).Offset(0, 1) = Now
Sheets("log").[A65000].End(xlUp).Offset(0, 2) = Err.Number
Sheets("log").[A65000].End(xlUp).Offset(0, 3) = Err.Description
ActiveWorkbook.Save
Stop
End Sub
JBhttp://boisgontierjacques.free.fr
On 19 oct, 18:34, "j-pascal" wrote:Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à
un
"On
error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le
projet
?
Je m'explique : en général, on traite l'erreur en plaçant ladite ligne
avant
une ligne de code qui "pourrait" poser problème ... mais l'idée serait
de
prévoir l'imprévisible afin d'épargner à l'utilisateur l'affichage
d'une
fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse !) ...
Cordialement,
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
Re,
Sur cet exemple, si la feuille TOTO n'existe pas, on la crée avec
Sheets.Add et on la renomme.
Mais à quoi sert cette feuille ? Je pensais (au départ) que tu
sélectionnais
une feuille qui n'existait pas pour "simuler" une erreur ...
Maintenant, ça bogue sur :
"Sheets("log").[A65000].End(xlUp).Offset(1, 0) = Environ("Username")"
(L'indice n'appartient pas à la sélection)
(Je ne comprends pas l'utilité de cette ligne et des 3 autres qui suivent
...)
PS : pour produire une erreur, j'ai ajouté : "Sheets("zaza").Select" après
'suite du pgm
Peut-être n'ai-je pas compris où il fallait insérer le programme "fautif"
!
JB
On 20 oct, 21:25, "j-pascal" <nospam-j-pas...@free.fr> wrote:
Bonsoir Jacques,
Ca fonctionne parfaitement ... Merci !
Je ne comprends pas :
'---------
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
'---------
Est-ce que ça traite le cas où l'onglet "Toto" existe ??
Si oui, que fait "Sheets.Add" ? Pas à pas, je ne vois rien !
@+ ?
JP
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1192815018.487392.41...@e9g2000prf.googlegroups.com...
Bonsoir,
Sub essai()
'....
'....
On Error Resume Next ' si erreur, continuer (on va traiter l
'erreur si on la reconnaît)
onglet = "Toto"
Sheets(onglet).Select
Select Case Err.Number
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = onglet
Case Is > 0
GoTo FinProg
End Select
On Error GoTo FinProg ' Si erreur, aller à finProg pour
erreursnon prévues.
'suite du pgm
'....
End
FinProg:
MsgBox "Erreur non prévue"
Sheets("log").[A65000].End(xlUp).Offset(1, 0) = Environ("Username")
Sheets("log").[A65000].End(xlUp).Offset(0, 1) = Now
Sheets("log").[A65000].End(xlUp).Offset(0, 2) = Err.Number
Sheets("log").[A65000].End(xlUp).Offset(0, 3) = Err.Description
ActiveWorkbook.Save
Stop
End Sub
JBhttp://boisgontierjacques.free.fr
On 19 oct, 18:34, "j-pascal" <nospam-j-pas...@free.fr> wrote:
Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à
un
"On
error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le
projet
?
Je m'explique : en général, on traite l'erreur en plaçant ladite ligne
avant
une ligne de code qui "pourrait" poser problème ... mais l'idée serait
de
prévoir l'imprévisible afin d'épargner à l'utilisateur l'affichage
d'une
fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse !) ...
Cordialement,
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
Re,
Sur cet exemple, si la feuille TOTO n'existe pas, on la crée avec
Sheets.Add et on la renomme.
Mais à quoi sert cette feuille ? Je pensais (au départ) que tu
sélectionnais
une feuille qui n'existait pas pour "simuler" une erreur ...
Maintenant, ça bogue sur :
"Sheets("log").[A65000].End(xlUp).Offset(1, 0) = Environ("Username")"
(L'indice n'appartient pas à la sélection)
(Je ne comprends pas l'utilité de cette ligne et des 3 autres qui suivent
...)
PS : pour produire une erreur, j'ai ajouté : "Sheets("zaza").Select" après
'suite du pgm
Peut-être n'ai-je pas compris où il fallait insérer le programme "fautif"
!
JB
On 20 oct, 21:25, "j-pascal" wrote:Bonsoir Jacques,
Ca fonctionne parfaitement ... Merci !
Je ne comprends pas :
'---------
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
'---------
Est-ce que ça traite le cas où l'onglet "Toto" existe ??
Si oui, que fait "Sheets.Add" ? Pas à pas, je ne vois rien !
@+ ?
JP
"JB" a écrit dans le message de news:
Bonsoir,
Sub essai()
'....
'....
On Error Resume Next ' si erreur, continuer (on va traiter l
'erreur si on la reconnaît)
onglet = "Toto"
Sheets(onglet).Select
Select Case Err.Number
Case 9
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = onglet
Case Is > 0
GoTo FinProg
End Select
On Error GoTo FinProg ' Si erreur, aller à finProg pour
erreursnon prévues.
'suite du pgm
'....
End
FinProg:
MsgBox "Erreur non prévue"
Sheets("log").[A65000].End(xlUp).Offset(1, 0) = Environ("Username")
Sheets("log").[A65000].End(xlUp).Offset(0, 1) = Now
Sheets("log").[A65000].End(xlUp).Offset(0, 2) = Err.Number
Sheets("log").[A65000].End(xlUp).Offset(0, 3) = Err.Description
ActiveWorkbook.Save
Stop
End Sub
JBhttp://boisgontierjacques.free.fr
On 19 oct, 18:34, "j-pascal" wrote:Bonsoir,
Je crains que ma question soit "étrange", mais bon ...
Est-il possible de mettre dans le code une ligne qui ressemblerait à
un
"On
error resume ..." (ou avec un GoTo) et qui fonctionne pour tout le
projet
?
Je m'explique : en général, on traite l'erreur en plaçant ladite ligne
avant
une ligne de code qui "pourrait" poser problème ... mais l'idée serait
de
prévoir l'imprévisible afin d'épargner à l'utilisateur l'affichage
d'une
fenêtre de débogage, en général peu accueillante ...
Il est évident que cette le code n'aurait pas vocation à traiter le
problème, mais seulement à afficher un message et à mettre fin à la
procédure.
Merci d'avance pour vos lumières (si la question mérite réponse !) ...
Cordialement,
JP- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -