Copier données feuille dans un autre classeur

Bonjour,

Je souhaite inserer (copier coller) par bouton macro et uniquement par un bouton, les données contenues dans un classeur "mono onglet" (que je nomme "FichierACopier", dans une feuille d'un fichier (que j'apelle "FichierDestinataire").

Remarque le collage doit se faire à partir de la cellulle A10 !

Cf. Code développé dans la pièce jointe s'il vous plait.

https://www.excel-pratique.com/~files/doc2/TEST1_insertion_donnees_feuille_dans_une_autre.zip

J'y suis presque j'ai juste un bug que je n'arrive pas à resoudre !!

Merci à vous mille et une fois

@+

Bonsoir,

En vitesse car fête nationale Belge oblige... essaie ce code

Sub copie()
'Macro dan pour prodexcel le 21/07/09 - XL pratique
'http://www.excel-pratique.com/forum/viewtopic.php?t=12483
Dim chemin As String
Dim wkfinal As Workbook
chemin = ThisWorkbook.Path
Workbooks.Open Filename:=chemin & ":" & "FichierACopier TEST1.xls"
Set wkfinal = ThisWorkbook
ActiveWorkbook.Sheets(1).UsedRange.Rows("2:20").Copy Destination:= _
wkfinal.Sheets(1).Range("A" & wkfinal.Sheets(1).Range("A65536").End(xlUp).Row + 1)
End Sub

Code à associer à ton bouton.

Les nouvelles données se placent en dessous des précédentes et ce à partir de la ligne 10.

Amicalement

Dan

Bonjour Nad-Dan,

Merci pour ton aide et merci au forum. Je teste et je te fais un retour dans la journée.

@+

Re à toi,

Dans la pièce jointe voilà les modifs avec mon problème que j'essai de résoudre !!

En fait, excel me copie toujours les données du fichier ouvert (celui où j'execute la macro) et je n'arrive pas à lui dire de copier les données du fichier "fichier à copier".

voir les pièce jointe s'il te plait Nad.

https://www.excel-pratique.com/~files/doc2/Test_2_Copie_du_contenu_d_une_feuille_dans_une_autre.zip

Merci beaucoup de ton aide Nad.

@+

Re-Bonjour,

Est ce que tu as besoin de plus de details Nad?

Re,

Déso c'est pas Nad mais Dan

Pourquoi ne pas utiliser le code que je t'ai donné ?

Dan

Bonjour Dan,

j'ai exactement le même besoin et je me demandais où dois-je copier ce code?

Merci!

Salut Madma,

Regardes dans mon fichier tuto que j'ai envoyé un peu avant (en haut). Cas sur les macro et affiche le module1 (clique deux fois).

@+

re,

Madma, fais ceci pour placer lle code

• ALT + F11 pour aller l'éditeur VBA (ALT + F11
• choisis INSERTION / MODULE.
• A droite place le code
• pour l'exécuter, OUTILS / MACROS / MACROS puis sélectionne la macro en question et cliquer sur EXECUTER (tu peux aussi associer un bouton à cette macro)

Amicalement

Dan

Re,

à vous, oui effectivement Nad toujours plus rapide que les autres j'ai été entrain de rediger ça dans un fichier à madma oups !!

@+

re,

Lol, j'ai beau te l'écrire (ici ou en MP) tu y tiens à m'appeller Nad !!!

essaie ce code :

Sub copie()
'Macro dan pour prodexcel le 21/07/09 - XL pratique
'http://www.excel-pratique.com/forum/viewtopic.php?t=12483
Dim monfichier As String
Dim wkfinal As Workbook
mavariable = Application.GetOpenFilename()
On Error GoTo fin
Workbooks.Open mavariable
Set wkfinal = ThisWorkbook
ActiveWorkbook.Sheets(1).UsedRange.Rows("2:20").Copy Destination:= _
wkfinal.Sheets(1).Range("A" & wkfinal.Sheets(1).Range("A65536").End(xlUp).Row + 1)
Exit Sub
fin:
MsgBox "vous avez effectué une mauvaise opération"
End Sub

Amicalement

DAN (et pas NAD)

Lol dslé DAN

je teste et je te dis quoi

salut DAN

Re-Bonsoir DAN,

Dis moi s'il te plait, comment faire pour coller à partir de la ligne A10?

remarque: ce qui se passe dans la macro actuelle, c'est qu'elle copie à partir de la première cellule vide (c'est nikel) ! sauf, que moi par curiosité, j'aimerai savoir comment on peut rendre la copier à partir d'une cellule précise (et fixe) le collage ??

Merci à toi

NIKEL j'ai fini par trouvé ==> problème resolu grace à DAN & NAD

pour le dernier post: j'ai juste enlevé le ("2:20") pour utiliser que les cellulles remplit

caio @+