Discussion :

[ptitbow]

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 :

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
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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim DerL As Long
DerL = classeurDestination.Sheets("Sheet1").Range("A" & classeurDestination.Sheets("Sheet1").Cells.Rows.Count).End(xlUp).Row + 1
classeurDestination.Sheets("Sheet1").Range("A" & DerL & ":Z" & DerL).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=True, Transpose:=True

[ptitbow]

Je te remercie rdurupt

Bonne journée