enregistrer

[damien]

bonjour le forum,

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

je ne voudrai plus qu'il me pose la question voulez vous remplacer le fichier classeur1.xls.
je voudrai qu'il me valide auto oui.

merci damien

 

[ERIC S]

Bonjour

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

important de le remettre après

A+

 

[Creepy]

Bonjour le Forum, Eric,

Application.DisplayAlerts = False

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

Application.DisplayAlerts = True

Et voila

@+

Creepy

 

[Charly2]

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

 

[ERIC S]

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

 

[Espérance]

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+

 

[Robert]

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

É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

 

[damien]

bonjour à tous

ça marche impec

merci damien