bonjour,

voilà, je récupère des cellules d'un fichier pour les coller dans un autre mais je voudrais récupérer le format, la couleur, les bordures de la cellule, auriez vous une solution

d'avance merci !

code partiel

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
e = 3
Do While e <> 13
 
On Error Resume Next
If CDate(Workbooks(g).Worksheets("Feuil1").Cells(C, d)) = CDate(Workbooks(nom).Worksheets("fc 2007").Cells(e, f)) Then
Workbooks(g).Worksheets("Feuil1").Cells(C + 3, d) = (Workbooks(nom).Worksheets("fc 2007").Cells(e, f + 1))
On Error GoTo 0
End If
e = e + 2
d = d + 2
Loop