Copier/coller

[Pierre2009]

Bonjour à tous,

Avant toute chose, une bonne et heureuse année 2011🙂

J'ai le souci suivant : Je suis chargé de compiler plusieurs fichiers venant de diverses provenances. Ces fichiers sont strictement identiques (1 ligne sur 40 colonnes). Pour gagner du temps, je souhaiterai faire 2 macros. La 1ère sur le fichier reçu pour copier les données, la 2éme sur mon fichier récapitulatif pour coller les données (il faut que les données collées s'ajoutent les unes aux autres pour que sur mon fichier j'ai toutes les données reçues de tout le monde).

Inutile de dire que je débute 😀

Merci

 

[Pierre2009]

Re : Copier/coller

J'ai trouvé ces lignes de code, mais la copie se fait toujours sur la même ligne, or je souhaite que la copie se fasse sur la ligne libre (si A10 est occupée, la copie se fait sur A11, ouA12, etc...):

Sub COPIESTRUCTURE()
Dim Sortie As Workbook
Dim FeuilleOrigine As Worksheet, FeuilleDestination As Worksheet

'Référence la feuille origine des données à copier
Set FeuilleOrigine = ThisWorkbook.Sheets("feuil1")

NomFichierSortie = Application.GetOpenFilename("Fichier Excel (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm")
' On verifie que l'on a selectionné un nom de classeur
If NomFichierSortie <> False Then
' On ouvre le classeur
Set Sortie = Workbooks.Open(NomFichierSortie)

'Référence la feuille de destination des cellules copiées
Set FeuilleDestination = Sortie.Sheets("Sheet3")
' On copie les cellules de la feuille désirée vers la feuille de sortie
With FeuilleOrigine
.Range("A10:A125").Copy Destination:=FeuilleDestination.Range("A10")

End With

' On ferme le classeur
Sortie.Close
End If
End Sub


Merci

 

[job75]

Re : Copier/coller

Bonjour Pierre2009 :

Classique, si vous cherchez un peu plus :

With FeuilleOrigine
.Range("A10:A125").Copy FeuilleDestination.Range("A65536").End(xlUp)(2)
End With

A+

 

[Pierre2009]

Re : Copier/coller

GÉNIAL !

Tout fonctionne nickel.

Un grand merci à job75