Enlever message de deboguage

Bonjour à tous.

J'ai crée une macro d' "enregistrement sous" liée à un bouton. En imposant le chemin et le nom du classeur. Cela donne un message "un fichier nommé "nom du classeur" existe déjà voulez vous le remplacer ?

Si on clique sur "oui" le fichier est enregistré. Si on clique sur non ou sur annuler il y a un message vb avec la fenetre fin et deboguage.

comment ne pas avoir ce message ? ou :

comment lors de la création d'un macro prévoir les 3 types de réponses possibles oui/non/annuler.

Pour créer cette macro je n'ai fait qu'enregistrer ce que je faisais (j'avais cliqué sur oui)

Merci pour votre aide

Ben

Bonjour,

Envoie ton code, pour l'adapter

amicalement

Claude.

Bonjour Claude et merci

Sub protfe()

'

' protfe Macro

' Macro enregistrée le 04/01/2009 par chb33760

'

If ActiveWorkbook.ReadOnly Then Exit Sub

'

Range("A1").Select

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _

False

ActiveWorkbook.SaveAs Filename:="G:\PLANNING SALLE 2009.xls", FileFormat _

:=xlNormal, Password:="", WriteResPassword:="eva2009"

End Sub

Voila mais peut être je dois poster autrement les macros. (je suis nouveau ds ce forum)

[Sub protfe()

'

' protfe Macro

' Macro enregistrée le 04/01/2009 par chb33760

'

If ActiveWorkbook.ReadOnly Then Exit Sub

'

Range("A1").Select

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _

False

ActiveWorkbook.SaveAs Filename:="G:\PLANNING SALLE 2009.xls", FileFormat _

:=xlNormal, Password:="", WriteResPassword:="eva2009"

End Sub

][/code]

re,

il y a surement mieux, mais essaye déjà çà,

Sub protfe()
    If ActiveWorkbook.ReadOnly Then Exit Sub
        Range("A1").Select
        ActiveSheet.Protect
    On Error GoTo FIN
        ActiveWorkbook.SaveAs Filename:="G:\PLANNING SALLE 2009.xls", FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="eva2009"
    Exit Sub
FIN:     MsgBox ("L'opération à échouer ou annulée !")
End Sub

çà devrait éviter le débogage

Claude.

Re Claude

Ok ça tourne.

Merci

Sujet terminé je pense.