Discussion :

[damienlelol]

Bonsoir à toutes et à tous,

J'aimerais, grâce à une macro vba, pouvoir sommer une colonne unique de différents fichiers excel (dont les 4 premières lettres sont identiques) du même dossier.

Exemple:
Dans le dossier C:/Excel/toto
Qui contient les fichiers: "somme1.xlsm" et "somme2.xlsm"
Calculer dans le fichier "somme.xlsm" la somme des colonnes A de "somme1.xlsm" et "somme2.xlsm".

En clair, comment demander d'aller chercher le contenu de la colonne A dans chacun des fichiers d'un dossier ayant le même préfixe (ici "somme").

Merci à vous.

[kiki29]

Salut, tu peux commencer par lister les fichiers via ceci ou plus simple.
puis utiliser : Lire et écrire dans les classeurs Excel fermés.

[tamtam64]

Voici un code mais comme tu n'as pas ete tres précis , ca correspondra probablement qu'a moitié mais ca marche.
Je t'ai fais un code qui va voir dans un fichier , et qui somme la premiere colonne de la premiere feuile des fichiers qui commence par somme par exemple .
Voila si tu veux plus de restriction , tu me dis on adaptera
Bonne chance et bonne continuation dans ton projet

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 test()
    Dim MyPath As String
    Dim MySum As Double
    Dim AllRange As Range
    Dim MyFile As File
    Dim xlsheet As Worksheet
    Dim Folder As New Scripting.FileSystemObject
    For Each MyFile In Folder.GetFolder("E:\VBAProjectCACIB\Projet3\test").Files
        If MyFile.Name Like "Somme*" Then
            i = i + 1
           Set xlsheet = Application.Workbooks.Open(MyFile.Path).Worksheets(1)
           With xlsheet
                If i = 1 Then
                    MySum = Application.WorksheetFunction.Sum(.Columns(1))
                Else:
                    MySum = MySum + Application.WorksheetFunction.Sum(.Columns(1))
                End If
           End With
        End If
    Next MyFile
End Sub

il faut rajouter la reference "Microsoft scripting runtime" , tu vas dans outils, puis references et tu la coche sinon ca ne marchera pas

[kiki29]

Salut, Early ou Late Binding. On développe en Early et déploie en Late surtout en milieu hétérogène.