coco_lapin
XLDnaute Impliqué
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.
[file name=enregistrement.zip size=7488]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/enregistrement.zip[/file]
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.
Code:
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