Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 gerer l'extension au sauvegarde

Amrane

XLDnaute Junior
Cher forum,
ja'aimrai avoir votre conseil pour mon soucis lors de sauvgarde

je veux garder l'extension"XLSB" pendant le sauvegarde, pur eviter de perder le code en cas de sauvegarde en format "XLSX" par exemple,...
j'ai trouvee le code ci-dessou, mais il produit une dialoge-fenetre sans-fin,..

merci d'avance pour votre support:
Code debut ###:
VB:
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim FD As FileDialog, FTyp As Long
Dim folderpath As String, MyWbName As String

Cancel = True

folderpath = Application.ActiveWorkbook.Path
MyWbName = Application.ActiveWorkbook.FullName

' reference a SaveAs Dialog
Set FD = Application.FileDialog(msoFileDialogSaveAs)
With FD
.FilterIndex = 3

.InitialFileName = MyWbName
.Title = "Save As"
End With

FD.Show

If FD.SelectedItems.Count = 0 Then
Exit Sub
Else
' check for proper extension
If Right(FD.SelectedItems(1), 4) = "xlsb" Then '= "xlsm" Then

FTyp = 50

Application.EnableEvents = False
Me.SaveAs FD.SelectedItems(1), FTyp
Application.EnableEvents = True

Else
MsgBox "selected wrong file format ... not saving"
End If
End If

End Sub

Code fin ###:
 

Amrane

XLDnaute Junior
Cher forum,
je suis toujours en attente de votre support, mais entre temps j'ai pense a une autre idees,
aura t-il un possibilit de lier le boutton" Save" en fonction d'un choix d'un type de ficher determiner au preallable, c'est a dire:
ref ( photo en attachement):
si le type de ficher est "xlsb", authoriser la sauvegarde

merci monsieur pour votre support,
Amrane
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…