Discussion :

[liop49]

Bonjour,


Voici ma ligne de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    ActiveWorkbook.SaveAs Filename:=Dossier & fichier

Le problème est lorsque le fichier existe déjà : une fenêtre s'ouvre et dde à l'utilisateur si on veut remplacer le fichier existant.

En répondant "non" ou "annuler", il y a un message d'erreur en précisant que la méthode saveas a échoué

Moi j'aurai voulu qu'il arrête la macro simplement.

Est ce que qq1 peux m'aider

Merci d'avance


Liop à poil sur ce coup

[pgz]

Bonjour.

Si j'ai bien compris ton pb et ce que tu demandes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 On Error resume next
    ActiveWorkbook.SaveAs Filename:=Dossier & fichier
On Error goto 0

Cordialement,

PGZ

[liop49]

En plus de bien comprendre, tu es un Dieux

Merci pour ton aide


Liop habillé du code d'un chef

[liop49]

J'ai été trop vite car la solution entraine une petite erreur

voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    On Error Resume Next
    ActiveWorkbook.SaveAs Filename:=Dossier & fichier
    On Error GoTo 0
    ActiveWorkbook.Close False
 
 
    MsgBox ("Le fichier " & fichier & ".xls a bien été enregistré dans le répertoire" & vbCrLf & Dossier)

Du coup, lorsque l'utilisateur annule ou dit non le code continue et mon msgBox s'affiche quand même alors qu'il faudrait un arrêt de la macro

Y a-t-il une solution ?

Merci

Liop