Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel ATTENTION : question mainte fois posée mais...

ATTENTION : question mainte fois posée mais...

14 réponses
Avatar
William
Bonjour à tous,

Je vais en faire bondir certains de poser cette question mais j'ai recherché
sur Excelabo, google and Co et ce que j'ai trouver ne marche pas chez moi.
Mon problème
je voudrais fermer sans l'enregistrer le classeur actif càd que quand je
clique sur la croix de fermeture du fichier ou même d'excel, je ne veux pas
la fenêtre de demande d'enregistrement.

J'ai donc mis cette macro dans ThisWorkBook du fichier actif :

Private Sub Fermer_Sans_Sauver()
ActiveWorkbook.Saved = False
ActiveWorkbook.Close
End Sub

Mais j'ai toujours la demande d'enregistrment!!!

Où est mon erreur ???
Il ne fallait pas mettre cette macro dans le ThisWorkBook de mon fichier ?

Merci pour votre aide

William (un revenant)
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Pounet95
Bonjour,
il y a erreur dans la ligne

ActiveWorkbook.Saved = False

il faut mettre True pour dire à Excel que le fichier EST SAUVEGARDE !

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"William" <brun_rhodanienne@(supprimerceci)hotmail.com> a écrit dans le
message de news: %
Bonjour à tous,

Je vais en faire bondir certains de poser cette question mais j'ai
recherché
sur Excelabo, google and Co et ce que j'ai trouver ne marche pas chez moi.
Mon problème
je voudrais fermer sans l'enregistrer le classeur actif càd que quand je
clique sur la croix de fermeture du fichier ou même d'excel, je ne veux
pas
la fenêtre de demande d'enregistrement.

J'ai donc mis cette macro dans ThisWorkBook du fichier actif :

Private Sub Fermer_Sans_Sauver()
ActiveWorkbook.Saved = False
ActiveWorkbook.Close
End Sub

Mais j'ai toujours la demande d'enregistrment!!!

Où est mon erreur ???
Il ne fallait pas mettre cette macro dans le ThisWorkBook de mon fichier ?

Merci pour votre aide

William (un revenant)




Avatar
William
Bonjour Pounet,

J'ai fait comme tu m'as dit mais il me fait toujours apparaître la fenetre
qui demande l'enregistrement...
A noter qu'avant cette macro, dans mon ThisWorkBook, j'ai

Private Sub Workbook_Open()

Sheets("ACCUEIL").Select
End Sub

mais je ne pense pas que le problème vienne de là.

Les modifications de mon fichier sont faites par des formulaires qui me
remplissent des cases, puis j'enregistre le fichier sous un autre nom par un
bouton spécial qui va ensuite ré-activer mon fichier d'origine. Mais quand
je ne veux pas enregistrer avec ce bouton spécial et que je veux fermer mon
fichier d'origine, je ne veux pas pouvoir enregistrer mon fichier modifié.

J'espère avoir apporté des précisions intéressantes...

William

"Pounet95" a écrit dans le message de news:

Bonjour,
il y a erreur dans la ligne

ActiveWorkbook.Saved = False

il faut mettre True pour dire à Excel que le fichier EST SAUVEGARDE !

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"William" <brun_rhodanienne@(supprimerceci)hotmail.com> a écrit dans le
message de news: %
Bonjour à tous,

Je vais en faire bondir certains de poser cette question mais j'ai
recherché
sur Excelabo, google and Co et ce que j'ai trouver ne marche pas chez
moi.


Mon problème
je voudrais fermer sans l'enregistrer le classeur actif càd que quand je
clique sur la croix de fermeture du fichier ou même d'excel, je ne veux
pas
la fenêtre de demande d'enregistrement.

J'ai donc mis cette macro dans ThisWorkBook du fichier actif :

Private Sub Fermer_Sans_Sauver()
ActiveWorkbook.Saved = False
ActiveWorkbook.Close
End Sub

Mais j'ai toujours la demande d'enregistrment!!!

Où est mon erreur ???
Il ne fallait pas mettre cette macro dans le ThisWorkBook de mon fichier
?



Merci pour votre aide

William (un revenant)







Avatar
Pounet95
Re,
Le problème doit venir de l'endroit où est placée la procédure !
Le mieux c'est de mettre ceci dans le module Thisworkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"William" <brun_rhodanienne@(supprimerceci)hotmail.com> a écrit dans le
message de news:
Bonjour Pounet,

J'ai fait comme tu m'as dit mais il me fait toujours apparaître la fenetre
qui demande l'enregistrement...
A noter qu'avant cette macro, dans mon ThisWorkBook, j'ai

