Enregistrement d'un fichier Excel automatiquement

Bonjour a tous!!

Un petit peu d'aide svp

voici la macro pour enregistrer le fichier excel:

Sub enregistrementfichier()

nom = Range("Feuil1!B3")

prenom = Range("Feuil1!B4")

examen = Range("Feuil1!B6")

espace1 = Range("Feuil1!M1")

espace2 = Range("Feuil1!M1")

ActiveWorkbook.SaveAs "N:\document\essai\" & (nom) & (espace1) & (prenom) & (espace2) & (examen)

End Sub

j'ai fait un bouton quand je clique dessus la macro est activer et le fichier s'enregistre mais quand je clique une deusieme fois dessus un message apparait:

(Un fichier nommé...existe déja à cet emplacement .Voulez-vous le remplacer?)

si je repond oui , il le remplce pas de probleme

mais si je repond non ou annuler

il debogue la macro a la ligne

ActiveWorkbook.SaveAs "N:\document\essai\" & (nom) & (espace1) & (prenom) & (espace2) & (examen)

comment faire pour que je puisse repindre non ou annuler sans qu'il debogue la macro

j'espere avoir ete clair

merci de vos reponses

greg

Bonjour,

Essaye ce code :

Sub enregistrementfichier()
Dim nom As String, prenom As String, examen As String
Dim msg As String, Reponse As String
Dim espace1, espace2
Dim style  As Integer
With Sheets("feuil1")
nom = .Range("B3")
prenom = .Range("B4")
examen = .Range("B6")
espace1 = .Range("M1")
espace2 = .Range("M1")
End With
msg = "Etes-vous sûr de vouloir enregistrer"
style = vbYesNo + vbDefaultButton2
Reponse = MsgBox(msg, style)
If Reponse = vbNo Then End
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "N:\document\essai\" & (nom) & (espace1) & (prenom) & (espace2) & (examen)
Application.DisplayAlerts = True
End Sub

Il faudrait que je sache ce que contient espace1 et 2, pour déclarer les variables correctement. Mais là cela devrait fonctionner.

A te relire

Dan

Merci beaucoup pour la macro

ca fonctionne super bien

greg

ps:

j'ai encore oublier ou on marquer "résolu"