[vba] sauvegarde excel auto avant fermeture Résolu

Question

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.

lami20j · Accepted Answer

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

Aries No Shion · Answer

Re,

Impeccable!

Merci beaucoup

Kobaya · Answer

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 ditApplication.DisplayAlerts = False
lamij, qu'en penses-tu ?

toitki · Answer

Bonjour, 
Comment faire pour sauvegarder un onglet précis d'un classeur et uniquement en valeur ?

lejimka · Answer

pr copier en valeur, j ai copié toutes les valeurs sur ma feuille et les ai recollé par dessus en valeur, ca donne ça:

'fonction qui permet de garder que valeurs ds onglet actif:
  
    Range("A1:F53").Copy
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

à adapter celon les cas

remundo16 · Answer

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!

[vba] sauvegarde excel auto avant fermeture

6 réponses

Discussions similaires

Newsletters