Discussion :

[dalaae]

Bonjour le Forum,

Je viens vers vous car j'essai de mettre en place un fichier de synthsé de plusiseurs centaines de classeurs excel.. chaque classeur contenant plusieurs feuilles de même type.

Mon traitement étant de faire un test sur les checkbox des différentes feuilles des classeurs fermés et venir renseinger des champs dans le classeur synthése.

J'hésite à utiliser une connexion ADO.. ou à rester avec laMacro4 de excel..! Le bemole de la deuxiéme solution est que je trouve pas de moyen de parcourir les feuilles d'un fichiers fermé. Si vous pouvez me donner des idées ça serait trop cool.

Merci d'avance!

[Daranc]

consultes ceci
http://silkyroad.developpez.com/VBA/ClasseursFermes/

[dalaae]

Merci pour le lien, je l'ai déja consulter..! je me suis bien inspiré pour mettre en place une procédure... qui ne marche pas..! si tu peux bien me debeuguer!

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
 
Sub Requete2007(fichier As String, NomFeuille As String, cel As String)
    Dim Cn As ADODB.Connection
    Dim texte_SQL As String
    Dim Rst As ADODB.Recordset
    Dim ADOCommand As ADODB.Command
 
    Set Cn = New ADODB.Connection
 
    '--- Connexion ---
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
           & fichier & ";Extended Properties=""Excel 12.0;HDR=YES;"""
'        .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 ...
    Set ADOCommand = New ADODB.Command
    With ADOCommand
        .ActiveConnection = Cn
        .CommandText = "SELECT * FROM [" & NomFeuille & cel & "]"
    End With
 
    Set Rst = New ADODB.Recordset
    Rst.Open ADOCommand, , adOpenKeyset, adLockOptimistic
 
    Set Rst = Cn.Execute("[" & NomFeuille & cel & "]")
 
    Cells(2, 1).CopyFromRecordset Rst
    MsgBox (Cells(2, 1).Value)
 
    '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing
 
End Sub

[Daranc]

quel est le message d'erreur ?
quelle est la ligne pointée par le débogueur

[dalaae]

Il n'y a pas de message d'erreur, l'execution se déroule bien.. mais aucun réusltat à la fin.. c'est ce qui m'intrigue!

[Daranc]

je connais pas trop le principe de ces manips mais il y a un message /!\ de SilkyRoad qui dit de ne pas oublier le "$" derrier la feuille