Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copier coller sans formule que les valeurs

poups

XLDnaute Occasionnel
Bonjour,
J'ai fais le bout de code qui marche ci-dessous
HTML:
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

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

Merci d'avance
sylvain
 
G

Guest

Guest
Re : copier coller sans formule que les valeurs

Bonjour,

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

A+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…