Sauvegarde d'un fichier par macro

Version imprimable

18/02/2013, 16h56
langa68

1 pièce(s) jointe(s)

Sauvegarde d'un fichier par macro

Bonjour,

J'ai écrit une petite macro me permettant de sauvegarder un fichier Excel dans un dossier.
Cette macro fonctionne très bien dans un premier temps.
Si le fichier n'existe pas encore tout va bien.
Si celui-ci existe et lors d'un clic sur Non ou Annuler un message d'erreur apparaît (voir pièces jointe).
Pouvez vous m'aider??

Merci d'avance

Cela marche-t-il chez toi ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Save_as()
'
' Save_as Macro
'
Dim extention As String
Dim chemin As String
Dim Nomfichier As String
Dim réponse As Byte
 
 
chemin = "C:\Dossier Test\"
extention = ".xlsm"
Nomfichier = ActiveSheet.Range("A1")
If Not Dir(chemin & Nomfichier & extention) = "" Then
    reponse = MsgBox("Le fichier existe déja, souhaitez vous le remplacer ?", vbYesNo)
    If reponse = 6 Then
        Application.DisplayAlerts = False
    Else
        GoTo fin
    End If
End If
    With ActiveWorkbook
    .SaveAs Filename:=chemin & Nomfichier
    '.Close
    End With
fin:
Application.DisplayFullScreen = False
Application.DisplayAlerts = True
Workbooks.Close
 
End Sub

19/02/2013, 10h23
langa68

Merci pour ta réponse. Cela m'a déjà permis d'avancer un peu.
Mais l'ors de l'affichage de la MessageBox si je répond par NON et que j'ai changé quelque chose dans mon tableau il apparait la MessageBox "Enregister-Ne pas enregistrer-Annuler".Lorsque je répond par "Annuler" il apparaît un message

Citation:

"Erreur d'execution 1004": La methode 'Close' de l'objet 'Workbooks' a échouée.

langa68