Discussion :

[taurelle]

j'utilise ce code pour sauvegarder mon fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub enregistrement()
 
    Dim chemin As String
    chemin = Workbooks(ActiveWorkbook.Name).Path
    ActiveWorkbook.SaveAs Filename:=chemin & "\whist_La_marque.xls", _
    FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False
 
End Sub

mon problème est que à chaque fois je doit confirmer l'écrasement de la version précédente

j'aimerais connaitre le code qui permet de supprimer cette validation de l'écrasement du vieux fichier

Merci

[Oliv-]

salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Application.EnableEvents = False
    Application.ActiveWorkbook.Save
    Application.EnableEvents = True

[Libesa]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Application.DisplayAlerts = False
Application.ActiveWorkbook.Save
Application.DisplayAlerts = True

[taurelle]

je retiens la proposition de Libesa qui marche très bien

Merci

[Oliv-]

Salut,
effectivement c'est mieux j'ai recopié le code pour un autre besoin empecher le déclenchement d'un évenement à l'enregistrement ;-)