Discussion :

[TNC]

tiens tu pourrai essayer ainsi : copie de la feuille compléte dans nouveau classeur puis suppression des formules :

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
16
17
18
 
Function SaveClasseur()
  Dim ClasseurSource As Workbook
  Dim ClasseurCible As Workbook
 
  Set ClasseurSource = ActiveWorkbook
 
  ClasseurSource.Sheets(3).Copy 'Copie la feuille compléte..
  Set ClasseurCible = ActiveWorkbook 'Au cas ou .. pour garder un accés au nouveau classeur
 
  'Suppression des formules
  Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
      False, Transpose:=False
    Application.CutCopyMode = False
    Cells(1, 1).Select
End Function

Bonjour BBIL, Bonjour à tous,

Je viens de reprendre le code que je trouve très utile.
Cependant lorsque l'on a plusieurs feuilles à copier dans un nouveau et même classeur comment fait-on ?
J'ai copié plusieurs fois la ligne suivante en modifiant le nombre entre paranthère. Donc en autant de fois que j'ai de feuilles à copier.
ClasseurSource.Sheets(3).Copy 'Copie la feuille compléte

Cependant il m'a copié chaque feuille dans un classeur différent.
Comment faire pour que toutes les feuilles copiées aillent dans le même classeur ?
Merci pour votre aide,
Cordialement.

Thierry