Macro Enregistrer Sous - Emplacement différent

Bonjour à tous,

je cherche à faire une macro, qui permette avant d'enregistrer un fichier, de copier/coller des valeurs, pour supprimer des formules existant dans mon fichier. (jusque là tout va bien !, cf mon début de macro ci-dessous).

J'aimerai ensuite que la macro renomme automatiquement à l'enregistrement le fichier, avec le nom du collaborateur (cellule D26) et le mois du fichier (cellule D23), du style : Fichier_"D26"_"D23". Par contre, il faudrait que la macro s'arrête à "enregistrer sous", afin que je puisse choisir l'emplacement où enregistrer le fichier, puisque cet emplacement changera tous les mois.

Merci d'avance

Tyfenn

Sub Enregistrer()

'

' Enregsitrer Macro

'

'

Cells.Select

Range("D23").Activate

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Bonjour,

Se serait plus simple avec une PJ en exemple

En fait, je cherche juste à ouvrir la boite de dialogue "Enregistrer_sous", après mon copier/coller. Après, le renommage du fichier, c'est du détail =)

Re,

A voir avec

Application.Dialogs(xlDialogSaveAs).show

J'ai ca, le nommage ne se fait pas tout seul, mais le principal est bon ! Merci

Sub Sur()

'Etes-vous sûr d'avoir terminer votre Entretien ?

If MsgBox("Etes-vous sûr d'avoir terminer votre entretien ?", vbYesNo, "Enregistrement du dossier") = vbYes Then

'Copier-coller des valeurs

ActiveWindow.SmallScroll Down:=-15

Cells.Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

'Enregistrer-Sous

Dim Quoi As String

Quoi = Application.Dialogs(xlDialogSaveAs).Show

End If

End Sub