Discussion :

[Neptune64]

Bonjour,


Arès avoir créer un nouveau classeur via une macro dans un autre classeur, je voudrais sauvegarder ce classeur en le nommant selon une cellule du document dans un répertoire que je puisse choisir, mais je ne sais pas comment faire.

Pouvez-vous m'aider f?

Merci

[Didier Gonard]

Bonjour,

vois ceci à adapter..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub SauveSous()
   'affiche la boîte de dialogue Enregistrer sous.
Dim dlgSaveAs As FileDialog
Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)
'propose un Rep par défaut...
dlgSaveAs.InitialFileName = "Chemin ou et nom par défaut de base"
If dlgSaveAs.Show = -1 Then '  Lance la boîte et si valeur retournée = -1 c'est qu'un bouton action a été pressé,
                            '  sinon retourne 0 = annuler ou croix rouge.
    dlgSaveAs.Execute
Else
    MsgBox " cette annulation interrompt le processus, redémarrer la macro si besoin"
    End  ' du coup sort complètement da la procédure car abandon, end casse la référence à dlgSaveAs aussi.
End If
Set dlgSaveAs = Nothing
End Sub

cordialement,

Didier