Private Sub Workbook_Open()

Sheets("ACCUEIL").Select
End Sub

mais je ne pense pas que le problème vienne de là.

Les modifications de mon fichier sont faites par des formulaires qui me
remplissent des cases, puis j'enregistre le fichier sous un autre nom par
un
bouton spécial qui va ensuite ré-activer mon fichier d'origine. Mais quand
je ne veux pas enregistrer avec ce bouton spécial et que je veux fermer
mon
fichier d'origine, je ne veux pas pouvoir enregistrer mon fichier modifié.

J'espère avoir apporté des précisions intéressantes...

William

"Pounet95" a écrit dans le message de news:

Bonjour,
il y a erreur dans la ligne

ActiveWorkbook.Saved = False

il faut mettre True pour dire à Excel que le fichier EST SAUVEGARDE !

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"William" <brun_rhodanienne@(supprimerceci)hotmail.com> a écrit dans le
message de news: %
Bonjour à tous,

Je vais en faire bondir certains de poser cette question mais j'ai
recherché
sur Excelabo, google and Co et ce que j'ai trouver ne marche pas chez
moi.


Mon problème
je voudrais fermer sans l'enregistrer le classeur actif càd que quand
je
clique sur la croix de fermeture du fichier ou même d'excel, je ne veux
pas
la fenêtre de demande d'enregistrement.

J'ai donc mis cette macro dans ThisWorkBook du fichier actif :

Private Sub Fermer_Sans_Sauver()
ActiveWorkbook.Saved = False
ActiveWorkbook.Close
End Sub

Mais j'ai toujours la demande d'enregistrment!!!

Où est mon erreur ???
Il ne fallait pas mettre cette macro dans le ThisWorkBook de mon
fichier
?



Merci pour votre aide

William (un revenant)











Avatar
MSILLIENNE
pour ma part je fait
application.displayalert = false
je n'ai pas de message d'excel ......
peut etre que ce n'est pas ce que tu cherches



Avatar
Patrice
Salut,

la syntaxe est là :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Close savechanges:úlse
End Sub

tu le mets dans Thisworkbook

@+

-----Message d'origine-----
Bonjour à tous,

Je vais en faire bondir certains de poser cette question
mais j'ai recherché

sur Excelabo, google and Co et ce que j'ai trouver ne
marche pas chez moi.

Mon problème
je voudrais fermer sans l'enregistrer le classeur actif
càd que quand je

clique sur la croix de fermeture du fichier ou même
d'excel, je ne veux pas

la fenêtre de demande d'enregistrement.

J'ai donc mis cette macro dans ThisWorkBook du fichier
actif :


Private Sub Fermer_Sans_Sauver()
ActiveWorkbook.Saved = False
ActiveWorkbook.Close
End Sub

Mais j'ai toujours la demande d'enregistrment!!!

Où est mon erreur ???
Il ne fallait pas mettre cette macro dans le ThisWorkBook
de mon fichier ?


Merci pour votre aide

William (un revenant)


.



Avatar
William
Merci MSILLIENNE
mais en effet, ce n'est pas ça que je cherche

William

"MSILLIENNE" a écrit dans le message
de news: 1b1401c4cd65$25b42350$
pour ma part je fait
application.displayalert = false
je n'ai pas de message d'excel ......
peut etre que ce n'est pas ce que tu cherches





Avatar
William
Merci Pounet,
mais la procédure était bien placée dans Thisworkbook
En revanche, la procédure dePatrice fonctionne

William


"Pounet95" a écrit dans le message de news:
#
Re,
Le problème doit venir de l'endroit où est placée la procédure !
Le mieux c'est de mettre ceci dans le module Thisworkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"William" <brun_rhodanienne@(supprimerceci)hotmail.com> a écrit dans le
message de news:
Bonjour Pounet,

J'ai fait comme tu m'as dit mais il me fait toujours apparaître la
fenetre


qui demande l'enregistrement...
A noter qu'avant cette macro, dans mon ThisWorkBook, j'ai

Private Sub Workbook_Open()

Sheets("ACCUEIL").Select
End Sub

mais je ne pense pas que le problème vienne de là.

Les modifications de mon fichier sont faites par des formulaires qui me
remplissent des cases, puis j'enregistre le fichier sous un autre nom
par


un
bouton spécial qui va ensuite ré-activer mon fichier d'origine. Mais
quand


je ne veux pas enregistrer avec ce bouton spécial et que je veux fermer
mon
fichier d'origine, je ne veux pas pouvoir enregistrer mon fichier
modifié.



J'espère avoir apporté des précisions intéressantes...

William

"Pounet95" a écrit dans le message de news:

