enregistrer

[JeanMc]

Bonjour,

J'ai fait une macro pour enregistrer.

Lorsque le nom esiste déjà le message " Un fichier nommé ..... existe déjà, voulez-vous le remplacer"

Lorsque je répond non sa plante.


Comment arrêter la macro lorsqu'on répond non ou annuler.
et indiquer un message " Votre fichier n'as pas été enregistré"


Merci !!!!


Saluts!

 

[Pierrot93]

Re : enregistrer

Bonjour JeanMc

regarde le code ci-dessous si il peut t'aider :

On Error Resume Next
ThisWorkbook.SaveAs "classeur1.xls"
If Err Then
    MsgBox "enregistrement annulé, fin de procédure..."
    Exit Sub
End If
On Error GoTo 0

bonne fin d'après midi
@+

 

[Habitude]

Re : enregistrer

le code continu même si tu répond non
Sauf qu'il tente un enregistrement vide

Valide donc avec

If not IsEmpty(nom fichier) then

endif

 

[Pierrot93]

Re : enregistrer

Re, bonjour Habitude

Perso, vois mal ton code fonctionner en l'état....

If not IsEmpty(nom fichier) then

endif

@+

 

[JeanMc]

Re : enregistrer

Bonjour,

La solution de Pierrot fonctionne très bien.

Merci de votre aide.

Salutations!!