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

camarchepas

XLDnaute Barbatruc

• 26 Décembre 2012

• #2

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

F

flint6593

XLDnaute Occasionnel

• 26 Décembre 2012

• #3

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

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 26 Décembre 2012

• #4

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

 

Vote positif 0 Vote négatif

F

flint6593

XLDnaute Occasionnel

• 26 Décembre 2012

• #5

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

Ok je vais essayer...

 

Vote positif 0 Vote négatif

F

flint6593

XLDnaute Occasionnel

• 26 Décembre 2012

• #6

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

 

Vote positif 0 Vote négatif

F

flint6593

XLDnaute Occasionnel

• 26 Décembre 2012

• #7

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

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 26 Décembre 2012

• #8

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

Bonjour,

Peut être en employant une autre méthode

Code:

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

 

Vote positif 0 Vote négatif

F

flint6593

XLDnaute Occasionnel

• 27 Décembre 2012

• #9

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

Je vais tester, merci!!!!

 

Vote positif 0 Vote négatif

F

flint6593

XLDnaute Occasionnel

• 27 Décembre 2012

• #10

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

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

 

Vote positif 0 Vote négatif