une procedure Sauve contient la commande SaveAs.
Si le fichier en question existe deja => boite de dialogue
me demandant l'ecrasement. Jusque la tout va bien.
Si je repond oui => OK, Annuler => OK
mais si je repond non => erreur 1004 echec de la fonction
SaveAs.
Ceci est tout a fait normal.
Je veux donc gerer cette erreur
J'ai essaye ca :
On Error Resume Next
SaveAs bla bla bla
If Err.number = 1004 then
MsgBox ("Le document ne sera pas sauvegarde !")
End If
ActiveWindow.Close False
Le message "Le doc..." s'affiche bien mais ensuite je me
retrouve avec une erreur de violation d'acces.
Je dois mal m'y prendre avec la gestion de l'erreur
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Ellimac
Bonjour,
Cela vient du fait que tu testes l'erreur et tu demandes de fermer, donc plantage :
On Error GoTo fin SaveAs bla bla bla ActiveWindow.Close False Exit sub fin:If Err.number = 1004 then MsgBox ("Le document ne sera pas sauvegarde !") End If
ou
On Error Resume Next SaveAs bla bla bla If Err.number = 1004 then MsgBox ("Le document ne sera pas sauvegarde !") Exit sub End If ActiveWindow.Close False
Camille
-----Message d'origine----- bjr all,
une procedure Sauve contient la commande SaveAs. Si le fichier en question existe deja => boite de dialogue
me demandant l'ecrasement. Jusque la tout va bien. Si je repond oui => OK, Annuler => OK mais si je repond non => erreur 1004 echec de la fonction SaveAs. Ceci est tout a fait normal. Je veux donc gerer cette erreur J'ai essaye ca :
On Error Resume Next SaveAs bla bla bla If Err.number = 1004 then MsgBox ("Le document ne sera pas sauvegarde !") End If ActiveWindow.Close False
Le message "Le doc..." s'affiche bien mais ensuite je me retrouve avec une erreur de violation d'acces. Je dois mal m'y prendre avec la gestion de l'erreur
Merci d'avance de votre aide .
Bonjour,
Cela vient du fait que tu testes l'erreur et tu demandes
de fermer, donc plantage :
On Error GoTo fin
SaveAs bla bla bla
ActiveWindow.Close False
Exit sub
fin:If Err.number = 1004 then
MsgBox ("Le document ne sera pas sauvegarde !")
End If
ou
On Error Resume Next
SaveAs bla bla bla
If Err.number = 1004 then
MsgBox ("Le document ne sera pas sauvegarde !")
Exit sub
End If
ActiveWindow.Close False
Camille
-----Message d'origine-----
bjr all,
une procedure Sauve contient la commande SaveAs.
Si le fichier en question existe deja => boite de
dialogue
me demandant l'ecrasement. Jusque la tout va bien.
Si je repond oui => OK, Annuler => OK
mais si je repond non => erreur 1004 echec de la fonction
SaveAs.
Ceci est tout a fait normal.
Je veux donc gerer cette erreur
J'ai essaye ca :
On Error Resume Next
SaveAs bla bla bla
If Err.number = 1004 then
MsgBox ("Le document ne sera pas sauvegarde !")
End If
ActiveWindow.Close False
Le message "Le doc..." s'affiche bien mais ensuite je me
retrouve avec une erreur de violation d'acces.
Je dois mal m'y prendre avec la gestion de l'erreur
Cela vient du fait que tu testes l'erreur et tu demandes de fermer, donc plantage :
On Error GoTo fin SaveAs bla bla bla ActiveWindow.Close False Exit sub fin:If Err.number = 1004 then MsgBox ("Le document ne sera pas sauvegarde !") End If
ou
On Error Resume Next SaveAs bla bla bla If Err.number = 1004 then MsgBox ("Le document ne sera pas sauvegarde !") Exit sub End If ActiveWindow.Close False
Camille
-----Message d'origine----- bjr all,
une procedure Sauve contient la commande SaveAs. Si le fichier en question existe deja => boite de dialogue
me demandant l'ecrasement. Jusque la tout va bien. Si je repond oui => OK, Annuler => OK mais si je repond non => erreur 1004 echec de la fonction SaveAs. Ceci est tout a fait normal. Je veux donc gerer cette erreur J'ai essaye ca :
On Error Resume Next SaveAs bla bla bla If Err.number = 1004 then MsgBox ("Le document ne sera pas sauvegarde !") End If ActiveWindow.Close False
Le message "Le doc..." s'affiche bien mais ensuite je me retrouve avec une erreur de violation d'acces. Je dois mal m'y prendre avec la gestion de l'erreur
Merci d'avance de votre aide .
karoli
Nickel ! Ca tourne impec...
Merci bcp Camille A charge de revanche ;-)
A+ Karoli
-----Message d'origine----- Bonjour,
Cela vient du fait que tu testes l'erreur et tu demandes de fermer, donc plantage :
On Error GoTo fin SaveAs bla bla bla ActiveWindow.Close False Exit sub fin:If Err.number = 1004 then MsgBox ("Le document ne sera pas sauvegarde !") End If
ou
On Error Resume Next SaveAs bla bla bla If Err.number = 1004 then MsgBox ("Le document ne sera pas sauvegarde !") Exit sub End If ActiveWindow.Close False
Camille
.
Nickel ! Ca tourne impec...
Merci bcp Camille
A charge de revanche ;-)
A+
Karoli
-----Message d'origine-----
Bonjour,
Cela vient du fait que tu testes l'erreur et tu demandes
de fermer, donc plantage :
On Error GoTo fin
SaveAs bla bla bla
ActiveWindow.Close False
Exit sub
fin:If Err.number = 1004 then
MsgBox ("Le document ne sera pas sauvegarde !")
End If
ou
On Error Resume Next
SaveAs bla bla bla
If Err.number = 1004 then
MsgBox ("Le document ne sera pas sauvegarde !")
Exit sub
End If
ActiveWindow.Close False
Cela vient du fait que tu testes l'erreur et tu demandes de fermer, donc plantage :
On Error GoTo fin SaveAs bla bla bla ActiveWindow.Close False Exit sub fin:If Err.number = 1004 then MsgBox ("Le document ne sera pas sauvegarde !") End If
ou
On Error Resume Next SaveAs bla bla bla If Err.number = 1004 then MsgBox ("Le document ne sera pas sauvegarde !") Exit sub End If ActiveWindow.Close False
