Lorsque j'utilisais Excel 2007 le code ci-dessous qui me servait =E0
enregistrer la feuille dans un autre classeur fonctionnait tr=E8s bien.
Aujourd'hui, j'utilise Excel 2010 et le code ne fonctionne plus.
Quelqu'un pourrait m'aider SVP?
Il bloque sur CHEMIN_D_ACCES
Private Sub CommandButton1_Click()
CHEMIN_D_ACCES =3D ActiveWorkbook.Path & "\" ' ou chemin en dur
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=3DCHEMIN_D_ACCES & _
"Fin de s=E9jour BV N=B0 " & [e4].Value & ".xls",
FileFormat:=3DxlOpenXMLWorkbookMacroEnabled, CreateBackup:=3DFalse
Application.DisplayFullScreen =3D False
Application.CommandBars(1).Enabled =3D True
ActiveWindow.DisplayHeadings =3D True
ActiveSheet.Range("k16").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton1").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton2").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton3").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton4").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton5").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton6").Select
Selection.Delete
ActiveSheet.Shapes("CommandButton7").Select
Selection.Delete
ActiveSheet.Range("e4").Select
End Sub
