Copier coller que les valeurs et non la formule
Bonjour,
J'ai le code ci dessous et lors du copier coller j'aimerai coller que les valeurs et non la formule j'ai cherché sur des forum existant ou c'est écrit d'utiliser (paste special et pas:=XlPasteValues) mais ceci ne fonctionne pas pour mon code... Avez vous une solution pour moi s'il vous plait ?
'programme permettant d'enregistrer les données dans un autre fichier dans résultats
Dim WBSource As Workbook, WBDest As Workbook
Dim i As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
Workbooks.Open ("\\STAFIC\Partage\5S\Résultats 5S\toutes lignes par équipe.xlsm")
Application.EnableEvents = True
Set WBSource = Workbooks("resultats extrusion L122.xlsm")
Set WBDest = Workbooks("toutes lignes par équipe.xlsm")
WBSource.Worksheets(1).Range("A4:U4").Copy _
Destination:=WBDest.Worksheets(2).Range("C4:W4") '.PasteSpecial_
'Paste:=xlPasteValues
'Operation:=xlPasteSpecialOperationAdd
Application.CutCopyMode = False
WBDest.Save
WBDest.Close
Application.ScreenUpdating = True
End Sub
Bonjour,
une solution possible :
remplacer
WBSource.Worksheets(1).Range("A4:U4").Copy _
Destination:=WBDest.Worksheets(2).Range("C4:W4") '.PasteSpecial_
'Paste:=xlPasteValuesPar
WBDest.Worksheets(2).Range("C4:W4").Value = WBSource.Worksheets(1).Range("A4:U4").Value