Discussion :

[pasdomidf]

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 :

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

[Godzestla]

Bonjour,
au vu de cette ligne

Code :

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

        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.

[pasdomidf]

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

[Godzestla]

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

Code :

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

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.

[pasdomidf]

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 :

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

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 ?

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

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

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