Retour de Workbook.saveas

[Ovide]

Dans une macro Excel
la commande suivante fonctionne bien, sauf si l'on répond 'non' ou 'annuler' dans la boite de dialogue 'voulez-vous enregistrer...'

=> msg :
erreur d'exécution '1004':
La méthode 'saveas' de l'objet '_workbook' a échoué

(...)
ActiveWorkbook.SaveAs Filename:=nom_nouveau_fichier, FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False

QQ a-t-il une réponse ou une solution ?

Merci d'avance

 

[ovide]

OK, j'aurais dû faire la recherche - comme recommandé par le site - avant de poster... Hervé avait déjà donné la réponse.

Merci encore et bravo pour pour votre forum qui a l'air bien fourni.

Ovide

 

[mlmoracle]

Re : Retour de Workbook.saveas

3 ans après c'est moi qui est à la recherche de la réponse
Vu que la personne d'avant n'a ni tapé le code, ni même laissé un petit lien, je me réfère à vous.

On peut utiliser apparemment on error goto ... mais je n'ai pas très bien compris.

 

[tototiti2008]

Re : Retour de Workbook.saveas

Bonjour mlmoracle,

tout dépend ce que tu veux ?
tu veux que la question de remplacement soit posée et que l'on puisse répondre Non
ou tu veux que la question ne soit pas posée ?

 

[mlmoracle]

Re : Retour de Workbook.saveas

Je voudrai que la question soit posé, avec oui, non. Si oui, remplacer, si non bah ne rien faire.
Voilou

 

[tototiti2008]

Re : Retour de Workbook.saveas

alors à priori il suffit que tu tapes

On Error Resume Next

la ligne au-dessus du SaveAs
et

On Error goto 0

la ligne en-dessous

On error Resume Next signifie : s'il y a une erreur (enregistrement pas fait), passe à la commande suivante
On error Goto 0 signifie : réactive la gestion des erreurs classique (plantage)

 

[mlmoracle]

Re : Retour de Workbook.saveas

Je viens d'essayer à l'instant
Il ne me pose plus la question (remplacer ?)

Edit : ça marche bien, me suis trompé

Merci beaucoup Tototiti