[vba] sauvegarde excel auto avant fermeture

Résolu

Enregistrement

Aries No Shion Messages postés 23 Date d'inscription Statut Membre Dernière intervention -
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:

Sauvegarde automatique excel vba
Logiciel de sauvegarde automatique gratuit - Guide
Liste déroulante excel - Guide
Réponse automatique thunderbird - Guide
Word et excel gratuit - Guide
Déplacer colonne excel - Guide

6 réponses

Réponse 1 / 6

lami20j Messages postés 21331 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention 3 570

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 Statut Membre Dernière intervention 214

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 Statut Modérateur, Contributeur sécurité Dernière intervention 3 570

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 Statut Membre Dernière intervention 214 > lami20j Messages postés 21331 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention

et oui, j'ai appris quelquechose :-)

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

Réponse 6 / 6

remundo16

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

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

Kelkun > EKP

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

crack ou clé d'enregistrement

Capture VLC introuvable

Récupérer doc WORD fermé et non enregistré

Probleme de peripherique d'enregistrement

Problème de son avec AUDACITY

[ effacer un enregistrement d'une camera]

Votre réponse

Discussions similaires