Bonjour le forum !
Il m'arrive un truc étrange sur un fichier que j'utilise depuis plusieurs années.... J'ai un script de fermeture comme ceci :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Caption = "Excel"
On Error Resume Next
If UCase(Utilisateur) <> "THIERRYP" Then _
ThisWorkbook.Close False: GoTo fin
Sheets("Paramètres").Range(Range("Précédent").Value).ClearComments
ActiveWorkbook.Save
fin:
End Sub
'---------------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call Efface_Nom_et_Adresse
End Sub
Jusqu'à présent ce script s'exécutait sans dialogue de confirmation de sauvegarde, comportement voulu ! Depuis peu, si je n'ai que ce fichier ouvert, la boîte de dialogue de confirmation (Voulez-vous enregistrer les modifs etc....") apparaît. Si j'ai un autre fichier ouvert, la boîte n'apparaît pas et mon fichier est sauvegardé automatiquement....
Si quelqu'un a une idée, je suis preneur !!!!!!
Merci d'avance,
ThierryP
Il m'arrive un truc étrange sur un fichier que j'utilise depuis plusieurs années.... J'ai un script de fermeture comme ceci :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Caption = "Excel"
On Error Resume Next
If UCase(Utilisateur) <> "THIERRYP" Then _
ThisWorkbook.Close False: GoTo fin
Sheets("Paramètres").Range(Range("Précédent").Value).ClearComments
ActiveWorkbook.Save
fin:
End Sub
'---------------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call Efface_Nom_et_Adresse
End Sub
Jusqu'à présent ce script s'exécutait sans dialogue de confirmation de sauvegarde, comportement voulu ! Depuis peu, si je n'ai que ce fichier ouvert, la boîte de dialogue de confirmation (Voulez-vous enregistrer les modifs etc....") apparaît. Si j'ai un autre fichier ouvert, la boîte n'apparaît pas et mon fichier est sauvegardé automatiquement....
Si quelqu'un a une idée, je suis preneur !!!!!!
Merci d'avance,
ThierryP