[EXCEL 2003] Tableau

[JulienB]

Bonjour le forum,

Comment récuperer les valeurs inscrites dans un tableau déployé sur X fichiers Excel et les inscrire dans un seul fichier xls. ???

J'ai besoin de votre aide.

J'ai tout mis dans le fichier exemple !

 

[JulienB]

Re : [EXCEL 2003] Tableau

pas de news ?

 

[JulienB]

Re : [EXCEL 2003] Tableau

Bonjour le forum

Personne pour m'aider dans mon problème ??

S'il vous plait !!

 

[bbb38]

Re : [EXCEL 2003] Tableau

Bonjour JulienB, le forum,
Un peu de patience, et certainement qu’une personne te viendra en aide.
Pour ma part, je vais essayer de te trouver une solution, mais je ne suis pas rapide.
Cordialement,
Bernard

 

[JulienB]

Re : [EXCEL 2003] Tableau

Bonjour Bernard;
je te remercis par avance

 

[bbb38]

Re : [EXCEL 2003] Tableau

Bonsoir Julien, le forum,
Un début de solution (à améliorer) à tester.
Pour tester, créer deux répertoires :
C:\Julien
C:\Julienrecap
Copier les 3 fichiers commençant par « Fic. », dans le répertoire C:\Julien
Copier le fichier « Recap » dans C:\Julienrecap (j'ai testé avec 5 fichiers, mais mis que 3 sur le fil)
Ouvrir le fichier « Recap » et lancer la macro en appuyant sur Ctrl+b
S’il y a des lignes vides (entre les lignes renseignées) dans les fichiers à copier, la macro devra être modifiée.
Cordialement
Bernard

 

[JulienB]

Re : [EXCEL 2003] Tableau

Bonjour Le forum, Bernard,

Merci pour le code, c'est exactement cela !

maintenant il y a un truc que je ne comprend pas dans la boucle :

Do While nf <> ""
   Workbooks.Open Filename:=nf
   Range(Range("A1"), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)).Select
   Selection.Copy
   Windows("Recap.xls").Activate
   lig = Range("A65536").End(xlUp).Row + 2
   Range("A" & lig).Activate
   ActiveSheet.Paste
   ChDir "C:\Julien\"
   Workbooks.Open Filename:=nf
   ActiveWorkbook.Close
   nf = Dir()
Loop

Et particulierement :

Range(Range("A1"), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)).Select

Tu pourrais me l'expliquer stp ?

Pour moi cela positionne le curseur en A1 et selectionne à partir de là les lignes et les colonnes avec des informations. C'est cela ?

Mais si le tableau ne pas positionné en A1 mais en A11... Il devrait faire la meme chose mais depuis A11 alors qu'en fait il fait autrement.. (difficile a expliquer)

Donc il me faudrait depuis la cellule A11 compter le nombre de ligne active (les colonnes etant fixé à 5) ...voila mais cela ne marche pas!

JulienB

 

[JulienB]

Re : [EXCEL 2003] Tableau

rebonjour,

j'ai trouvé c'est pas tip top mais voici le code definitif !

Sub Essaijulien()
' Essaijulien Macro
' Macro enregistrée le 29/10/2009 par  Bernard BAUDOIN pour JulienB
' Touche de raccourci du clavier: Ctrl+b
Dim lig As Long, cpt, cpt1, titre
i = 0
k = 0
i = Range("A65536").End(xlUp).Row()
For k = 1 To i
   Rows.Delete
Next
Columns("A:A").Select
Selection.ColumnWidth = 38
Columns("B:F").Select
Selection.ColumnWidth = 12
Range("A1").Select
ChDir "C:\Julien\"
repertoire = "C:\Julien\"
masque = repertoire & "*.xls"
nf = Dir(masque)
dernlig = 0
Do While nf <> ""
   Workbooks.Open Filename:=nf
   titre = Range("A10")
   cpt = "F" & Application.WorksheetFunction.CountA(Sheets("fic1").Range("A1:A65000")) + 10
   cpt1 = "A11"
   Range(cpt1 & ":" & cpt).Select
   Selection.Copy
   Windows("Recap.xls").Activate
   lig = Range("A65536").End(xlUp).Row + 3
   'Range("A" & lig - 1).Merge
   Range("A" & lig - 1) = titre
   Range("A" & lig).Activate
   ActiveSheet.Paste
   ChDir "C:\Julien\"
   Workbooks.Open Filename:=nf
   ActiveWorkbook.Close
   nf = Dir()
Loop
ChDir "C:\Julienrecap\"
Range("H1").Select
End Sub