Bonjour,
Lorsque je clique sur un bouton de ma feuille de calcul, l'utilisateur est dirigé vers un répertoire dans lequel il pourra choisir un sous répertoire pour y sauvegarder sa feuille.
Ce que je souhaite réaliser, c'est que le nom du fichier soit directement inscrit dans la zone "Nom du fichier" de la boîte de dialogue.
Le nom du fichier doit être constitué des infos des cellules D17 et N15 de la feuille active.
Si je ne suis pas assez clair dites le moi.
Ci-joint mon début de code.
Merci par avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Private Sub Sauv1_Click()
Cells.Select
    Selection.Copy
        Workbooks.Add
        ActiveSheet.Paste
    Application.Dialogs(xlDialogSaveAs).Show ("S:\AGENTS\BON DE COMMANDE\BC 2010")
        ActiveSheet.PageSetup.PrintArea = "$A$1:$N$72"
        Application.ExecuteExcel4Macro "page.setup(,,0.00,0.00,0.00,false,false,1,1,1,,100,,1,,0.00,0.00,,)"
ActiveSheet.PageSetup.PrintArea = "$A$1:$N$72"