Discussion :

[moctarim]

Bonjour,
Je sollicite votre aide pour une macro vba. Suis novice dans ce langage de programmation.
J'ai plusieurs fichiers identiques qui se trouvent dans le dossier donnees. Ces fichiers n'ont pas le même nom.
Sur chaque fichier je souhaiterai recupèrer deux cellules différentes sur deux onglets différents
Feuil1 (A10 et J10)
Feuil 2 (B4 et B5)
et je souhaite à la fin regrouper les éléments dans un nouveau fichier qui sera crée et qui s'appellera Recap.xls et qui aura les éléments suivants

ENTETE1, ENTETE2, ENTETE3, ENTETE4
Contenu (A10) fichier 1, Contenu (J10) fichier 1, contenu (B4) fichier 1, Contenu (B5) fichier 1
Contenu (A10) fichier 2, Contenu (J10) fichier 2, contenu (B4) fichier 2, Contenu (B5) fichier 2
.
.
.
Contenu (A10) fichier n, Contenu (J10) fichier n, contenu (B4) fichier n, Contenu (B5) fichier n


Voici mon début de code

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 Transferer()
Dim dossier As Object, Fichier As Object, Chemin As String, Lg As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = True
Chemin = ThisWorkbook.Path
FName = Dir(Chemin & "\" & "*.xls")
Set dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
Lg = 1
For Each Fichier In dossier.Files
NomFichier = Fichier.Name
If Not Fichier.Name = "Recap.xls" Then
Workbooks.Open Filename:=Chemin & "/" & NomFichier
On Error Resume Next
       With Workbooks(NomFichier)
.Sheets("Feuil1").Range("A10").Copy ThisWorkbook.Sheets("Feuil1").Range("B" & Lg)
.Close
Lg = Lg + 1
End With
End If
Next
End Sub

D'avance merci pour toute aide.

[parmi]

Bonjour,

Si je comprends bien, il ne te resterait qu'à ajouter les 3 autres cellules que tu veux copier à la suite de celle-ci

Code :

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

.Sheets("Feuil1").Range("A10").Copy ThisWorkbook.Sheets("Feuil1").Range("B" & Lg)

avant de fermer ton classeur

Mais peut-être qu'il y a un autre problème (?)

[moctarim]

Le programme ne fait pas que ce que je veux, même avec une donnée comme exemple. Il manque surement quelque chose dans le code.

Je précise que tous les fichiers excel à traiter se trouvent dans un dossier Donnees qui se trouvent dans le même répertoire que le fichier comprenant la feuille excel macro. Et le nouveau fichier de synthèse sera aussi crée dans ce répertoire.
Merci beaucoup de votre aide.

[parmi]

Difficile pour moi de voir où ça ne fonctionne pas... mais le chemin ne devrait-il pas être comme ceci ?

Code :

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

Chemin = ThisWorkbook.Path & "\Donnees\"