Bonjour,
il y a erreur dans la ligne

ActiveWorkbook.Saved = False

il faut mettre True pour dire à Excel que le fichier EST SAUVEGARDE !

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"William" <brun_rhodanienne@(supprimerceci)hotmail.com> a écrit dans le
message de news: %
Bonjour à tous,

Je vais en faire bondir certains de poser cette question mais j'ai
recherché
sur Excelabo, google and Co et ce que j'ai trouver ne marche pas chez
moi.


Mon problème
je voudrais fermer sans l'enregistrer le classeur actif càd que quand
je
clique sur la croix de fermeture du fichier ou même d'excel, je ne
veux




pas
la fenêtre de demande d'enregistrement.

J'ai donc mis cette macro dans ThisWorkBook du fichier actif :

Private Sub Fermer_Sans_Sauver()
ActiveWorkbook.Saved = False
ActiveWorkbook.Close
End Sub

Mais j'ai toujours la demande d'enregistrment!!!

Où est mon erreur ???
Il ne fallait pas mettre cette macro dans le ThisWorkBook de mon
fichier
?



Merci pour votre aide

William (un revenant)














Avatar
William
Bonjour Patrice,

Merci, ca marche comme je veux.

Mais pourquoi l'autre procédure (celle de Pounet) ne marche pas ?

William

"Patrice" a écrit dans le message de
news: 1b9701c4cd73$e39173b0$
Salut,

la syntaxe est là :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Close savechanges:úlse
End Sub

tu le mets dans Thisworkbook

@+

-----Message d'origine-----
Bonjour à tous,

Je vais en faire bondir certains de poser cette question
mais j'ai recherché

sur Excelabo, google and Co et ce que j'ai trouver ne
marche pas chez moi.

Mon problème
je voudrais fermer sans l'enregistrer le classeur actif
càd que quand je

clique sur la croix de fermeture du fichier ou même
d'excel, je ne veux pas

la fenêtre de demande d'enregistrement.

J'ai donc mis cette macro dans ThisWorkBook du fichier
actif :


Private Sub Fermer_Sans_Sauver()
ActiveWorkbook.Saved = False
ActiveWorkbook.Close
End Sub

Mais j'ai toujours la demande d'enregistrment!!!

Où est mon erreur ???
Il ne fallait pas mettre cette macro dans le ThisWorkBook
de mon fichier ?


Merci pour votre aide

William (un revenant)


.



Avatar
Pounet95
Bonjour,
Je crois que cette instruction ne fait que désactiver l'affichage des
messages.
Ce qu'elle fait par défaut ensuite ? Sauver ? Pas sauver ?

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
"MSILLIENNE" a écrit dans le message
de news: 1b1401c4cd65$25b42350$
pour ma part je fait
application.displayalert = false
je n'ai pas de message d'excel ......
peut etre que ce n'est pas ce que tu cherches





Avatar
Patrice
il existe plusieurs façon d'aborder le problème. Soit tu
fais croire à Excel que tu as déjà sauvegardé, soit tu lui
dit de ne pas sauvegarder, soit tu shuntes les messages
(le Displayalerts). Retiens plus cette formulation qui me
semble plus adaptées (que j'ai du trouver il y a longtemps
sur Excelabo... (site INCONTOURNABLE).
Bonne continuation à toi.

Patrice.
-----Message d'origine-----
Bonjour Patrice,

Merci, ca marche comme je veux.

Mais pourquoi l'autre procédure (celle de Pounet) ne
marche pas ?


William

"Patrice" a écrit
dans le message de

news: 1b9701c4cd73$e39173b0$
Salut,

la syntaxe est là :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Close savechanges:úlse
End Sub

tu le mets dans Thisworkbook

@+

-----Message d'origine-----
Bonjour à tous,

Je vais en faire bondir certains de poser cette question
mais j'ai recherché

sur Excelabo, google and Co et ce que j'ai trouver ne
marche pas chez moi.

Mon problème
je voudrais fermer sans l'enregistrer le classeur actif
càd que quand je

clique sur la croix de fermeture du fichier ou même
d'excel, je ne veux pas

la fenêtre de demande d'enregistrement.

J'ai donc mis cette macro dans ThisWorkBook du fichier
actif :


Private Sub Fermer_Sans_Sauver()
ActiveWorkbook.Saved = False
ActiveWorkbook.Close
End Sub

Mais j'ai toujours la demande d'enregistrment!!!

Où est mon erreur ???
Il ne fallait pas mettre cette macro dans le ThisWorkBook
de mon fichier ?


Merci pour votre aide

William (un revenant)


.




.




1 2