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

[flint6593]

Bonsoir,

Savez-vous comment mettre le format CSV par défaut dans la boite de dialogue "Enregistrer sous" qui s'ouvre avec la commande :

Application.Dialogs(xlDialogSaveAs).Show ("NomClasseur.xls")

Car lorsque ça s'ouvre, c'est Classeur Excel 97-03 qui est par défaut...

Merci!!!!!

 

[flint6593]

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 😉😉😉😉😉😉😉

 

[JNP]

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

Bonjour Flint6593 🙂,

.InitialFileName = "Nom fichier.xls"

Ça te paraitrait pas plus logique

.InitialFilName = "Nom fichier.csv"

🙄... 😛
Bon WE 😎

 

[flint6593]

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

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