Excel se ferme sur ma macro d'enregistrement

[coco_lapin]

Bonjour le forum.

Dans le but de diffuser un classeur j'ai crée une macro qui enregistre sous le même répertoire ce classeur en ajoutant Diffusion au nom du classeur.

Ceci fonctionne très bien la première fois mais à la seconde fois étant donné que le classeur Diffusion existe Excel se ferme ainsi tous mes autres classeurs qui étaient ouverts.

Je vous joins le code en annexe ainsi que mon classeur.

Sub Génération_classeur_diffusion()
'Cette macro permet de générer le classeur diffusion à partir de ce classeur

Application.ScreenUpdating = False
Application.DisplayAlerts = False

'detection du nom du chemin et du nom du classeur origine
Nom_du_chemin = ActiveWorkbook.Path & '\\'
Nom_du_classeur = ActiveWorkbook.Name

'enregistrement du classeur origine
ActiveWorkbook.Save


'C'EST A CETTE LIGNE QUE Ca PLANTE LORS DU DEUXIEME PASSAGE
'sauvegarder un classeur sous un autre nom
ActiveWorkbook.SaveAs FileName:=Nom_du_chemin & 'Diffusion_' & Nom_du_classeur

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

[file name=enregistrement.zip size=7488]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/enregistrement.zip[/file]

 

[Bernard_XLD]

Bonjour Coco_Lapin

cela ne vient pas de ton code

A+