Discussion :

[Zak Blayde]

Bonjour,

Quand je fais une sauvegarde en vba via

Code :

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

1
2
3
ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\" & Application.UserName & "\piece_catia.sy6", FileFormat:=xlText, CreateBackup:=False   'enregistrer le nouveau classeur
    ActiveWorkbook.Close SaveChanges:=False

On me demande évidemment confirmation si un fichier du même nom existe.
Mais si je réponds non ou annuler, j'arrive dans la fenêtre de deboggage.
Comment gérer le non et le annuler, pour avoir un message disant dans les deux cas : "Veuillez déplacer le fichier d'origine si vous ne souhaitez pas l'écraser".
Attribuer un autre nom automatiquement ne m'intéresse pas, le fait d'écraser l'ancien fichier est voulu (dans la grande majorité des cas). Je veux juste éviter à l'utilisateur de se retrouver dans l'éditeur VBA en cas d'erreur.

[Godzestla]

Salut,
une solution parmi d'autre est de tester si le fichier existe avant et puis via un Msgbox de tester si l'utilisateur souhaite ou pas écraser et faire en fonction.

Tu trouveras comment tester si un fichier existe dans la faq à http://excel.developpez.com/faq/inde...istenceFichier

Pour supprimer le fichier tu peux utiliser la méthode Kill

Code :

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

1
2
 
Kill nomFichiercomplet

Pour les Msgbox, tu trouveras dans la faq à http://excel.developpez.com/faq/inde...UtiliserMsgBox

Bye

[fred65200]

bonsoir, tu peux essayer ça

Code :

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

1
2
3
4
5
6
On Error Resume Next
If Err.Number = 1004 Then Err.Clear: On Error GoTo 0: GoTo Suite
ActiveWorkbook.SaveAs Filename:= _
    "C:\Documents and Settings\" & Application.UserName & "\piece_catia.sy6", FileFormat:=xlText, CreateBackup:=False   'enregistrer le nouveau classeur
Suite:
ActiveWorkbook.Close SaveChanges:=False

cordialement