Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Excel se ferme sur ma macro d'enregistrement

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.

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

Pièces jointes

  • enregistrement.zip
    13.6 KB · Affichages: 19
  • enregistrement.zip
    13.6 KB · Affichages: 15
  • enregistrement.zip
    13.6 KB · Affichages: 16

Discussions similaires

Réponses
10
Affichages
359
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…