copier coller sans formule que les valeurs

[poups]

Bonjour,
J'ai fais le bout de code qui marche ci-dessous

Sub transfert()

Dim C_Source As Workbook
Dim C_Destination As Workbook
Dim User As String
Dim Chemin As String
 
User = Application.UserName
Chemin = "C:\Users\" & User & "\Desktop\"

Set C_Source = Workbooks("Trame SFF.xlsm")
Workbooks.Open ("C:\users\" & User & "\Documents\ModeleSFF\Trame_DI-MES.xlsm") 
Set C_Destination = Workbooks("Trame_DI-MES.xlsm")

C_Source.Worksheets("Feuil1").Range("F10").Copy C_Destination.Worksheets("Feuil1").Range("F10")
 
 
End Sub

Mais il fait copier / coller avec les formules, lien avec les autres fichiers etc ...
Moi je ne veux que les valeurs ...

J'ai bien trouver un code mais je ne sais pas comment l'intégrer

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Merci d'avance
sylvain

 

[Guest]

Re : copier coller sans formule que les valeurs

Bonjour,

C_Destination.Worksheets("Feuil1").Range("F10").value = C_Source.Worksheets("Feuil1").Range("F10").Value

A+

 

[poups]

Re : copier coller sans formule que les valeurs

super cela marche !
merci beaucoup !!!!!!
sylvain