Problème macro compilation données

Version imprimable

Bonjour,

j'ai un problème avec la macro que j'ai créée : elle consiste à compiler les données de classeur dans un autre classeur excel.
Sachant que les données des classeurs se situent dans un même dossier :les données de classeur se situent dans la même feuille et dans les mêmes ranges.

Le problème qui se passe c'est que lorsque je lance la macro, aucune donnée n'est copiée dans le nouveau classeur (le classeur de comilation n'étant pas dans le même dossier).

Est-ce que quelqu'un pourrait m'aider à corriger ma macro, svp.

Merci.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Sub Compilation() Dim WkCompil As Workbook Dim WkFich As Workbook Set WkCompil = ThisWorkbook Range("D1").Select 'sélectionner la cellule de début du classeur de compilation de données Chemin = "C:\Documents and Settings\f.martayan\Bureau\Test" 'Je spécifie le chemin d'accès où se trouve mes fichiers fichier = Dir(Chemin & "*.xls") 'Premier fichier à ouvrir Do While fichier <> "" 'Boucle sur tous les fichiers excel du dossier Set WkFich = Workbooks.Open(Filename:=Chemin & fichier) 'Ouvrir le classeur où sont les cellules à copier WkFich.Worksheets("Feuil1").Select 'Sélectionne la feuille 1 du classeur à copier Range("A1:A8").Copy 'Copie du range WkCompil.ActiveSheet.Paste 'je sélectionne le classeur où sera la compilation de données et je colle les cellules WkFich.Activate Application.CutCopyMode = False WkFich.Close savechanges:=False WkCompil.Activesheets.Cells WkCompil.ActiveSheet.UsedRange.Rows.Count(1, 1).Select fichier = Dir 'Fichier suivant Loop End Sub

05/03/2009, 12h42
Godzestla

Bonjour,
au vu de cette ligne

Code:

WkCompil.ActiveSheet.Paste 'je sélectionne le classeur où sera la compilation de données et je colle les cellules

je crois qu'il copie bien les données mais toujours au même endroit et que donc les données de chaque classeur écrasent celles du précédent.
Tu devrais gérer le range de destination en incrémentant un compteur de 8 en 8.
09/03/2009, 12h13
pasdomidf

compilation données

j'ai essayé avec un seul fichier à compiler mais là non plus il ne copie aucune cellule donc je ne vois pas !

Bonjour,

je crois qu'il y a aussi des fautes dans ton code :
je mets en gras les corrections que je suggère, sans avoir testé .:mrgreen:
Code:

1 2 3 4 5 Chemin = "C:\Documents and Settings\f.martayan\Bureau\Test" 'Je spécifie le chemin d'accès où se trouve mes fichiers fichier = Dir(Chemin & "\*.xls", vbhidden) 'Premier fichier à ouvrir Do While fichier <> "" 'Boucle sur tous les fichiers excel du dossier Set WkFich = Workbooks.Open(Filename:=fichier) 'Ouvrir le classeur où sont les cellules à copier
je n'ai pas regardé plus loin.

Si tu as des problèmes, pense au debug.... il t'éclaire sur ce que tu as fait par rapport à ce que tu crois avoir fait. :aie:

19/03/2009, 16h10
pasdomidf

Compilation de données

Pour en revenir à mon fichier, je viens de m'y repencher (pas eu le temps avant et j'ai fait des modifs et il y a encore un seul bug à la fin)

Cela copie bien les données de mon fichier mais arrivée à la phrase suivante j'ai un message d'erreur "Erreur d'exécution '438' : propriété ou méthode non gérée par cet objet".

Code:

WkCompil.ActiveSheet.UsedRange.Rows.Count(1, 1).Select

En fait cette ligne de code me permet de ne pas écraser mes données du 1er fichier copié à partir des nouvelles données (en fait c'est ce que j'aimerai bien que cela fasse). Autrement dit que lorsqu'il copie les nouvelles données, il les place à côté des précédentes et non pas sur ces dernières).Quelq'un peut-il me renseigner ?
19/03/2009, 16h18
Godzestla
Bonjour,

dans la mesure où tu veux mettre tes données sous les précédentes à partir de la colonne A, tu peux essayer ceci :
Code:

1 2 3 4 5 dim lrow as long '.... lrow = WkCompil.ActiveSheet.UsedRange.Rows.Count Wkcompil.ActiveSheet.cells(lrow +1, 1).Select

Compilation de données fin

Voilà, j'ai finalement adapté la solution que tu m'as donnée et cela marche, voici la macro complète : mes données sont copiées donc l'une après les autres dans des colonnes qui se suivent.
Merci beaucoup, je n'y serai pas arrivé sans votre aide.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Compilation()
Dim WkCompil As Workbook
Dim WkFich As Workbook
Dim lrow As Long
Dim crow As Long
 
Set WkCompil = ThisWorkbook
Range("A1").Select 'sélectionner la cellule de début du classeur de compilation de données
chemin = "x:\MANAGEMENT DE LA QUALITE\63.00 Formation\Formation QSE\Test\" 'Je spécifie le chemin d'accès où se trouve mes fichiers
fichier = Dir(chemin & "\*.xls", vbHidden) 'Premier fichier à ouvrir
    Do While fichier <> "" 'Boucle sur tous les fichiers excel du dossier
        Set WkFich = Workbooks.Open(Filename:=chemin & fichier) 'Ouvrir le classeur où sont les cellules à copier
        WkFich.Worksheets("Feuil1").Select 'Sélectionne la feuille 1 du classeur à copier
        Range("A1:A8").Copy 'Copie du range
        WkCompil.ActiveSheet.Paste 'je sélectionne le classeur où sera la compilation de données et je colle les cellules
        WkFich.Activate
        Application.CutCopyMode = False
        WkFich.Close savechanges:=False
        lrow = WkCompil.ActiveSheet.UsedRange.Columns.Count
        WkCompil.ActiveSheet.Cells(1, lrow + 1).Select
        fichier = Dir 'Fichier suivant
        Loop
End Sub