Discussion :

[comme de bien entendu]

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 :

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

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 :

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

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

[ouskel'n'or]

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

Code :

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

    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

[comme de bien entendu]

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