Bonjour,

Une application tierce génère un document XML puis lance Excel en lui demandant d'ouvrir le document. A ce niveau tout baigne.

Lorsque l'utilisateur veux fermer la feuille on force Excel à demander s'il souhaite enregistrer son document. Cela fonctionne si ce n'est qu'après que l'utilisateur ait donné un nom automatiquement Excel repose la question 'voulez vous sauvegarder ce document' alors qu'il l'est déjà.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Workbook_BeforeClose(Cancel As Boolean)
     DisplayAlerts = True
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If ThisWorkbook.FileFormat = xlXMLSpreadsheet Then
ChDir ("C:\Documents and Settings\Administrateur\Mes documents\")
End If
Dim FName As String
If Not SaveAsUI Then Exit Sub

Application.EnableEvents = False
FName = Application.GetSaveAsFilename("", fileFilter:="Classeur Microsoft Office Excel (*.xls), *.xls")
ThisWorkbook.SaveAs Filename:=FName, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
Cancel = True
ThisWorkbook.Saved = True
End Sub