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

titi7500

XLDnaute Junior
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

XLDnaute Barbatruc
Bonjour le fil, titi7500

titi7500
Ta macro ainsi modifiée devrait faire l'affaire
VB:
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas