Bonjour à tous,
Je vais essayer d'être synthétique.
Je consolide sur un classeur, les données de plusieurs classeurs classés par catégorie.
Les tableaux des différents classeurs sont tous identiques.
Le tableau qui consolide reprend la référence de la même cellule de chaque classeur.
Le chemin d'accés des différents classeurs est :
K:\Pole CG\Contrôle Gestion\_1. BUDGET\2011\ETABLISSEMENTS\Base
puis après Base se trouve la catégorie
J'ai voulu créer une macro mais elle bloque à Chdir("")
Voici la macro :
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 Sub Consolidation() ' Dim sFichier As String Workbooks.Add ChDir ("K:\Pole CG\Contrôle Gestion\_1. BUDGET\2011\ETABLISSEMENTS\Base\DOMICILE") sFichier = Dir("*.xls") Do Until sFichier = "1292.xls" Workbooks.Open (sFichier) ' ActiveCell.FormulaR1C1 = "=resultat!R6C1)" ' ActiveWorkbook.Close sFichier = Dir() Loop End Sub
pour info je débute en vba
Partager