Bonjour,

mon soucis est qu'à partir de mon code le fichier que je souhaite enregistrer se fait 2 fois

je pense que l'événement Workbook_beforsave enregistre dans le chemin désiré
puis il m'ouvre la boîte de dialogue avec le chemin souhaité et me dis que le fichier existe déjà

Qu'est ce qui n'est pas correct dans mon code, merci pour votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Workbook_beforesave(ByVal SaveasUI As Boolean, cancel As Boolean)
Dim Repertoire As String
Dim Fichier As String
Dim Chemin As String
cancel = False
 
If SaveasUI = False Then
Exit Sub
End If
 
 
Fichier = Range("D29").Value & "_" & Range("D105").Value & "_" & Range("D72").Value & "_" & "sec" 'récupérer le nom du fichier
Repertoire = "c:\Expertise\archivage auto (test)\sec"
Chemin = Repertoire & "\" & Fichier
'Application.FileDialog(msoFileDialogSaveAs).InitialFileName = Chemin
'Application.FileDialog(msoFileDialogSaveAs).Show
ActiveWorkbook.SaveAs (Chemin)
 
End Sub