High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

[vba] sauvegarde excel auto avant fermeture

Dernière réponse le 29 jui 2008 à 10:48:10 Aries No Shion, le 29 sep 2006 à 11:21:30 
 Signaler ce message aux modérateurs

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.

Meilleures réponses pour « [vba] sauvegarde excel auto avant fermeture » dans :
[VBA]Connecter une base de donnée (MDB) à excel VoirConnecter une base de donnée access (MDB) dans une application excel. Ajouter la référence Microsoft DAO object librairy X.X Dans un module général (Module1 par exemple) coller le code ci-dessous Sub CopieDBaccess() Dim BDexp As...
Posez votre question Répondre

1

lami20j, le 29 sep 2006 à 11:32:53

Salut,

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

   
Répondre à lami20j

2

Aries No Shion, le 29 sep 2006 à 12:08:27

Re,

Impeccable!

Merci beaucoup

   
Répondre à Aries No Shion

3

Kobaya, le 29 sep 2006 à 22:39:35

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 ?
A+,
Kobaya.

   
Répondre à Kobaya

4

lami20j, le 29 sep 2006 à 22:58:12

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 :-)

   
Répondre à lami20j

5

Kobaya, le 30 sep 2006 à 19:52:49

Et oui, j'ai appris quelquechose :-)

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

A+,
Kobaya.

   
Répondre à Kobaya

6

toitki, le 2 oct 2007 à 23:40:31

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

   
Répondre à toitki

7

 lejimka, le 29 jui 2008 à 10:48:10

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

   
Répondre à lejimka
Posez votre question Répondre
Ils ont besoin de votre aide