Bonjour le forum
j'ai un petit problème avec ma sauvegarde forcée en XLSM.
Je sauve mon fichier dans un répertoire prédéfini, si je clique sur annuler lors de la première sauvegarde et que je je savegarde plus tard la sauvegarde forcée ne se fait plus en XLSM mais en XLSX. Comment faire pour que la sauvegarde forcée reste en XLSM ?
PS : le fichier de base est un modèle au dormat XLTM.
Merci de votre aide !
j'ai un petit problème avec ma sauvegarde forcée en XLSM.
Je sauve mon fichier dans un répertoire prédéfini, si je clique sur annuler lors de la première sauvegarde et que je je savegarde plus tard la sauvegarde forcée ne se fait plus en XLSM mais en XLSX. Comment faire pour que la sauvegarde forcée reste en XLSM ?
Code:
Public Repertoire As String
Public Sous_Rep_1 As String
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sauve
Cancel = True
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = Sous_Rep_1 & "\"
.FilterIndex = 2
.AllowMultiSelect = False
.Show
End With
End Sub
Sub Sauve()
Repertoire = "I:\Toto"
Sous_Rep_1 = "I:\Toto\Toto_1"
Creation_Repertoire Repertoire
Application.EnableEvents = False
On Error Resume Next
Cancel = True
End Sub
Sub Creation_Repertoire(Repertoire As String)
If Dir(Repertoire, vbDirectory) = "" Then
MkDir Repertoire
End If
If Dir(Sous_Rep_1, vbDirectory) = "" Then
MkDir Sous_Rep_1
End If
End Sub
PS : le fichier de base est un modèle au dormat XLTM.
Merci de votre aide !
Pièces jointes
Dernière édition: