Problème sur Excel 2013 [Résolu]

[youky(BJ)]

​Bonjour à tous,
Je m'adresse surtout aux heureux possesseur d'Excel 2013.
Le fichier joint fonctionne bien avec Excel 2003-2007 et 2010 mais avec 2013 la croix rouge refuse de fermer.
Bon il suffit de réduire le fichier dans la barre des taches et de le réactiver mais c'est pas cool.
Si vous avez 2013 essayer le.
Ce que fait la macro, une copie du fichier avec saveAs et je supprime la 1ere page

Sub dossier()
With UserForm1
mois = 1
nom = "AN" & "2014"
chemfich = ThisWorkbook.Path & "\" & nom & ".xlsm"
fich = Dir(chemfich)
If fich <> "" Then
MsgBox "Le fichier " & fich & " Existe déjà" & vbCr & "Abandon de la procédure"
Exit Sub
End If
End With
ActiveWorkbook.SaveCopyAs Filename:=chemfich
Workbooks.Open chemfich
With Workbooks(nom & ".xlsm")
.Sheets("MODÉLE").Visible = True
Application.DisplayAlerts = False
.Sheets("BASE").Delete
Application.DisplayAlerts = True
.Sheets("MODÉLE").Name = nom
.Save
End With
ThisWorkbook.Close SaveChanges:=False
End Sub

Sub ouvreUserANU()
UserForm1.Caption = "Salut"
UserForm1.Show
End Sub

Si vous avez un moyen que cela fonctionne bien sous 2013 je vous en serais bien reconnaissant
Bruno

 

[Si...]

Re : Problème sur Excel 2013 [Résolu]

re(ponse)

(qui continue à ramer avec cette version