Export données Excel sans écraser l'existant
Bonjour,
Je débute un peu en VBA et j'aimerais faire appel à votre aide concernant une petite manipulation sous Excel.
J'exporte des données d'un fichier Excel à un autre. Cela fonctionne correctement.
Néanmoins, je vais être amené à faire la manip' régulièrement et lorsque je relance le procédure une seconde fois, les données s'exportent mais remplacent les données existantes.
J'aimerais ajouter tester et copier les nouvelles données dans une nouvelle ligne (L+1) si la ligne précédente n'est pas vide.
Voici mon code d'export :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Sub test()
Dim classeurSource As Workbook, classeurDestination As Workbook
'définir le classeur destination
Set classeurDestination = ThisWorkbook
If Not Application.Dialogs(xlDialogOpen).Show Then Exit Sub
Set classeurSource = ActiveWorkbook
'copier les données de la "Feuil1" du classeur source vers la "Feuil1" du classeur destination
classeurSource.Sheets("Sheet1").Range("D5:D20").Cells.Copy
classeurDestination.Sheets("Sheet1").Range("A1:Z1").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=True, Transpose:=True
'fermer le classeur source
classeurSource.Close False
End Sub |
Je vous remercie d'avance
