Bonjour mes amis,
J'ai fait un code ci dessous et la dernière ligne ne marche pas ....
Pourquoi ? ou ai je fait une erreur ?
'Envoie des données de la fiche Trame SFF à la fiche trame DI
J'ai fait un code ci dessous et la dernière ligne ne marche pas ....
Pourquoi ? ou ai je fait une erreur ?
'Envoie des données de la fiche Trame SFF à la fiche trame DI
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