Importer des données de plusieurs classeurs

bobjazz

XLDnaute Impliqué

• 11 Septembre 2011

• #16

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

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 11 Septembre 2011

• #17

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+

 

Pièces jointes

• Test.zip

  136.6 KB · Affichages: 41
• Test.zip

  136.6 KB · Affichages: 43
• Test.zip

  136.6 KB · Affichages: 53

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 11 Septembre 2011

• #18

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

 

Pièces jointes

• Reporting.zip

  241.5 KB · Affichages: 40
• Reporting.zip

  241.5 KB · Affichages: 41
• Reporting.zip

  241.5 KB · Affichages: 44

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 11 Septembre 2011

• #19

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

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 11 Septembre 2011

• #20

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

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 11 Septembre 2011

• #21

Re : Importer des données de plusieurs classeurs

une réinstalle de quoi ?

Merci

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 11 Septembre 2011

• #22

Re : Importer des données de plusieurs classeurs

Re

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

Merci

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 11 Septembre 2011

• #23

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

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 11 Septembre 2011

• #24

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

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 11 Septembre 2011

• #25

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

 

Pièces jointes

• Suivi commercial Région OUEST 2011.xlsm

  192.2 KB · Affichages: 57

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 11 Septembre 2011

• #26

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

Cliquez pour agrandir...

a+

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 11 Septembre 2011

• #27

Re : Importer des données de plusieurs classeurs

Re

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

Bobjazz

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 11 Septembre 2011

• #28

Re : Importer des données de plusieurs classeurs

re
de rien
Kenavo

 

Vote positif 0 Vote négatif

bobjazz

XLDnaute Impliqué

• 11 Septembre 2011

• #29

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

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 11 Septembre 2011

• #30

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+

 

Vote positif 0 Vote négatif