Discussion :

[funkykid]

Bonjour à tous,

Je veux exporter deux feuilles vers un nouveau fichier, et puis l'enregistrer sous un nom prédéfini dans un chemin donné par l'user. Tout est bon, mais je doute s'il existe une manière qui me permet de parcourir un répertoire pour enregistrer le nouveau fichier dedans avec une bouton, comme on peut le faire pour ouvrir un fichier. (Actuellement, j'ai mis une zone de texte pour saisir le chemin, mais c'est pas très belle.)

Merci d'avance.

[Godzestla]

Salut,

j'ai trouvé ceci dans l'aide de VBA avec SAVEAS

Example
This example creates a new workbook, prompts the user for a file name, and then saves the workbook.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set NewBook = Workbooks.Add
Do
    fName = Application.GetSaveAsFilename
Loop Until fName <> False
NewBook.SaveAs Filename:=fName

[funkykid]

Merci, Godzestla

C'est une bonne solution pour le problème d'enregistrement, mais pas pour le mien. Mon idée est que les noms de plusieurs fichiers sont déjà définis. Par ex, Plaque1_22_05_2008.xls, Plaque2_22_05_2008.xls, Plaque3_22_05_2008.xls, Plaque4_22_05_2008.xls......Et je veux choisir un répartoire pour les sauvegarder. La meilleure c'est d'avoir une bouton. Quand je clique sur celle-là, il apparait une liste des chemins possible dans les disques durs et je peux choisir dedans. Mais je sais pas si ça peut être réalisé.

[Godzestla]

je pense que cela marche aussi pour toi.

Regarde ce que dit l'aide de getSaveasFilename

GetSaveAsFilename Method
See AlsoApplies ToExampleSpecificsDisplays the standard Save As dialog box and gets a file name from the user without actually saving any files.

expression.GetSaveAsFilename(InitialFilename, FileFilter, FilterIndex, Title, ButtonText)
expression Required. An expression that returns an Application object.

InitialFilename Optional Variant. Specifies the suggested file name. If this argument is omitted, Microsoft Excel uses the active workbook's name.

FileFilter Optional Variant. A string specifying file filtering criteria.

This string consists of pairs of file filter strings followed by the MS-DOS wildcard file filter specification, with each part and each pair separated by commas. Each separate pair is listed in the Files of type drop-down list box. For example, the following string specifies two file filters, text and addin: "Text Files (*.txt), *.txt, Add-In Files (*.xla), *.xla".

To use multiple MS-DOS wildcard expressions for a single file filter type, separate the wildcard expressions with semicolons; for example, "Visual Basic Files (*.bas; *.txt),*.bas;*.txt".

If omitted, this argument defaults to "All Files (*.*),*.*".

FilterIndex Optional Variant. Specifies the index number of the default file filtering criteria, from 1 to the number of filters specified in FileFilter. If this argument is omitted or greater than the number of filters present, the first file filter is used.

Title Optional Variant. Specifies the title of the dialog box. If this argument is omitted, the default title is used.

ButtonText Optional Variant. Macintosh only.

Remarks
This method returns the selected file name or the name entered by the user. The returned name may include a path specification. Returns False if the user cancels the dialog box.

This method may change the current drive or folder.

Example
This example displays the Save As dialog box, with the file filter set to text files. If the user chooses a file name, the example displays that file name in a message box.

fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Text Files (*.txt), *.txt")
If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName
End If



Si tu change ton code en quelqeuchose comme ceci, cela devrait marcher :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Set NewBook = Workbooks.Add
Do
    fName = Application.GetSaveAsFilename("tonnomdefichierestici")
Loop Until fName <> False
NewBook.SaveAs Filename:=fName

[funkykid]

Tu as raison, Godzestla, cette manière me va bien.
Merci à toi