Discussion :

[id301077]

Bonjour,

Je dispose de 60 fichiers excel identiques. Chaque fichier contient 5 feuilles.




Je voudrais créer un fichier global , qui a la meme structure que les 60 autres. Ce fichier sera la somme des autres fichiers.

Comment proceder sous vba ?

En vous remerciant vivement

Merci

[QuestVba]

Bonjour,

D'abord une petite question pour être certain.

Tu veux simplement faire une somme de certaines cellules qui se trouvent toujours au même endroit ?

[electrons]

Bonjour,

je te propose la macro suivante que tu devra adapter en fonction de tes cellules à copier et de leurs emplacements.

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
22
23
24
25
26
27
28
29
Sub Macro1()
'
'
'
Dim NomFichier As String, CheminFichier As String
Dim FichierOpen As String 'Pour le chemin avec le fichier à ouvrir
 
CheminFichier = "Répertoire" 'Chemin du répertoire de tes 60 fichiers ex "c:\Excel\
 
NomFichier = Dir(CheminFichier)
 
    Do While NomFichier <> ""  ' parcours la liste de tes fichiers d'extension .xls
       If Right(NomFichier, 4) = ".xls" Then
 
           FichierOpen = CheminFichier & NomFichier
           Workbooks.Open FichierOpen 'Ouverture du fichier à lire
        'Copie dans la cellule A1 (du nouveau fichier) la cellule A1 du fichier xls additionnée du contenu
        'A adapter avec le format de ta feuille excel et à copier autant de fois pour toutes les cellules à copier
           ThisWorkbook.Sheets(1).Range("A1").Value = _
           ThisWorkbook.Sheets(1).Range("A1").Value + Workbooks(NomFichier).Sheets(1).Range("A1").Value
 
 
           Workbooks(NomFichier).Close
 
          End If
        NomFichier = Dir
    Loop
 
End Sub

Bonne journée

[id301077]

Je vous remercie pour votre réponse. Je vais tester.

Les cellules sont toujours au meme endroit

Merci

La macro ne se lance pas.

[electrons]

J'ai testé la macro chez moi et elle fonctionne bien,
il faut vérifier les niveaux de sécurité.
Le fichier qui contient la macro ne doit pas être dans le même répertoire que celui de tes 60 fichiers.
As-tu essayé en mode Debogage ?

[id301077]

Oui ca fonctionne mais :
- Les fichiers ne se fermes pas. Ils restent ouverts.

Et si possible de faire le calcul sur plusieurs cellules

Pour la plage A1: D15 par exemple .

Merci bcp pour ton help