XL 2016 copier coller à la suite

MASSJIPE

XLDnaute Impliqué
Bonjour le forum
Voila ma demande
J'ai deux classeurs T 10 et TEST je voudrai copier de A2 à C dernière ligne (ligne indéfinie ) et coller dans le classeur TEST en C2 à E 2
Le lendemain je refait la même manip de copier le T 10 mais cette fois je colle à la suite dans le classeur TEST
Merci Avance
 

Pièces jointes

  • T 10.xlsx
    8.7 KB · Affichages: 5
  • test.xlsm
    8.8 KB · Affichages: 5

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour Massjipe, bonjour le forum,

Essaie ce code à placer dans le classeur test.xlsm :

VB:
Sub Macro1()
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim CA As String 'déclare la variable CA (Chemin d'Accès)
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim PL As Range 'déclare la variable PL (PLage)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)

Set CD = ThisWorkbook 'définit le classeur de destination CD
Set OD = CD.Worksheets("Feuil1") 'définit l'onglet de destination OD
CA = CD.Path 'définit le chemin d'accès CA
On Error Resume Next 'gestion des erreurs (en cas d'erreur, passe à la ligne suivante)
Set CS = Workbooks("T 10.xlsx") 'définit le classeur source CS (génère une erreur si ce classeur n'est pas ouvert)
If Err <> 0 Then 'condition : si une erreur a été générée
  Err.Clear 'supprime l'erreur
  Set CS = workboohs.Open(CA & "\T 10.xlsx") 'définit le classeur source en l'ouvrant
End If 'fin de la condition
On Error GoTo 0 'annule la gestion des erreurs
Set OS = CS.Worksheets("Feuil1") 'définit l'onglet source OS
Set PL = OS.Range("A1").CurrentRegion 'définit la plage PL
Set PL = PL.Offset(1, 0).Resize(PL.Rows.Count - 1, PL.Columns.Count) 'redéfinit la plage PL sans la première ligne
Set DEST = OD.Cells(Application.Rows.Count, "C").End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST
PL.Copy DEST 'copie la plage PL et la colle dans DEST
End Sub
 

MASSJIPE

XLDnaute Impliqué
Bonjour Robert
J'ai fait le test c'est ok
si j'ai compris pas besoin de chemin il faut que les classeurs soient ouverts, la plage à copier du T 10 ce fait tout seule même si on ajout des colonnes supplémentaire
Ben sais nickel
une bonne fin d'après midi
 

Discussions similaires

Réponses
56
Affichages
906

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 837
dernier inscrit
Ugo