msoFileDialogSaveAs => Bloquer la croix et le bouton annuler

[flint6593]

Bonjour à tous,

Je suis un peu embêté. J'utilise une fenêtre saveas dans ma macro.
Elle me permet de récupérer un chemin d'accès et permet à l'utilisateur de rentrer un nom.
Mais je voudrais que l'utilisateur soit OBLIGE de faire l'enregistrement en entier.
C'est à dire qu'il ne puisse pas utiliser la croix rouge ou le bouton annuler pour quitter l'enregistrement. Car si il fait ça, je me retrouve avec beaucoup de problèmes en suivant...

Si quelqu’un peut m'aider?

MERCI !!!!!!!!!!!

 

[Pierrot93]

Re : msoFileDialogSaveAs => Bloquer la croix et le bouton annuler

Bonjour,

regarde peut être ceci :

Dim f As String
Do
    f = Application.GetSaveAsFilename( _
        fileFilter:="Feuilles de calcul(*.xls), *.xls")
Loop Until f <> False

bonne journée
@+

 

[flint6593]

Re : msoFileDialogSaveAs => Bloquer la croix et le bouton annuler

Merci, mais ce sont des fichiers en .csv et j'ai essayer de mettre:

Dim f As String
Do
f = Application.GetSaveAsFilename( _
fileFilter:="Feuilles de calcul(*.csv), *.csv")
Loop Until f <> False

Mais cela ne marche pas... Je n'arrive pas à placer le DO
Voici ma boite:

Set objSaveBox = Application.FileDialog(msoFileDialogSaveAs)

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


'A modifier pour Excel 2003 => 11
.FilterIndex = 11

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

 

[Pierrot93]

Re : msoFileDialogSaveAs => Bloquer la croix et le bouton annuler

Re,

modifie peut être ainsi :

Dim f As Variant
Do
    f = Application.GetSaveAsFilename(fileFilter:="csv, *.csv")
Loop While f = False

 

[flint6593]

Re : msoFileDialogSaveAs => Bloquer la croix et le bouton annuler

Merci j'ai un peu modifier et ça fonctionne!!!!
Vraiment super sympa, je ne pensais pas pouvoir mettre de boucle dans la définition de ma boite de dialogue!!!

Merci!!!!!

 

[flint6593]

Re : msoFileDialogSaveAs => Bloquer la croix et le bouton annuler

Je reviens sur ce sujet car j'ai crié victoire trop vite!
En faite le test fait que je n'utilise pas la commande .show et donc que la commande .execute qui permet d'enregistrer ne se fait pas... Et donc je n'ai pas d'enregistrement...

Voilà à quoi ressemble mon programme:

With objSaveBox

.InitialFileName = "REFERENCES.csv"

'A modifier pour Excel 2003 => 11
.FilterIndex = 11

'Affiche la boîte de dialogue
While nomcsv <> nomutile
nomcsv = Application.GetSaveAsFilename("REFERENCES.csv", , FilterIndex = 11)
chemin_fiche = nomcsv
nomcsv = Right(nomcsv, 10)
Wend
.InitialFileName = "REFERENCES.csv"
'Enregistre
.Execute

End With

 

[Pierrot93]

Re : msoFileDialogSaveAs => Bloquer la croix et le bouton annuler

Re,

as tu testé le post #4 ? Après la boucle utiliser la méthode "SaveAs" pour enregistrement...

ActiveWorkbook.SaveAs f, xlCSVWindows

bon après midi
@+

 

[flint6593]

Re : msoFileDialogSaveAs => Bloquer la croix et le bouton annuler

A chaque fois tu me sauve la journée!!!!!!

Encore merci, c'est si peu en retour, mais déjà ça!!!!!!!!! 😀😀😀😀😀😀