Boite dialogue "Enregistrer sous", mettre format .csv par défaut...

F

flint6593

XLDnaute Occasionnel

• 7 Octobre 2011

• #2

Re : Boite dialogue "Enregistrer sous", mettre format .csv par défaut...

Pour ceux que ça interresse, j'ai trouvé une solution permettant de contourner le problème, utiliser sa propre boîte de dialogue:

Sub Utilisation_FileDialog_Sauvegarde()
Dim objSaveBox As FileDialog

'Définit la fenêtre "Enregistrer sous"
Set objSaveBox = Application.FileDialog(msoFileDialogSaveAs)

With objSaveBox
'Définit un nom par défaut dans le champ "Nom de fichier".
.InitialFileName = "Nom fichier.xls"

'Définit le type de fichier par défaut:
'(la valeur 7 Permet de spécifier les classeurs "CSV" lorsque vous êtes dans Excel 2007)
.FilterIndex = 7

'Affiche la boîte de dialogue
.Show
'Enregistre
.Execute
End With

End Sub


Bonne nuit

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 8 Octobre 2011

• #3

Re : Boite dialogue "Enregistrer sous", mettre format .csv par défaut...

Bonjour Flint6593 ,

flint6593 à dit:

.InitialFileName = "Nom fichier.xls"

Cliquez pour agrandir...

Ça te paraitrait pas plus logique

Code:

.InitialFilName = "Nom fichier.csv"

...
Bon WE

 

Vote positif 0 Vote négatif

F

flint6593

XLDnaute Occasionnel

• 8 Octobre 2011

• #4

Re : Boite dialogue "Enregistrer sous", mettre format .csv par défaut...

Merci je m'en suis rendu compte en activant la macro ^^

 

Vote positif 0 Vote négatif