Discussion :

[timtof2011]

bonjour et merci de m'avoir accepté sur votre forum...

Voilà ma question, si vous pouvez m'aider.

J'aurai aimé dans un classeur facture1.xls, copier une cellule a1 par exemple et la coller dans un classeur archive.xls tout en restant dans sur mon classeur facture.

Ensuite, j'aurai aimé refaire la même chose que dans le classeur facture2.xls toujours copier la cellule a1 par exemple et la coller dans mon classeur archive.xls mais que cette cellule vienne se mettre en dessous de a1 donc en a2 et ainsi de suite…

J’espère ne pas être trop exigent et merci d'avance.

bien à vous Timtof

[lelensois16]

Bonjour,

Tout ceci est possible via Automation : tutorial

[jfontaine]

Bonjour,

Une solution en utilisant les variables objets

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
Sub Archive()
 
Dim wrk As Workbook
Dim Ligne As Long
 
Set wrk = Application.Workbooks.Open("C:\Archive.xls")
 
Ligne = 1
 
'Trouve la prochaine ligne vide
Do While wrk.Sheets("Feuil1").Range("A" & Ligne).Value <> ""
    Ligne = Ligne + 1
Loop
 
wrk.Sheets("Feuil1").Range("A" & Ligne).Value = ThisWorkbook.Sheets("Feuil1").Range("A1").Value
 
wrk.Save
wrk.Close False
Set wrk = Nothing
 
End Sub

Cette procédure sera à placer dans chaque classeur facture.

[timtof2011]

Encore merci pour votre réponse...
bien à vous.

Tim