Macro d'enregistrement sans STOP

[GO]

Salut,

Je crée un macro qui enregistre un fichier TOTO.XLS sur un fichier TOTO.XLS préexistant.

J'aimerais que lorsque je lance la macros tout s'execute sans qu'un message me demandant confirmation d'écraser l'ancienne version n'apparaisse.

Qui pourrais me dire comment on désactive cela, j'ai su mais je sais plus 😱(

Merci

A+

 

[Dan]

Bonjour,

Avant d'enregistrer le nouveau fichier tu pourrais supprimer l'ancien en insérant cette macro dans ton projet. Le message dont tu parles ne serait alors plus demandé.


Sub SupprimFichier()
Kill "C:\"répertoire"\toto.xls"
End Sub

Avec
1. "C:\" : disque de stockage
2. Répertoire : répertoire de stockage du fichier Toto
3. Nom du fichier

Bon travail

A+

Dan

 

[GO]

Merci de ton aide, c'est effectivement une variante sympas 😱)

j'ai remis la main sur la fonction c'était "DisplayAlerts" qui reste plus général, je pense que ça peut interesser du monde ;o)

 

[MG]

Bonsoir, Dan, GO

bon vite fait met le code dans un module puis lance la procédure


'Macro enregistrée le 17/10/2003 par Moriceau Gerard
'pour excel download XLD

Public Const MG As String = "Bibliothèque Macros pour Excel"

Sub Sauvegarde_Fichier_Actuel()
Dim Sauvegarde As Variant
If ActiveWorkbook.Path = "" Then GoTo Original
On Error GoTo Sortir
Application.EnableEvents = False
ChDrive Left(ActiveWorkbook.Path, 1)
ChDir ActiveWorkbook.Path
Original:
Sauvegarde = Application.GetSaveAsFilename(ActiveWorkbook.Path & "\" & ActiveWorkbook.Name, fileFilter:="Classeur Microsoft Excel (*.xls), *.xls", Title:="Bibliothèque des Macros - Excel - Sauvegarde du fichier actuel")
If Sauvegarde = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Sauvegarde, FileFormat:=xlWorkbookNormal, CreateBackup:=False, AddToMru:=True
Sortir:
Application.StatusBar = False
Application.EnableEvents = True
End Sub

@+ Gérard