Importer des données de plusieurs classeurs

[bobjazz]

Bonjour le Forum,

Je voudrais importer des données de 3 classeurs, les feuilles sont identiques, dans un classeur destinataires.

Dans un premier temps, vider la feuille du destinataire et j’avoue que je ne sais pas comment faire pour que les données s'ajoutent les unes à la suite et non remplacées.

J’utilisais ce code pour importer 1 feuille, mais là je coince.
Code :
Sub test()
Dim classeurSource As Workbook, classeurDestination As Workbook
Set classeurSource = Application.Workbooks.Open("C:\source.xls", , True)
Set classeurDestination = ThisWorkbook
classeurSource.Sheets("Feuil1").Cells.Copy classeurDestination.Sheets("Feuil1").Range("A1")
classeurSource.Close False
End Sub

Merci d’avance

Bobjazz

 

[bobjazz]

Re : Importer des données de plusieurs classeurs

Je viens de le faire et j'ai le même résultat.
As-tu essayé sur mon fichier "Suivi com.xlsm" avec les reportings, chez moi bug je copie 1 seul fichier pourtant je demande les 2

Merci

 

[jpb388]

Re : Importer des données de plusieurs classeurs

re
oui et je viens de le refaire c'est OK
ci joint les fichiers en retour
tiens moi au courant
a+

 

[bobjazz]

Re : Importer des données de plusieurs classeurs

Re

Même résultat avec les originaux avec les autres ok grrrrrrrrrrrr
je te mets les originaux (2 pas 3 mais le résulta est le même)

j'essaie pourtant de comprendre

Merci

 

[jpb388]

Re : Importer des données de plusieurs classeurs

re
cela ne vient pas des fichiers ici c'est OK
quel message d'erreur te met il ?
peut être une réinstalle sera nécessaire

 

[bobjazz]

Re : Importer des données de plusieurs classeurs

Re

Je n'ai pas de message d'erreur, mais je ne copie que 31 lignes de chaque fichier et j'intègre le chiffre 61 dans la cellule A1

je ne comprend pas

Merci

 

[bobjazz]

Re : Importer des données de plusieurs classeurs

une réinstalle de quoi ?

Merci

 

[bobjazz]

Re : Importer des données de plusieurs classeurs

Re

Si cela peut d'aider, même avec 1 fichier j'importe 31 lignes

Merci

 

[jpb388]

Re : Importer des données de plusieurs classeurs

re
ben de b6 à q36 cela fait 31 lignes c'est normal
explique exactement ce que tu désires
je te le fais et je te renvoi le tout

 

[bobjazz]

Re : Importer des données de plusieurs classeurs

Re jpb388

Je pense voir trouvé ce qui ne fonctionne pas, je m"arrete à la ligne 35
classeurSource.Sheets("Feuil1").Range("b6:q36")

je ne sais pas faire, mais il faudrait une ligne qui dit que je copie de la ligne 6 à la première vide.

J'espère avoir été clair et te guider

Merci

Bobjazz

 

[bobjazz]

Re : Importer des données de plusieurs classeurs

Re

Oups on s'est croisé
Mon but est de ramené toute les lignes de chaque fichier pour faire une synthèse.
Et chaque fois le nombre de lignes est aléatoire.
J'ai construit le fichier en copier coller, pour te montrer le résultat, par rapport au dernier zip.

En tout cas merci pour ta patience

Bobjazz

 

[jpb388]

Re : Importer des données de plusieurs classeurs

re
voila

Sub MAJ()
Dim classeurSource As Workbook, classeurDestination As Workbook, Fichiers, Filtre$, i%, DerLigne As Long
Feuil3.Cells.ClearContents
Set classeurDestination = ThisWorkbook
Filtre = "Fichiers Excel 2007-2010(*.xlsx;*.xlsm),*.xlsx;*.xlsm,"
Fichiers = Application.GetOpenFilename(Filtre, 1, "Sélection des fichiers", , True)
If IsArray(Fichiers) = False Then Exit Sub
For i = LBound(Fichiers) To UBound(Fichiers)
Set classeurSource = Application.Workbooks.Open(Fichiers(i))
DerLigne = classeurSource.Sheets("Saisie CR").Range("b" & Rows.Count).End(xlUp).Row
classeurSource.Sheets("Saisie CR").Range("b6:q" & DerLigne).Copy classeurDestination.Sheets("Saisie CR").Range("b" & Rows.Count).End(xlUp).Offset(1, 0)
classeurSource.Close False
Next
End Sub

a+

 

[bobjazz]

Re : Importer des données de plusieurs classeurs

Re

En plein de mille.
Merci pour ta patience,
Bonne semaine

Bobjazz

 

[jpb388]

Re : Importer des données de plusieurs classeurs

re
de rien
Kenavo

 

[bobjazz]

Re : Importer des données de plusieurs classeurs

Re

Si tu relis ce post
Je viens de finir, cela fonctionne.
Penses tu que lors de mes imports je peux garder ma ligne de titre en L1 dans le fichier destination.

Merci vraiment

Kenavo

Bobjazz

 

[jpb388]

Re : Importer des données de plusieurs classeurs

re
oui au lieu de b6 tu met b1 et normalement cela dois faire la maille
je suis du Finistère et toi
a+