Discussion :

[timtof2011]

bonjour à tous le monde...

je suis sur la suite de mon projet que j'avais mis à l'écart...pour des raisons de santé.

Voilà, j'ai un classeur avec plusieurs onglets et j'utilise cette fonction pour extraire l'onglet "Feuil2" composé de plusieurs formules

Code :

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

1
2
3
4
5
6
7
Sheets(2).Copy
    ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value
 
    For Each n In ActiveWorkbook.Names: n.Delete: Next
 
    ActiveWorkbook.SaveAs Filename:=cheminXls & nom, FileFormat:=xlNormal
    ActiveWorkbook.Close

mon problème est que apres extraction mes formules ne sont plus là...
j'ai cherché sur le forum mais je ne trouve pas vraiment...

Pouvez vous m'aider ? D'avance merci.

Tim

[gFZT82]

Bonjour,

Lorsque tu écris

Code :

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

ActiveSheet.UsedRange = ActiveSheet.UsedRange.Value

les formules sont remplacées par leur valeur.
Fais un test après avoir supprimé cette ligne.

Cordialement.

[timtof2011]

Merci beaucoup gFZT82...si tu savais depuis tout le temps que je cherche cette fonction...alors qu'elle était dans ma programmation sous mes yeux...

Merci encore et bon week end.