XL 2010 Consolidation de fichiers

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fattah_5791

XLDnaute Occasionnel
Bonjour,

merci encore à vous à ce forum où je peux trouver tt le temps des solutions à mes trucs. ci joint un code que j ai eu à partir de ce forum. je veux spécifier (pointer) une feuille source (sheet) bien précise du classeur source. mon cas, la feuille source (sheet) est nommée: INTRVL


VB:
Sub Consolider_()
Dim t#, chemin$, fichier$, nomfeuil$, nfich%, f$, g$, wb As Workbook
t = Timer

chemin = ThisWorkbook.Path & "\"  'dossier à adapter
fichier = Dir(chemin & "*.xls*") '1er fichier du dossier
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
nomfeuil = "Feuil3" 'nom à adapter

ThisWorkbook.Unprotect "0000"
ActiveSheet.Unprotect "0000"
'---formule concaténée---

While fichier <> ""
    If fichier <> ThisWorkbook.Name Then
        nfich = nfich + 1
 
       
        f = f & IIf(f = "", "='", "+'") & chemin & "[" & fichier & "]" & nomfeuil & "'!C11"
        g = g & IIf(g = "", "='", "+'") & chemin & "[" & fichier & "]" & nomfeuil & "'!E18"
    End If
    fichier = Dir 'fichier suivant
Wend

'--remplissage du tableau---
With [C11:D14] 'plage à adapter
    .Formula = f
    .Value = .Value 'supprime les formules
End With
With [E18:L57] 'plage à adapter
    .Formula = g
    .Value = .Value 'supprime les formules
End With
ActiveSheet.Protect "0000"
ThisWorkbook.Protect "0000"

MsgBox nfich & " fichiers consolidés en " & Format(Timer - t, "0.00 \s")
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub


Merci infiniment à vous
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
580
Réponses
5
Affichages
562
Réponses
7
Affichages
620
Réponses
33
Affichages
3 K
Retour