macro vba chdir

Version imprimable

macro vba chdir

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:

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

bonjour,

Ci dessous une procédure pour boucler sur les fichiers d'un répertoire

Code:

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
30
31
32
Sub ListeFichiersCSV()
 
Dim fso As Object
Dim FsoRepertoire As Object
Dim FsoFichier As Object
Dim str() As String
Dim Wrk as workbook
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set FsoRepertoire = fso.GetFolder("K:\Pole CG\Contrôle Gestion\_1. BUDGET\2011\ETABLISSEMENTS\Base")
 
 
'Boucle sur fichiers du repertoire
 
For Each FsoFichier In FsoRepertoire.Files
    'Filtre l'extension XLS
    str = Split(FsoFichier.Name, ".")
 
    If str(UBound(str)) = "xls" Then
        set Wrk = Application.Workbooks.open(ThisWorkbook.Path & "\" & FsoFichier.Name)
 
           ... Traitement
 
 
 
        Close wrk false
 
    End If
 
Next
 
End Sub

05/10/2011, 17h07
Daniel.C

Bonjour,

Qu'est-ce que tu entends par :

Citation:

elle bloque à Chdir("")

Tu as un message d'erreur ?
Essaie de mettre :

Code:

ChDrive "K"

avant Chdir
05/10/2011, 17h38
ALEX80800

@Daniel.C,

La ligne s'affiche en jaune

@jfontaine,

Désolé mais je bloque sur les traitements affichés en rouge dans ton message en #2...
05/10/2011, 17h48
Daniel.C

@ Alex80800 :
Tu es absolument sûr du chemin ?
quel est le message d'erreur ?
05/10/2011, 18h35
ALEX80800

La ligne "Set fso = CreateObject("Scripting.FileSystemObject")"
J'ai essayé cette version et la version "Scripting.FileSystemObject" remplacée par K

s'affiche en jaune

Oui je suis sur du chemin car j'ai effectué un CTRC+C de la formule cellule du fichier repris

mlerci de ton aide
05/10/2011, 18h39
Daniel.C

Mais quel est le message d'erreur ?
06/10/2011, 08h57
ALEX80800

Daniel,

J'aimerais te répondre mais qu'entends tu par message d'erreur
Si ce n'est qu'à l'exection j'ai une demande de déboguage

Désolé mais je débute en vba
06/10/2011, 09h53
Daniel.C

Généralement, tu as quelque chose comme :
"Erreur 438
Le fichier toto.xls ne peut pas être trouvé"
avec les boutons proposant le débogage ou la fin de le macro.