Bonjour,
j'ai une fonction (voir macro ci-dessous) qui copie et colle les valeurs dans un autre classeur.
Cependant, je vaudrai savoir comment copier d'un classeur A et coller dans un classeur B en concevant le même format de fichier A i.e la même en mise des cellules (couleur...) du fichier A sur le fichier B
Cordialement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36 Sub COPIEBASEVG(chemin, feuille) Dim Wbk As Workbook Dim Rep As String Dim Plage As Range Dim tbl() As Variant Dim i As Integer, j As Integer Dim srange As String Set Wbk = Workbooks.Open(chemin) With ThisWorkbook.Worksheets("service") Set Plage = .Range("A1:DV" & .Range("A65536").End(xlUp).Row) End With tbl = Plage.Value icase = UBound(tbl, 1) With Wbk.Worksheets(feuille) Set Plage = .Range("A8:DV" & .Range("A65536").End(xlUp).Row) End With tbl = Plage.Value jcase = UBound(tbl, 1) kcase = UBound(tbl, 2) For i = 1 To jcase For j = 1 To kcase ThisWorkbook.Worksheets("service").Cells(i + icase + 2, j).Value = Wbk.Worksheets(feuille).Cells(i + 7, j).Value Next j Next i Wbk.Close False Set Wbk = Nothing End Sub
Partager