Discussion :

[rossemma]

bonjour,

Je souhaiterais copier des données de plusieurs classeurs (toujours cellule A2:C150) vers un autre classeur mais à la suite les uns des autres.
J'ai trouvé un bout de code que j'ai un peu adapté :

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
Private Sub DL_M02_Click()
 
    Sheets("MOIS-MAAND").Range("J2:L300").ClearContents
    Workbooks.Open Filename:= _
        "\\spvfilebru020.intra.just.fgov.be\Services\ACA\Budget\Dir-Budget\Cel-Bud\#Tabl_MonitoringPersonnel-Tab_MonitoringPersoneel\#DATA_2017\extract_SAP\Janvier_CD.XLSX"
    Range("A2:C200").Select
    Selection.Copy
        'faire attention au nom du fichier xlsm
    Windows("Monitoring-Pers_2017 - BETA_V2-1.xlsm").Activate
    Sheets("MOIS-MAAND").Activate
    Range("J2").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Janvier_CD.XLSX").Close
    MsgBox ("Données exportées")
    List_M.Show 0
End Sub

Cela fonctionne mais je voudrais ajouter les autres classeurs à la suite et faire en sorte que le système sélectionne la première cellule vide avant de coller.

Merci pour votre aide.

[Marc-L]

Bonjour !

conformément aux règles de ce forum ‼


Sinon voir dans le bon forum et où il y a le plus de passage …

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[riaolle]

Si tu as une colonne qui est remplie à chaque ligne, tu peux utiliser le bout de code suivant:

Code :

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

1
2
3
4
 
Dim row_n as integer
row_n = Range("A1").End(xlDown).Row   'permet de trouver la première ligne pour laquelle la colonne A est vide
Range("A" & row_n).Select   'puis tu colles

Je vois que ceci est ton premier message sur le forum. Petit conseil quand tu tapes du code : utilise les balises CODE (il faut appuyer sur le # dans la barre de mise en forme quand tu écris ton mesage). Ton message sera plus facile à lire.

[rossemma]

Je pense que je me suis mal exprimé.
Voici ce que je cherche à effectuer :

J'ai 4 classeurs "source" avec des données se trouvant de A2 à C150

Classeur_1
Classeur_2
Classeur_3
Classeur_4

J'ai un classeur_5 où je désire copier ces données dans les cellule débutant en J2

Déroulement : copy/paste données classeur_1, check 1ère cellule vide en colonne J du classeur_5, copy/paste données classeur_2, check.... etc

Les classeurs 1 à 4 se trouvant dans le même répertoire, y a t il moyen d'indiquer à excel que celui-ci est une constante.

Merci pour votre aide.