Discussion :

[yaya_la_rafale]

Bonjour,

je souhaite dupliquer une feuille d'un classeur.
Mon code y parvient MAIS les formules sont aussi recopiées.
Je ne voudrais QUE les valeurs.

merci d'avance

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
19
 
Dim pathSourceName As String, fichierSource As String
pathSourceName = "c:\temp\"
'Nom du fichierSource à ouvrir
fichierSource = "test.xlsx" 
 
'Empêche le raffraichissement de l'écran
Application.ScreenUpdating = False
 
'Ouverture du fichierSource
Workbooks.Open pathSourceName & fichierSource
 
 
 
Worksheets("Ma feuille").Copy After:=Sheets(Worksheets.Count)
Set MySheet = ActiveSheet
With MySheet
   .Name = "ma nouvelle feuille"
End With

[joe.levrai]

je n'avais pas vu que tu avais ré-ouvert un nouveau sujet pour cette question

j'ai répondu dans ton autre sujet : http://www.developpez.net/forums/d15...e/#post8384428

[Kimy_Ire]

Par exemple, comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Sub copier_val()
Dim oWksh As Worksheet
 
Set oWksh = Worksheets.Add(After:=Worksheets(Worksheets.Count))
 
With oWksh
    .Name = "ma_nouvelle_feuille"
    Worksheets("Feuil4").UsedRange.Copy
    .Range("A1").PasteSpecial Paste:=xlPasteValues
End With
 
End Sub

EDIT : Ou comme joe.levrai a proposé !

EDIT2 : Ou peut-être encore plus propre comme cela :

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
Option Explicit
 
Sub copier_val()
Dim oWksh As Worksheet
Dim oRng As Range
 
Set oRng = Worksheets("Feuil4").UsedRange
Set oWksh = Worksheets.Add(After:=Worksheets(Worksheets.Count))
 
With oWksh
    .Name = "ma_nouvelle_feuille"
    .Range("A1").Resize(oRng.Rows.Count, oRng.Columns.Count) = oRng.Value
End With
 
End Sub