Dans un document mod=E8le (xltm), je souhaite remplacer le message standard=
d'Excel =E0 la fermeture d'un classeur (Voulez-vous enregistrer.. etc) par=
celui-ci, le probl=E8me c'est que bien que la proc=E9dure fonctionne comme=
je l'attend, une fois le classeur ferm=E9, Excel reste fig=E9 (plant=E9).
Quelqu'un pourrait me venir en aide :-)
'-------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Reponse As String
'On Error Resume next
With Application
.StatusBar =3D "Ex=E9cution de macro...."
.EnableEvents =3D False
.ScreenUpdating =3D False
.DisplayAlerts =3D False
End With
If ActiveWorkbook.Saved =3D False Then
Reponse =3D MsgBox("D=E9sires-tu sauvegarder les modifications?", vb=
YesNoCancel + vbInformation, "Attention, =E0 l'historique des factures?")
If Reponse =3D vbNo Then
Sheets("Facture").[NO_Fact].Value =3D ""
[Control].Value =3D 2
ActiveWorkbook.Saved =3D True
With Application
.DisplayAlerts =3D True
.StatusBar =3D False
.EnableEvents =3D True
.ScreenUpdating =3D True
End With
ActiveWorkbook.Close SaveChanges:=3DFalse
ElseIf Reponse =3D vbYes Then
Sheets("Facture").[NO_Fact].Value =3D ""
[Control].Value =3D 2
Ins=E9rer ' Cette macro copie les donn=E9es de la facture dans =
un classeur de sauvegarde
ActiveWorkbook.Save
Else
Cancel =3D True
End If
End If
With Application
.DisplayAlerts =3D True
.StatusBar =3D False
.EnableEvents =3D True
.ScreenUpdating =3D True
End With
End Sub
'---------------------------------------------------
Merci d'avance pour votre aide,
cordialement,
Emile
Bonjour, Testé sans exécution de la macro Insérer. Je ne reproduis pas ton problème. Quelles sont tes versions de Windows et d'Excel ? Cordialement. Daniel Emile63 a exposé le 16/11/2015 :
Bonjour à tous,
Dans un document modèle (xltm), je souhaite remplacer le message standard d'Excel à la fermeture d'un classeur (Voulez-vous enregistrer.. etc) par celui-ci, le problème c'est que bien que la procédure fonctionne comme je l'attend, une fois le classeur fermé, Excel reste figé (planté). Quelqu'un pourrait me venir en aide :-)
Bonjour,
Testé sans exécution de la macro Insérer. Je ne reproduis pas ton problème.
Quelles sont tes versions de Windows et d'Excel ?
Cordialement.
Daniel
Emile63 a exposé le 16/11/2015 :
Bonjour à tous,
Dans un document modèle (xltm), je souhaite remplacer le message standard
d'Excel à la fermeture d'un classeur (Voulez-vous enregistrer.. etc) par
celui-ci, le problème c'est que bien que la procédure fonctionne comme je
l'attend, une fois le classeur fermé, Excel reste figé (planté). Quelqu'un
pourrait me venir en aide :-)
Bonjour, Testé sans exécution de la macro Insérer. Je ne reproduis pas ton problème. Quelles sont tes versions de Windows et d'Excel ? Cordialement. Daniel Emile63 a exposé le 16/11/2015 :
Bonjour à tous,
Dans un document modèle (xltm), je souhaite remplacer le message standard d'Excel à la fermeture d'un classeur (Voulez-vous enregistrer.. etc) par celui-ci, le problème c'est que bien que la procédure fonctionne comme je l'attend, une fois le classeur fermé, Excel reste figé (planté). Quelqu'un pourrait me venir en aide :-)
Est-ce que tu peux mettre ton classeur, sans données confidentielles, sur http://cjoint.com et poster le lien généré ? Daniel Emile63 a exprimé avec précision :
Excel 2007
Est-ce que tu peux mettre ton classeur, sans données confidentielles, sur
http://cjoint.com et poster le lien généré ?
Daniel
Emile63 a exprimé avec précision :
Est-ce que tu peux mettre ton classeur, sans données confidentielles, sur http://cjoint.com et poster le lien généré ? Daniel Emile63 a exprimé avec précision :
Excel 2007
Emile63
J'ajouterai que le blocage n'arrive pas en cliquant sur annuler. Et arrive si répond: Non (VbNo) Bien que dans le pas-à-pas il aille jusqu'à la fin de la procédure sa ns accrocs, ActiveWorkbook.Close SaveChanges:úlse
Pas d'erreurs (on error resume next étant désactivé) ! C'est après que mon Excel se fige. Je n'ai plus accès au menu et bouton s. Si j'avais une autre feuille ouverte derrière, elle n'est plus accessi ble. Alt+ Ctlr + Del :-(
J'ajouterai que le blocage n'arrive pas en cliquant sur annuler.
Et arrive si répond: Non (VbNo)
Bien que dans le pas-à-pas il aille jusqu'à la fin de la procédure sa ns accrocs,
ActiveWorkbook.Close SaveChanges:=False
Pas d'erreurs (on error resume next étant désactivé) !
C'est après que mon Excel se fige. Je n'ai plus accès au menu et bouton s. Si j'avais une autre feuille ouverte derrière, elle n'est plus accessi ble.
Alt+ Ctlr + Del :-(
J'ajouterai que le blocage n'arrive pas en cliquant sur annuler. Et arrive si répond: Non (VbNo) Bien que dans le pas-à-pas il aille jusqu'à la fin de la procédure sa ns accrocs, ActiveWorkbook.Close SaveChanges:úlse
Pas d'erreurs (on error resume next étant désactivé) ! C'est après que mon Excel se fige. Je n'ai plus accès au menu et bouton s. Si j'avais une autre feuille ouverte derrière, elle n'est plus accessi ble. Alt+ Ctlr + Del :-(
MichD
Bonjour
Essaie comme ceci. Dans la procédure, tu utilises l'expression "ActiveWorkbook" est-ce possible que tu aies plus d'un classeur ouvert? Si la macro désigne le classeur dans lequel la macro est écrite, pourquoi n'utilise pas l'expression "ThisWorkbook" à la place de "ActiveWorkbook" ?
Que représente " [Control]" ? Une plage nommée?
Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Reponse As String
With Application .StatusBar = "Exécution de macro...." .EnableEvents = False .ScreenUpdating = False .DisplayAlerts = False End With If ActiveWorkbook.Saved = False Then Reponse = MsgBox("Désires-tu sauvegarder les modifications?", vbYesNoCancel + vbInformation, "Attention, à l'historique des factures?") If Reponse = vbNo Then Sheets("Facture").[NO_Fact].Value = "" [Control].Value = 2 With Application .DisplayAlerts = True .StatusBar = False .EnableEvents = True .ScreenUpdating = True End With ActiveWorkbook.Saved = True 'Modifier ActiveWorkbook.Close 'Modifier ElseIf Reponse = vbYes Then Sheets("Facture").[NO_Fact].Value = "" [Control].Value = 2 Insérer ' Cette macro copie les données de la facture dans un classeur de sauvegarde ActiveWorkbook.Save Else Cancel = True End If End If With Application .DisplayAlerts = True .StatusBar = False .EnableEvents = True .ScreenUpdating = True End With End Sub
"Emile63" a écrit dans le message de groupe de discussion :
J'ajouterai que le blocage n'arrive pas en cliquant sur annuler. Et arrive si répond: Non (VbNo) Bien que dans le pas-à-pas il aille jusqu'à la fin de la procédure sans accrocs, ActiveWorkbook.Close SaveChanges:úlse
Pas d'erreurs (on error resume next étant désactivé) ! C'est après que mon Excel se fige. Je n'ai plus accès au menu et boutons. Si j'avais une autre feuille ouverte derrière, elle n'est plus accessible. Alt+ Ctlr + Del :-(
Bonjour
Essaie comme ceci. Dans la procédure, tu utilises l'expression "ActiveWorkbook"
est-ce possible que tu aies plus d'un classeur ouvert?
Si la macro désigne le classeur dans lequel la macro est écrite, pourquoi n'utilise
pas l'expression "ThisWorkbook" à la place de "ActiveWorkbook" ?
Que représente " [Control]" ? Une plage nommée?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Reponse As String
With Application
.StatusBar = "Exécution de macro...."
.EnableEvents = False
.ScreenUpdating = False
.DisplayAlerts = False
End With
If ActiveWorkbook.Saved = False Then
Reponse = MsgBox("Désires-tu sauvegarder les modifications?", vbYesNoCancel + vbInformation,
"Attention, à l'historique des factures?")
If Reponse = vbNo Then
Sheets("Facture").[NO_Fact].Value = ""
[Control].Value = 2
With Application
.DisplayAlerts = True
.StatusBar = False
.EnableEvents = True
.ScreenUpdating = True
End With
ActiveWorkbook.Saved = True 'Modifier
ActiveWorkbook.Close 'Modifier
ElseIf Reponse = vbYes Then
Sheets("Facture").[NO_Fact].Value = ""
[Control].Value = 2
Insérer ' Cette macro copie les données de la facture dans un classeur de sauvegarde
ActiveWorkbook.Save
Else
Cancel = True
End If
End If
With Application
.DisplayAlerts = True
.StatusBar = False
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
"Emile63" a écrit dans le message de groupe de discussion :
37940b38-327b-4e5c-8c4e-4266a042f26c@googlegroups.com...
J'ajouterai que le blocage n'arrive pas en cliquant sur annuler.
Et arrive si répond: Non (VbNo)
Bien que dans le pas-à-pas il aille jusqu'à la fin de la procédure sans accrocs,
ActiveWorkbook.Close SaveChanges:úlse
Pas d'erreurs (on error resume next étant désactivé) !
C'est après que mon Excel se fige. Je n'ai plus accès au menu et boutons. Si j'avais une autre
feuille ouverte derrière, elle n'est plus accessible.
Alt+ Ctlr + Del :-(
Essaie comme ceci. Dans la procédure, tu utilises l'expression "ActiveWorkbook" est-ce possible que tu aies plus d'un classeur ouvert? Si la macro désigne le classeur dans lequel la macro est écrite, pourquoi n'utilise pas l'expression "ThisWorkbook" à la place de "ActiveWorkbook" ?
Que représente " [Control]" ? Une plage nommée?
Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim Reponse As String
With Application .StatusBar = "Exécution de macro...." .EnableEvents = False .ScreenUpdating = False .DisplayAlerts = False End With If ActiveWorkbook.Saved = False Then Reponse = MsgBox("Désires-tu sauvegarder les modifications?", vbYesNoCancel + vbInformation, "Attention, à l'historique des factures?") If Reponse = vbNo Then Sheets("Facture").[NO_Fact].Value = "" [Control].Value = 2 With Application .DisplayAlerts = True .StatusBar = False .EnableEvents = True .ScreenUpdating = True End With ActiveWorkbook.Saved = True 'Modifier ActiveWorkbook.Close 'Modifier ElseIf Reponse = vbYes Then Sheets("Facture").[NO_Fact].Value = "" [Control].Value = 2 Insérer ' Cette macro copie les données de la facture dans un classeur de sauvegarde ActiveWorkbook.Save Else Cancel = True End If End If With Application .DisplayAlerts = True .StatusBar = False .EnableEvents = True .ScreenUpdating = True End With End Sub
"Emile63" a écrit dans le message de groupe de discussion :
J'ajouterai que le blocage n'arrive pas en cliquant sur annuler. Et arrive si répond: Non (VbNo) Bien que dans le pas-à-pas il aille jusqu'à la fin de la procédure sans accrocs, ActiveWorkbook.Close SaveChanges:úlse
Pas d'erreurs (on error resume next étant désactivé) ! C'est après que mon Excel se fige. Je n'ai plus accès au menu et boutons. Si j'avais une autre feuille ouverte derrière, elle n'est plus accessible. Alt+ Ctlr + Del :-(
Emile63
C'est plutôt un document confidentiel, si je l'expurge de son contenu, il ne restera plus grand chose...
Avec un traitement d'erreur; '---------------------------- 'ErrorHandler: ' vtMessage = "Erreur détectée" ' vtMessage = vtMessage & _ ' Chr(10) & _ ' Chr(10) & "Erreur Numéro: " & Err & _ ' Chr(10) & "Description: " & Error() ' MsgBox vtMessage, vbInformation, ctByg '----------------------------- il m'annonce tout de même le message suivant: -Erreur N° 40040 Si ça peut éclairer quelqu'un..
C'est plutôt un document confidentiel, si je l'expurge de son contenu, il ne restera plus grand chose...
Avec un traitement d'erreur;
'----------------------------
'ErrorHandler:
' vtMessage = "Erreur détectée"
' vtMessage = vtMessage & _
' Chr(10) & _
' Chr(10) & "Erreur Numéro: " & Err & _
' Chr(10) & "Description: " & Error()
' MsgBox vtMessage, vbInformation, ctByg
'-----------------------------
il m'annonce tout de même le message suivant:
-Erreur N° 40040
Si ça peut éclairer quelqu'un..
