Copier Coller entre deux fichiers Excel

Bonjour,

Ce code est censé parfaitement bien marcher pourtant rien ne ce passe entre mes deux fichier, pouvez- vous m'aider ?

Gonzalelo

Sub Copier_Coller_Data()

Dim PaintReport As Workbook
Dim PaintReportSheet1 As Worksheet

Dim FC As Workbook
Dim FCSheet1 As Worksheet

Set PaintReport = Application.Workbooks.Open("C:\Users\charl\OneDrive\Bureau\Test Code VBA CDA\Paint Report 113-114.xlsm")
Set PaintReportSheet1 = PaintReport.Worksheets(1)

Set FC = Application.Workbooks.Open("C:\Users\charl\OneDrive\Bureau\Code VBA CDA\J35 Base de données peinture LPM.xlsm")
Set FCSheet1 = FC.Worksheets(1)

Dim i As Integer

For i = 2 To 10
FCSheet1.Rows(i).Columns("M") = PaintReportSheet1.Rows(i).Columns("A")
FCSheet1.Rows(i).Columns("I") = PaintReportSheet1.Rows(i).Columns("B")
FCSheet1.Rows(i).Columns("C") = PaintReportSheet1.Rows(i).Columns("C")
FCSheet1.Rows(i).Columns("D") = PaintReportSheet1.Rows(i).Columns("G")
Next

PaintReport.Close (True)
FC.Close (True)

End Sub

Bonjour,

Désolé je crois que j'ai écrit une bêtise ...

ric

Bonjour,

C'était à cause d'un format spécial type heure d'une colonne de cellule rien à voir mais merci !

(Juste après votre réponse j'ai refais le cheminements )

Bonjour,

Excellent ...

ric