XL 2010 Amélioration rapide du copier coller plusieurs onglets dans un nouveau fichier et en valeur

[titi7500]

Bonjour,

Je suis en présence d'un petit problème. Je souhaiterais copier plusieurs onglet afin de les coller dans un nouveau fichier Excel mais en valeur.

Voici la macro que j'ai mais le collage se fait avec les formules mais je n'arrive pas à faire un collage en valeur.

Sub Test()

Application.ScreenUpdating = False
With ThisWorkbook
.Sheets(Array("Feuil1", "Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feuil5")).Copy
Application.DisplayAlerts = False

End With


End Sub

Pouvez vous m'aider svp à améliorer ma Macro.

Merci par avance.

Cdt.
Titi

 

[Staple1600]

Bonjour le fil, titi7500

titi7500
Ta macro ainsi modifiée devrait faire l'affaire

Sub Test_II()
Dim NBooK As Workbook, ws As Worksheet
Application.ScreenUpdating = False
With ThisWorkbook
.Sheets(Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feuil5")).Copy
Application.DisplayAlerts = False
End With
'mise en valeurs seules
Set NBooK = ActiveWorkbook
For Each ws In NBooK.Worksheets
ws.UsedRange = ws.UsedRange.Value
Next
End Sub

 

[titi7500]

Bonjour,

Merci staple1600 cela fonctionne parfaitement .

Cdt.
titi