enregistrer

ERIC S

XLDnaute Barbatruc

• 18 Mai 2006

• #2

Bonjour

application.displayalerts=false
.....
application.displayalerts=true

important de le remettre après

A+

 

Vote positif 0 Vote négatif

C

Creepy

XLDnaute Accro

• 18 Mai 2006

• #3

Bonjour le Forum, Eric,

Code:

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:= _
'C:\\dede.xls', FileFormat:=xlNormal _
, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=False

Application.DisplayAlerts = True

Et voila 😉

@+

Creepy

 

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 18 Mai 2006

• #4

Bonjour Damien, bonjour à toutes et à tous 🙂

Si tu es certain de ne pas faire d'erreurs, tu peux ajouter les lignes en bleu :

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:= _
'C:\\\\\\\\Documents and Settings\\\\\\\\Classeur1.xls', FileFormat:=xlNormal _
, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, _
CreateBackup:=False

Application.DisplayAlerts = True

Voilà.

EDITION : Oups !! :sick: Je vous avais pô vus... Bonne fête Eric 🙂

A+ 😉

Message édité par: Charly2, à: 18/05/2006 15:51

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 18 Mai 2006

• #5

Bonjour à tous

je sais que vous n'êtes pas aveugles mais mon pc bégaie (ou le serveur?

application.displayalerts=false
.....
application.displayalerts=true

important de le remettre après

A+

Message édité par: ERIC S, à: 18/05/2006 15:51

 

Vote positif 0 Vote négatif

E

Espérance

Guest

• 18 Mai 2006

• #6

bonjour Damien,

Je pense que ton code vient de l'enregistrement d'1 macro 'enregistrer sous', je me trompe? 🙂

Si tu ne change pas de nom quand tu enregistres ton fichier, essaye:

ActiveWorkbook.Save

A+

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 18 Mai 2006

• #7

Bonjour Damien, bonjour le forum,

Peut-être comme ça :

Public Sub sauve()
Application.DisplayAlerts = False 'n'affiche plus les messages Excel
ActiveWorkbook.SaveAs ('C:\\\\\\\\Documents and Settings\\\\\\\\Classeur1.xls') 'sauve le fichier
Application.DisplayAlerts = True 'affiche les messages Excel
End Sub

Cliquez pour agrandir...

Édition :

Bonjour à tous. Mort de rire, tellement je suis pas frais! Je mets mons peignoir et je vais me coucher...

Message édité par: Robert, à: 18/05/2006 16:03

 

Vote positif 0 Vote négatif

D

damien

Guest

• 18 Mai 2006

• #8

bonjour à tous

ça marche impec

merci damien

 

Vote positif 0 Vote négatif