Enregistrer Enregistrer sous

[bernjean]

Bonjour à Tous,


Je désire sauvegarder un fichier à 2 endroits différents, j'ai essayé d'utiliser :

ActiveWorkbook.Close savechanges:=True

Suivi de :

ChDir 'Z:\\PC MP'
ActiveWorkbook.SaveAs Filename:='Z:\\PC MP\\SuiviCordesMP4V01TESTEssai.xls', _
FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.Run 'SuiviCordesMP4V01TESTEssai.xls!Temps8'

Dans Private Sub Workbook_BeforeClose(Cancel As Boolean)

Cela ne fonctionne pas.

Si quelqu'un a une idée ?

Bernjean

 

[excalibur]

bonjour bernjean , le forum un approche du pb Option Explicit
Sub Macro1()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:='D:\\toto.xls'
ActiveWorkbook.SaveAs Filename:='D:\\encours\\toto.xls'
Application.DisplayAlerts = True
End Sub'salutations

 

[excalibur]

j ai oublie tu peus automatiser comme ton post le laisse suposer Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:='D:\\Classeur1.xls'
ActiveWorkbook.SaveAs Filename:='D:\\encours\\Classeur1.xls'
Application.DisplayAlerts = True
End Sub'salutations

 

[bernjean]

Merci Excalibur pour ces lignes, mais le programme est assez récalcitrant, il enregistre soit le fichier en cours soit enregistre sous mais pas les 2.

Bernjean

 

[excalibur]

rebonjour bernjean , le forum j ai du mal a suivre ton pb j ai crus comprendre que tu voulais sauvegarder ton fichier a deux endroit different sous le meme nom il se trouve que ton souhait est different !!! developpe un peu ou zip un bout de code salutations

 

[BernJean]

Bonsoir à tous,

Excuse-moi Escalibur, ton code fonctionne parfaitement et c'est tout à fait ce que je veux faire : enregistrer un fichier sous le même nom à 2 endroits différents.
Est-il possible de supprimer la fenêtre 'Voulez-vous enregistrer les modifs'?

Encore Merci

BernJean

 

[Bernjean]

Rebonsoir,

J'ai transféré le code dans BeforeClose et la fenêtre 'Voulez-vous enregistrer 'n'apparaît plus.

Bernjean

 

[excalibur]

bonsoir Bernjean , le forum pour ne pas avoir la question & pas sauvegarder apres une modification tu peus mettre ce code Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub ' salutations

 

[Bernjean]

Bonjour Excalibur, le forum,

Merci Excalibur pour toutes ces infos, avec tout cela mon fichier va être bien sauvegardé !

Bonne journée

BernJean