[XL-2007] macro vba chdir

[ALEX80800]

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

[jfontaine]

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

[Daniel.C]

Bonjour,

Qu'est-ce que tu entends par :

elle bloque à Chdir("")

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

Code :

ChDrive "K"

avant Chdir

[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...

[Daniel.C]

@ Alex80800 :
Tu es absolument sûr du chemin ?
quel est le message d'erreur ?

[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

[Daniel.C]

Mais quel est le message d'erreur ?

[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

[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.