Ouverture fichiers préfixe identique

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.

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

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:

---

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

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