Discussion :

[langa68]

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

[Limace_hurlante]

Cela marche-t-il chez toi ?

Code :

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

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

[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

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

langa68