XL 2013 Copier des données dans un autre classeur

[sr94]

Bonjour

Je souhaiterais dans un classeur excel copier/coller des données vers un autre classeur.

Je souhaiterais savoir si il y a moins d'automatiser le process par macro sur un bouton :
- actualiser le classeur source
- ouvrir le classeur de données
- copier les cellules non vides (sauf la ligne d'en-tête)
- coller ces cellules dans l'autre classeur dans les colonnes E:N à partir de la ligne 5, ces données devant se copier dans la première ligne non vide, le classeur contenant déjà des données

Merci beaucoup !

 

[Lone-wolf]

Re : Copier des données dans un autre classeur

Bonjour sr94,

où est le classeur source pour faire un test ??? 😕


A+ 😎

 

[Lone-wolf]

Re : Copier des données dans un autre classeur

Re,

Test le code et dis-moi si ça joue.

Sub test()
Dim wb1 As Workbook, wb2 As Workbook
Application.ScreenUpdating = False

'LES DEUX CLASSEURS DOIVENT RESTER OUVERT.
'NOMS WB À CHANGER
Set wb1 = Workbooks("Tableau.xls") 'Classeur source
Set wb2 = Workbooks("Classeur1.xls") 'Classeur destination

'NOMS DES FEUILLES ET CELLULES À MODIFIER
wb1.Sheets("Data").Range("e2:i37" & [I65000].End(xlUp).Row - 1).SpecialCells(xlCellTypeConstants, 23).Copy _
wb2.Sheets("Feuil1").Range("E65536").End(xlUp)(2)

Application.ScreenUpdating = True
End Sub

A+ 😎

 

[sr94]

Re : Copier des données dans un autre classeur

ça marche presque, j'ai déshabillé le fichier, ci-joint un fichier test.

Les lignes se copient bien, dans les bonnes colonnes, mais elles sont en dessous de mon tableau.
J'ai finalement mis la source dans le même classeur dans une autre feuille.

Que faut-il ajouter ?

Merci