Discussion :

[Merryy]

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.

[Quentin77170]

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

[Merryy]

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 .

[Quentin77170]

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

[Merryy]

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

[Quentin77170]

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 :

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

Workbooks.Open "CHEMIN"

Copier / coller des plages de cellules :

Code :

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

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 :

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
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

[Merryy]

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 ,

[Quentin77170]

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 :

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
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 !

[Merryy]

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