coller a la suite d'autre ligne

[noon]

bonjour a toutes et tous

apres recherche sur le forum j'arrive pas a mettre en place mon petit problème qui suis

je souhaite copier les lignes d'un classeur "2" (et le nombre de ligne varie)

le coller dans le classeur "1"

ensuite copier les lignes d'un classeur "3" (le nombre de lignes varie aussi)

et le coller à la suite des lignes que je viens de coller dans le classeur "1"

et je ne peux même pas vous donner l'exemple
car je n'arrive plus a avoir les macros sur mon excel chez moi grrr mais ça c'est une autre histoire 🙂

 

[JCGL]

Re : coller a la suite d'autre ligne

Bonjour à tous,

Si tu n'as plus accès à VBE, je ne vois pas solution.

A + à tous

 

[noon]

Re : coller a la suite d'autre ligne

chez moi je n'ai plus acces mais c'est pour le boulot et la bas ça marche et chez moi je vais bien resoudre le probleme

 

[JCGL]

Re : coller a la suite d'autre ligne

Bonjour à tous,

Un essai avec :

Option Explicit


Sub Archive()
    Dim Chemin As String, S1 As String, S2 As String
    S1 = "Source1.xls"
    S2 = "Source2.xls"
    
    Application.ScreenUpdating = 0


    Workbooks.Open Filename:=Chemin & S1
    Range("A2").CurrentRegion.Copy
    Windows("Cible.xls").Activate
    Feuil1.Range("A" & Feuil1.Range("A65536").End(xlUp).Row + 1).Select
    ActiveSheet.Paste


    Workbooks.Open Filename:=Chemin & S2
    Range("A2").CurrentRegion.Copy
    Windows("Cible.xls").Activate
    Feuil1.Range("A" & Feuil1.Range("A65536").End(xlUp).Row + 1).Select
    ActiveSheet.Paste


    Application.DisplayAlerts = 0
    Workbooks(S1).Close
    Workbooks(S2).Close
    Application.DisplayAlerts = 1


    Columns("A:J").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
    Range("A2:J3").EntireRow.Delete
    Range("A1").Select
    Application.ScreenUpdating = 1


End Sub

Les trois fichiers dans le même répertoire

A + à tous

 

[varchamb]

Re : coller a la suite d'autre ligne

Bonjour,

regarde ceci :

https://www.excel-downloads.com/thr...s-et-les-compiler-dans-une-seule-feui.195874/

Je pense que cela répond à ton problème.

cdlt,

 

[noon]

Re : coller a la suite d'autre ligne

ok merci je prends tout je test ça au boulot (car j'ai pas reussi a refaire marcher les macro sur mon excel)
et je vous dis ça meci
en tout cas merci de vos aides

 

[noon]

Re : coller a la suite d'autre ligne

merci JCGL ça marche très bien j'ai adapté ça et c'est vraiment super
merci aussi varchamb de ton aide le fil est très intéressant même si certaine vba sont trop compliqué pour moi 😉