[VBA-Excel] copier des lignes de données d'un fichier à un autre
Bonjour – après avoir galérer en vba ce week end je reviens vers vous...
je voudrais copier des lignes dans un fichier Excel nommé DEPART et les coller les une à la suite des autres dans un fichier nommé ARRIVER en colonne.
Les lignes ont 8 cases – j’ai fait en sorte dans le programme qu’elle se colle les une à la suite des autres.
Voir les captures d’écran pour mieux comprendre merci.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| Sub copie_DEPART_ARRIVER()
Dim j As Integer
For j = 1 To 5 ' NUM_SERIE
Windows("DEPART.xls").Activate
Range("A" &(j+3) : "H" &(j+3)).Select
Selection.Copy
Windows("ARRIVER.xls").Activate
Range("C" & 8 * (j - 1) + 2).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
Next j
End Sub |
Mais le problème est que je n’arrive pas bien à utiliser la ligne de code - Range("A" &(j+3) : "H" &(j+3)).Select (pour copier la ligne de la case A j à la case H j)– j’ai essayer plusieurs code différent rien à faire – je suis bloqué
Merci de m’aider – Ash.
