File Dialog Save As sous Excel 2010 qui ne fonctionne pas...

[flint6593]

Bonjour à tous,

Je travail sous Excel 2010, mais lorsque j'affiche ma boite de dialogue pour l'enregistrement je n'arrive pas à afficher le nom et le format par défaut...
Sous 2003 j'avais pas de soucis, mais là tous s'affiche à blanc...
Si quelqu'un connaît l'astuce...

Sous 2003 j'utilisais deux solutions:

With objSaveBox
.InitialFileName = "Nom fichier.csv"
.FilterIndex = 7 // La valeur est 15 sous Excel 2010
.Show
End with

ou

With objSaveBox
.InitialFileName = "Nom fichier"
.Filter.Clear
.Filter.Add "Fichiers .CSV", "*.csv"
.Show
End with

 

[camarchepas]

Re : File Dialog Save As sous Excel 2010 qui ne fonctionne pas...

Bonjour,

comme cela peut être ?

Sub sauve()

Dim Fichier As String
Dim BoiteDialogue As FileDialog
Dim FiltreBoite As FileDialogFilter
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Filters.Add "Fichier Csv", "*.Csv", 1
.Show
Fichier = .SelectedItems(1)
End With
End Sub

 

[flint6593]

Re : File Dialog Save As sous Excel 2010 qui ne fonctionne pas...

Je viens d'essayer (en remplaçant msoFileDialogOpen par msoFileDialogSaveAs) mais toujours rien.

Je commence à me demander si c'est possible sous Excel 2010...

 

[camarchepas]

Re : File Dialog Save As sous Excel 2010 qui ne fonctionne pas...

Et oui ,

Une fois la variable fichier chargée ,

il faut exécuter la sauvegarde :

thisworkbook.saveas filename:= fichier

 

[flint6593]

Re : File Dialog Save As sous Excel 2010 qui ne fonctionne pas...

Ok je vais essayer...

 

[flint6593]

Re : File Dialog Save As sous Excel 2010 qui ne fonctionne pas...

Je viens d'essayer... Toujours à blanc avec marquer "All Files" à la place de .csv...

 

[flint6593]

Re : File Dialog Save As sous Excel 2010 qui ne fonctionne pas...

RGGHHHHH!!!!!
Je viens de m'apercevoir que la macro fonctionnait en pas à pas => Le nom se met par défaut + selection du type .CSV, mais lorsque je lance la macro normalement, pas de nom et "All Files" uniquement disponible...
Si quelqu'un a une idée...


Mon code:

With Application.FileDialog(msoFileDialogSaveAs)
.FilterIndex = 15
.InitialfileName = "MON NOM DE FICHIER"
.Show

ActiveWorkbook.SaveAs Filename:=.SelectedItems(1)
End With

 

[PMO2]

Re : File Dialog Save As sous Excel 2010 qui ne fonctionne pas...

Bonjour,

Peut être en employant une autre méthode

Sub bb()
Dim reponse
reponse = Application.GetSaveAsFilename(InitialFileName:="MON NOM DE FICHIER", fileFilter:="Fichiers .CSV, *.csv")
If reponse <> False Then
  '---Code traitement ---
End If
End Sub

 

[flint6593]

Re : File Dialog Save As sous Excel 2010 qui ne fonctionne pas...

Je vais tester, merci!!!!

 

[flint6593]

Re : File Dialog Save As sous Excel 2010 qui ne fonctionne pas...

Merci ça fonctionne! Parfait!!!! Je viens de gagner la semaine!!!!!
Encore merci!!!! 😀😀😀😀😀😀😀😀😀😀😀😀😀😀😀😀😀😀😀😀😀😀