[VBA Excel] sauvegarde avec le contenu de la formule

Bonjour,
Je dispose d'une macro de sauvegarde de mon texte (cf premier code), mais je voudrais que les formules dans le texte soit copié.
VBA propose la solution (deuxieme code) mais je ne parviens pas à l'intégrer.
Merci de votre aide

Code:

---

1 2 3 4 5 6 7 8

Set wk = Workbooks.Add 'creation d'un nouveau classeur ThisWorkbook.Worksheets("Application").Range("F3:F30").Copy wk.Sheets(1).Range("A1") NomDuFichier = InputBox("Donnez le nom du fichier de Sauvegarde") wk.SaveAs Filename:= _ "M:\Quartz\Service Client\RDG LYON\GUILLAUME\" & NomDuFichier, FileFormat:= _ xlTextPrinter, CreateBackup:=False wk.Close False 'sortie sans sauver

---

Code:

---

1 2	Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False

---

Pour avoir les formules affichées à la place des valeurs, tu peux faire ça :

Code:

---

ActiveWindow.DisplayFormulas = True

---

Ceci dit, tu copieras bien les formules mais lors du collage sur un autre classeur (?) j'ai bien peur que le pb reste le même, faudra de nouveau exécuter la ligne de code précédente.
Tu dis

Merci bien
Ca a le mérite d'être court et de marcher tout de suite.