Discussion :

[doncamelo]

Bonjour le forum,

Je me retourne vers vous pour un petit problème.

Je cherche à consolider dans un classeur les données contenues dans d'autres classeurs.

Dans la faq excel, j'ai trouvé un code qui fonctionne très bien:

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Comment fusionner tous les classeurs fermés d'un répertoire, à la suite dans une nouvelle feuille de calcul ?
 
http://excel.developpez.com/faq/index.php?page=Classeur#ClasseursFermes
 
'Nécessite d'activer la référence
    'Microsoft ActiveX Data Objects x.x Library
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim xConnect As String, Cible As String
Dim Fichier As String, Dossier As String, Feuille As String
Dim i As Long
 
'nom du répertoire contenant les classeurs à regrouper
Dossier = "C:\nom dossier"
'Nom de la feuille dans les classeurs fermés
'Ne pas oublier le symbole $ après le nom de la feuille
Feuille = "Feuil1$"
i = 2
 
Fichier = Dir(Dossier & "\*.xls")
'boucle sur les fichiers du repertoire
Do While Len(Fichier) > 0
    xConnect = "DRIVER={Microsoft Excel Driver (*.xls)};" & _
    "ReadOnly=1;DBQ=" & Dossier & "\" & Fichier
    'connection classeur
    Set Cn = New ADODB.Connection
    Cn.Open xConnect
 
    'Requete
    Cible = "SELECT * FROM [" & Feuille & "];"
 
    Set Rs = New ADODB.Recordset
    Rs.Open Cible, xConnect, adOpenStatic, adLockOptimistic, adCmdText
 
    'Ecriture dans la feuille de calcul
    If Not Rs.EOF Then Cells(i, 1).CopyFromRecordset Rs
    i = Cells(i, 1).End(xlDown).Row + 1
 
    Rs.Close
    Cn.Close
    Set Cn = Nothing
    Set Rs = Nothing
    Fichier = Dir()
Loop
 
MsgBox "Terminé"

Le seul problème c'est que ce code ne fonctionne que pour la version Excel 2003.

J'utilise la version 2007 et il m'arrive de recevoir et de travailler sur les deux versions.

Donc j'ai crée un fichier xlsm contenant le code ci-dessus en modifiant "xls" en "xlsx", en prenant soin d'activer différentes bibliothèques recommandées.

Mais cette manip génère des erreurs.

Je souhaite pouvoir consolider les données dans un fichier source et ce, quelque soit la version excel des fichiers reçus (xls, xlsx ou xlsm).

Pourriez-vous me dire comment faire pour améliorer le code ci-dessus afin de pouvoir lire les données des fichiers xls, xlsx et xlsm et les consolider dans un fichiers source ?

[AlainTech]

Bonjour,

Mais cette manip génère des erreurs.

Et nous devons deviner lesquelles?

[BenjGe]

c'est peut être la chaine de connexion xConnect qui diffère pour les fichiers Excel2007.

[doncamelo]

Bonsoir,

Comme l'a dit Benjîle, c'est la chaîne de connexion xConnect qui pose problème.

Le message d'erreur est :

Erreur d'exécution'-2147467259 (80004005)':
[Microsoft][Gestionnaire de pilotes ODBC] source de données introuvable et nom de pilote non spécifié

Auriez-vous une idée ?

[kiki29]

Salut, voir sur http://silkyroad.developpez.com/VBA/...Fermes/#LIII-C

[doncamelo]

Merci kiki29,

En prenant comme exemple le tutoriel, j'ai rajouter quelques lignes de codes et voici le résultats :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Sub RequeteClasseurFerme_Excel2007()
    Dim Cn As ADODB.Connection
    Dim Fichier As String
    Dim NomFeuille As String, texte_SQL As String
    Dim Rst As ADODB.Recordset
 
 
    Dim dossier As String
    Dim i As Long
    Dim NomOnglet As String
    Dim LeFichier As String
    dossier = "C:\Consolidation Fichiers Excel\FichiersRecus"
    NomOnglet = "ENVOI$"
 
        i = 2
        LeFichier = Dir(dossier & "\*.xlsx")
 
 
        'Range("A2:IV65000").Clear
 
                Do While Len(LeFichier) > 0
    'Définit le classeur fermé servant de base de données
    Fichier = "C:\Consolidation Fichiers Excel\FichierSource\R.xlsx"
    'Nom de la feuille dans le classeur fermé
    NomFeuille = "LeCons$"
 
    Set Cn = New ADODB.Connection
 
    '--- Connexion ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & Fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
    End With
    '-----------------
 
 
    '
    '... la requête ...
    '
             Cible = "SELECT * FROM [" & NomFeuille & "];"
            Set Rst = New ADODB.Recordset
            Rst.Open Cible, Cn, adOpenStatic, adLockOptimistic, adCmdText
 
    'Ecriture dans la feuille de calcul
 
            If Not Rst.EOF Then Cells(i, 1).CopyFromRecordset Rst
 
            i = Cells(i, 1).End(xlDown).Row + 1
 
 
    '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing
           Set Rst = Nothing
            LeFichier = Dir()
 
        Loop
 
        MsgBox "Consolidation terminée"
 
End Sub

J'ai une erreur à la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
i = Cells(i, 1).End(xlDown).Row + 1

Quand i est de type integer,

j'ai l'erreur:

Erreur d'exécution '6':
Dépassement de capacité

Quand je le passe en Long,

j'ai l'erreur:

Erreur d'exécution '1004';
Erreur définie par l'application ou par l'objet

Je suis bloqué là dessus
Voyez-vous le problème ?

[AlainTech]

Bonjour,

Ta cellule de référence étant la dernière remplie, le End(XlDown) te positionne en bas de feuille.
Le +1 te fait sortir de la feuille.

Il vaut mieux utiliser cette technique:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

i = Cells(Rows.Count, 1).End(xlUp).Row + 1

[doncamelo]

Merci beaucoup AlainTech,

Je n'ai plus d'erreurs mais mon fichier de consolidation est vide après exécution de la procédure.

Je vais essayer de voir ce qui cloche.

Merci pour votre aide.