[vba] sauvegarde excel auto avant fermeture

Résolu/Fermé

Enregistrement

Aries No Shion Messages postés 23 Date d'inscription samedi 16 avril 2005 Statut Membre Dernière intervention 24 octobre 2008 - 29 sept. 2006 à 11:21
Kelkun - 15 févr. 2017 à 20:06

Bonjour à tous,

Pourriez-vous m'indiquer le code à utiliser pour sauvegarder les changements dans excel avant la fermeture d'un fichier?

C'est dans le but d'éviter le message "Do you want to save the changes you made to '....xls'?"

J'ai lu cette conversation mais je n'y ai pas trouvé ma réponse : "petit bout de code pour fermeture excel svp"

Merci pour votre aide.

A voir également:

Excel enregistrement automatique à la fermeture
Réponse automatique thunderbird - Guide
Liste déroulante excel - Guide
Aller à la ligne excel - Guide
Comment calculer la moyenne sur excel - Guide
Word et excel gratuit - Guide

6 réponses

Réponse 1 / 6

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 569
29 sept. 2006 à 11:32

Salut,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.AlertBeforeOverwriting = False
    ActiveWorkbook.Save
End Sub

lami20j

Réponse 2 / 6

Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 214
29 sept. 2006 à 22:39

bonsoir à tous,

Ne connaissant pas cette propriété AlertBeforeOverwriting, je suis allé voir l'aide en ligne. Et là, je trouve :
Cette propriété a la valeur True si Microsoft Excel affiche un message avant de remplacer des cellules contenant des données pendant une modification effectuée à l'aide de la fonction Glisser-déplacer. Type de données Boolean en lecture-écriture.
Ca me laisse perplexe...
J'aurais plutôt dit

Application.DisplayAlerts = False

lamij, qu'en penses-tu ?

lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 3 569
29 sept. 2006 à 22:58

Salut Kobaya,

J'aurais plutôt dit

Application.DisplayAlerts = False

Oui, tu as raison :-)
En fait c'est à ça que j'ai pensé, mais comme je suis paresseux et par ordre alphabetique j'ai d'abord Alert...

lami20j

P.S. Ne connaissant pas cette propriété AlertBeforeOverwriting,

Au moins tu as appris quelque chose :-)

Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 214 > lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019
30 sept. 2006 à 19:52

et oui, j'ai appris quelquechose :-)

j'espère que Aries No Shion a suivi le fil lui aussi ;-)

Réponse 6 / 6

remundo16
Modifié par remundo16 le 1/07/2013 à 12:06

Bonjour j'aimerais que mes fichiers s'enregistrent automatiquement sans que j'ai à cliquer à chaque fois pour valider l'enregistrement :

ChDir _
"X:.........."

' ActiveWorkbook.SaveAs Filename:= _
' "X:..................................................." & cell.Value & ".xls" _
' , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
' ReadOnlyRecommended:=False, CreateBackup:=False

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"X:........................................." & cell.Value & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

ActiveWindow.Close

En italique les codes précédents et en gras mon code actuel!

EKP
4 févr. 2017 à 11:06

Bonjour. Il n'y a t'il pas un moyen d'enregistrer automatiquement les fichiers à la seconde?

Kelkun > EKP
15 févr. 2017 à 20:06

salut
petit truc pour enregistrer auto toutes les 15min

Dans thisworkbook


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.OnTime Now + TimeValue("00:15:00"), "EnregistrerFichier"
End Sub

Dans un module


Sub EnregistrerFichier()
ActiveWorkbook.Save
End Sub

Discussions similaires

Empêcher mise en veille à la fermeture écran

Fermeture de session TSE

[outlook] se ferme au lieu de se réduire

fermeture intempestive des fenetres

Malgré fermeture, OUTLOOK.EXE reste actif

[Navigation Internet] Trace de navigation