Coller des données dans un classeur fermé

**rousskoff** · 10/02/2017, 16h24

Bonjour voici mon code qui fonctionne très bien.
mais je souhaiterais, que cette macro ce colle également dans un fichier nommé " temps de travail des équipes" dans lequel ce trouve un classeur excel "feuille source", dans la feuille "A" .
mas la je sèche.
pourriez-vous m'éclairer.
merci

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Private Sub CommandButton2_Click()
    If MsgBox("Etes-vous certain de vouloir actualiser les données de la feuille de garde ?", vbYesNo, "Demande de confirmation") = vbYes Then
    Set sh1 = Worksheets("liste de garde")
Set sh2 = Worksheets("A")
 
derLig = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1
'JOUR
sh2.Cells(derLig, 1) = sh1.Cells(1, 8)  'date
sh2.Cells(derLig, 2) = sh1.Cells(1, 4) 'date
sh2.Cells(derLig, 3) = sh1.Cells(7, 7) 'vsav1 ca
sh2.Cells(derLig, 4) = sh1.Cells(8, 7) 'vsav1 cond
sh2.Cells(derLig, 5) = sh1.Cells(9, 7) 'vsav1 equip
sh2.Cells(derLig, 6) = sh1.Cells(11, 7) 'vsav2 ca
sh2.Cells(derLig, 7) = sh1.Cells(12, 7) 'vsav2 cond
sh2.Cells(derLig, 8) = sh1.Cells(13, 7) 'vsav2 equip
sh2.Cells(derLig, 9) = sh1.Cells(15, 7) 'vsav3 ca
sh2.Cells(derLig, 10) = sh1.Cells(16, 7) 'vsav3 cond
sh2.Cells(derLig, 11) = sh1.Cells(17, 7) 'vsav3 equip
sh2.Cells(derLig, 12) = sh1.Cells(19, 7) 'vtu ca
sh2.Cells(derLig, 13) = sh1.Cells(20, 7) 'vtu cond
sh2.Cells(derLig, 14) = sh1.Cells(2, 7) 'T1
sh2.Cells(derLig, 15) = sh1.Cells(5, 3) 'S/OFFJ
sh2.Cells(derLig, 16) = sh1.Cells(7, 3) 'fpt1 ca
sh2.Cells(derLig, 17) = sh1.Cells(8, 3) 'fpt1 cond
sh2.Cells(derLig, 18) = sh1.Cells(9, 3) 'fpt1 cbat
sh2.Cells(derLig, 19) = sh1.Cells(10, 3) 'fpt1 equpbat
sh2.Cells(derLig, 20) = sh1.Cells(11, 3) 'fpt1 cbal
sh2.Cells(derLig, 21) = sh1.Cells(12, 3) 'fpt1 equipbal
sh2.Cells(derLig, 22) = sh1.Cells(14, 3) 'fpt2 ca
sh2.Cells(derLig, 23) = sh1.Cells(15, 3) 'fpt2 cond
sh2.Cells(derLig, 24) = sh1.Cells(16, 3) 'fpt2 cbat
sh2.Cells(derLig, 25) = sh1.Cells(17, 3) 'fpt2 equpbat
sh2.Cells(derLig, 26) = sh1.Cells(18, 3) 'fpt2 cbal
sh2.Cells(derLig, 27) = sh1.Cells(19, 3) 'fpt2 equipbal
sh2.Cells(derLig, 28) = sh1.Cells(21, 3) 'epa ca
sh2.Cells(derLig, 29) = sh1.Cells(22, 3) 'epa cond
'NUIT
sh2.Cells(derLig, 31) = sh1.Cells(1, 8) 'date
sh2.Cells(derLig, 32) = sh1.Cells(7, 8)  'vsav1 ca
sh2.Cells(derLig, 33) = sh1.Cells(8, 8)  'vsav1 cond
sh2.Cells(derLig, 34) = sh1.Cells(9, 8)  'vsav1 equip
sh2.Cells(derLig, 35) = sh1.Cells(11, 8) 'vsav2 ca
sh2.Cells(derLig, 36) = sh1.Cells(12, 8) 'vsav2 cond
sh2.Cells(derLig, 37) = sh1.Cells(13, 8) 'vsav2 equip
sh2.Cells(derLig, 38) = sh1.Cells(15, 8) 'vsav3 ca
sh2.Cells(derLig, 39) = sh1.Cells(16, 8) 'vsav3 cond
sh2.Cells(derLig, 40) = sh1.Cells(17, 8) 'vsav3 equip
sh2.Cells(derLig, 41) = sh1.Cells(19, 8) 'vtu ca
sh2.Cells(derLig, 42) = sh1.Cells(20, 8) 'vtu cond
sh2.Cells(derLig, 43) = sh1.Cells(2, 8) 'T1
sh2.Cells(derLig, 44) = sh1.Cells(5, 4) 'S/OFFJ
sh2.Cells(derLig, 45) = sh1.Cells(7, 4) 'fpt1 ca
sh2.Cells(derLig, 46) = sh1.Cells(8, 4) 'fpt1 cond
sh2.Cells(derLig, 47) = sh1.Cells(9, 4) 'fpt1 cbat
sh2.Cells(derLig, 48) = sh1.Cells(10, 4) 'fpt1 equpbat
sh2.Cells(derLig, 49) = sh1.Cells(11, 4) 'fpt1 cbal
sh2.Cells(derLig, 50) = sh1.Cells(12, 4) 'fpt1 equipbal
sh2.Cells(derLig, 51) = sh1.Cells(14, 4) 'fpt2 ca
sh2.Cells(derLig, 52) = sh1.Cells(15, 4) 'fpt2 cond
sh2.Cells(derLig, 53) = sh1.Cells(16, 4) 'fpt2 cbat
sh2.Cells(derLig, 54) = sh1.Cells(17, 4) 'fpt2 equpbat
sh2.Cells(derLig, 55) = sh1.Cells(18, 4) 'fpt2 cbal
sh2.Cells(derLig, 56) = sh1.Cells(19, 4) 'fpt2 equipbal
sh2.Cells(derLig, 57) = sh1.Cells(21, 4) 'epa ca
sh2.Cells(derLig, 58) = sh1.Cells(22, 4) 'epa cond
    MsgBox "Le contenu de votre feuille a été sauvegardé !"
    End If
End Sub