Macro copier coller Excel

Bonjour tout le monde :) ,
Je viens de créer mon compte ici, et je suis débutante en Vba , et j'ai besoin de votre aide si c'est possible , merci d'avance .
je veux faire un copier des enregistrements existante dans un fichier Excel ou plus et les coller dans un autre fichier Excel finale à l'aide d'une bouton qui me permet de choisir les fichiers Excel que je veux copier.:?

Bonjour Merryy,

Je pense qu'en cherchant un tout petit peu, tu vas trouver tes réponses ! Propose-nous un début de code et on t'aidera à aller plus loin :)

Ouiiiii, j'ai cherché et j'ai trouvé beaucoup de codes mais toujours avec plus de conditions , copier que la ligne 10 machin ..., et moi je veux copier et coller toutes les infos existantes dans le fichier, sinon comme j'ai déjà mentionnée je suis débutante , j'ai jamais travaillée avec VBA :roll:.

Donne-nous plus d'infos... Tu veux coller une feuille excel du fichier que tu ouvres dans ton fichier principal ? Ou toutes les feuilles ? Ou une partie d'une feuille dans une partie d'une feuille du fichier principal ?
Ou alors de prendre ces infos/feuilles des classeurs à ouvrir et de créer un nouveau classeur contenant le cumul des autres ? On ne sait rien de ton problème...

Tu souhaites que le/les fichiers à ouvrir soient recherchés via une fenêtre du style "ouvrir" ou "enregistrer sous" qui te permet de naviguer sur Windows ?

La réponse est pas compliquée, mais il nous faut plus de précisions :)

plus précisément
j'ouvre un fichier excel vide , je clique la bouton chercher ( je choisis les fichiers excel que je veux copier), je clique exécuter, les enregistrements qui étaient dans les fichiers choisis seront disponible sur ma page .
boucle: for i=0; i<3; i++ (3 le nombre des classeurs choisis)
open classeur {
copier les enregistrements;
close classeur }
coller sur le fichier exécutable
j'espère que c'est plus clair
p.s : je peux choisir les fichier par bouton ou bien je donne le chemin directement
Mercii :)

Oui c'est un peu plus clair, par contre tu n'as pas précisé si tes enregistrements correspondent à une feuille complète ou s'ils doivent être collés dans une même liste sur ton fichier final...

Par exemple :
ton nouveau fichier (vierge) aura trois feuilles vides ("Feuil1,2 et 3")... Veux tu qu'au final il en ait toujours 3 dont une est remplie par les informations en question ou qu'il y ait au total 6 feuilles : les 3 vierges et les 3 importées ?

Ce que tu as écrit n'est pas du Visual Basic mais plutôt du C ou C++.

Petites infos pour que tu voies en attendant :
Ouvrir un classeur :

Code:

---

Workbooks.Open "CHEMIN"

---

Copier / coller des plages de cellules :

Code:

---

Workbooks(1).Sheets(1).Range("A1:B5").Copy Destination:=Workbooks(2).Sheets(1).Range("A1")

---

Par exemple

Ce que l'on peut déjà résoudre pour l'instant : la boîte de dialogue pour choisir les fichiers :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Test()   With Application.FileDialog(msoFileDialogFilePicker) .InitialFileName = ThisWorkbook.Path .AllowMultiSelect = True '.Filters.Clear .Filters.Add "Classeurs Excel", "*.xls,*.xls?" .Title = "Choisissez vos fichiers à importer" .Show   For i = 1 To .SelectedItems.Count 'ici marque ton code, par exemple : MsgBox .SelectedItems(i) 'bon, toi tu veux ouvrir ces classeurs et récupérer les données 'tout se jouera ici ! Next i End With   End Sub

---

Quentin

coucou je ss bien que c'est pas du vba tkt c'était juste pour éclairer le code c'est la base quoi.
a propos de ta question : nn je veux que 3 feuilles par exemple :
excel 1 : mmm hhhh jjjj
ssss 1414 14
hyhyh 14152 0

excel 2 : yhyhy kekeke lll
alala deded 14

excel nv ( le vierge) va devenir comme suit :
mmm hhhh jjjj
ssss 1414 14
hyhyh 14152 0
yhyhy kekeke lll
alala deded 14
c
enfaite les fichier excel sont tjr les memes mais ils sont mises à jours automatiquement, donc moi je les fusionne dans un seul fichier et je l'enregistre avec la date ,

Alors il est important de spécifier où les infos s'arrêtent ! As-tu une dernière ligne connue ou facilement obtenable dans les fichiers ? Sinon pour reprendre mon exemple précédent avec la partie qui t'intéresse :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub Test()   Dim NvClasseur As Workbook Set NvClasseur = Workbooks.Add 'on ouvre un nouveau classeur qu'on appelle NvClasseur pour la macro   Dim WbTEMP As Workbook   With Application.FileDialog(msoFileDialogFilePicker) .InitialFileName = ThisWorkbook.Path .AllowMultiSelect = True .Filters.Clear .Filters.Add "Classeurs Excel", "*.xls,*.xls?" .Title = "Choisissez vos fichiers à importer" .Show   For i = 1 To .SelectedItems.Count 'ici marque ton code, par exemple : Set WbTEMP = Workbooks.Open(.SelectedItems(i)) WbTEMP.Sheets(1).Range("A1:C20").Copy Destination:=NvClasseur.Sheets(1).Range("A10") 'là où tu veux l'écrire... WbTEMP.Close SaveChanges:=False Next i End With   NvClasseur.SaveAs ["LE CHEMIN COMPLET"] NvClasseur.Close   End Sub

---

Attention, les plages "A1:C20" et "A10" ainsi que le chemin sont à voir par toi-même ou alors il nous faut plus d'infos ! Comment peut-on te proposer un code qui doit copier une zone... si tu ne nous indiques pas la zone ? :)

Essaie de nous proposer quelque chose !

Mercii beacoup Quentin77170 , c'est très bien marché .
;);)