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

[electrons]

Tu ne peux pas faire une opération sur une plage de cellules, il faut ajouter une boucle qui incrémente un compteur et qui te déplace dans chaque cellules.

[id301077]

Merci pour votre réponse.

Pourriez vous me dire comment faire pour fermer les fichiers et eviter la boite de dialogue excel qui me demande si j'enrgistre .

Merci encore

[AlainTech]

Bonjour,

Il y a 2 possibilités dans le code, soit enregistrer le classeur, soit dire que le classeur a déjà été sauvé par un

Code :

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

Workbooks(NomFichier).Saved = True

avant le

Code :

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

Workbooks(NomFichier).Close

[Marc-L]

Bonjour id301077,

ligne n°23 à modifier ainsi : Workbooks(NomFichier).Close False …


__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[flynt77]

Bonjour,

je déterre ce sujet car je trouve cette macro parfaite et répond exactement à mon besoin. Mais celle ci ne veut pas s'activer et je n'ai aucun message d'erreur quand je la lance. Comme si rien n'existait...

Avec pas à pas détaillé je ne vais pas plus loin que la première ligne "Sub Macro1()"

Pouvez vous m'éclairer svp

[chris1800]

Bonjour,

je déterre ce sujet car je trouve cette macro parfaite et répond exactement à mon besoin. Mais celle ci ne veut pas s'activer et je n'ai aucun message d'erreur quand je la lance. Comme si rien n'existait...

Avec pas à pas détaillé je ne vais pas plus loin que la première ligne "Sub Macro1()"

Pouvez vous m'éclairer svp

J'ai le même problème, comment faire ???