Importation de données venant de fichier fermé ( *.xls)

**stormless** · 23/10/2005, 10h17

bonjour,

je suis confronté a un probleme d'importation de données de fichiers excel. Le but etant de recuperer des données contenue dans une plage q10:q56 de chaques fichiers et dans faire une compilation dans un autre jusque là pas de probleme.
Si la plage q10:q56 est pleine pas de probleme mais si la plage n'a que 10 ou 20 valeurs la macro n'importe rien je joins un bout du code vba

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
 
connect = "DRIVER={Microsoft Excel Driver (*.xls)};" & _
      "ReadOnly=1;DBQ=" & Fichier
 
 
    Set données = New ADODB.Recordset
    données.Open Source:="SELECT * FROM [" & onglet & "Q10:Q56]", ActiveConnection:=connect
 
    If Not données.EOF Then
    ' pour etre synchro avec les colonnes
    p = X
        Cells(1, 2 + p) = Tableau(X)
        Cells(2 + N, 2 + p).CopyFromRecordset données
        p = p + 2
    N = N + 1

voila si quelqu'un à une idée je suis preneur

merci

**ouskel'n'or** · 23/10/2005, 11h05

J'ignore s'il est possible d'accéder à un fichier fermé mais tu peux essayer d'y accéder sans qu'il s'affiche :
Tu mets "ScreenUpdating = false" avant lde l'ouvrir, tu fais tes petites affaires, tu le fermes et tu mets "ScreenUpdating = true"

A+

**stormless** · 23/10/2005, 11h26

salut ouskel'n'or

il n'y a aucun probleme pour lire des données dans un fichier fermé avec les methodes ADO
Ta solution fonctionne tres bien mais est trop lente si tu as 200 fichiers a ouvrir pour recuperer des infos

@+

**ouskel'n'or** · 23/10/2005, 11h58

C'est bien, tu poses une question et tu me donnes une solution que je ne connaissais pas... Quand poses-tu une nouvelle question ?

Désolé de ne pouvoir t'aider

A+

**SilkyRoad** · 23/10/2005, 12h05

bonjour Stormless , bonjour Ouskel'n'or

tu peux tester cette adaptation

Code :

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

1
2
3
Connect = "DRIVER={Microsoft Excel Driver (*.xls)};" & _
      "ReadOnly=1;DBQ=" & Fichier & ";" & _
      "extended properties=""Excel 8.0;IMEX=1"""

cordialement
michel

**stormless** · 23/10/2005, 12h14

bonjour silkyroad

sa ne change rien extended proprities avec le imex=1

merci d'avoir essayer

Si tu veux ouskel'n'or je peux mettre la macro en ligne y a pas de probleme

@+

**stormless** · 23/10/2005, 12h49

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
 
Sub importation()
'activer la reference Microsoft ActiveX Data Objects x.x Library
'activer la reference Microsoft ADO Ext 2.7 for DLL ans Security
 
    Dim connect As String
    Dim Sql As String, onglet As String
    Dim données As ADODB.Recordset
    Dim Fichier As String, Direction As String, texte_SQL As String
    Dim X As Integer, NbFichiers As Integer, Y As Integer, N As Integer, p As Integer, w As Integer
    'On Error Resume Next
    Dim Tableau() As String
 
    onglet = "dim$" 'InputBox("Saisissez le nom d'un onglet :")
    If onglet = "" Then Exit Sub
    Direction = Dir(ThisWorkbook.Path & "\*.xls")
    Do While Len(Direction) > 0 'liste tous les classeurs du repertoire
    NbFichiers = NbFichiers + 1
    ReDim Preserve Tableau(1 To NbFichiers)
    Tableau(NbFichiers) = Direction
    Direction = Dir()
    Loop
 
    If NbFichiers > 0 Then
    For X = 1 To NbFichiers 'boucles sur les classeurs
 
    ' pour ne pas prendre en compte le classeur contenant la macro (synthese)
    If Tableau(X) <> ThisWorkbook.Name Then
 
    Fichier = ActiveWorkbook.Path & "\" & Tableau(X)
    N = 0
 
    connect = "DRIVER={Microsoft Excel Driver (*.xls)};" & _
      "ReadOnly=1;DBQ=" & Fichier
 
    Set données = New ADODB.Recordset
    données.Open Source:="SELECT * FROM [" & onglet & "Q10:Q56]",   ActiveConnection:=connect
 
              If Not données.EOF Then
                   ' pour etre synchro avec les colonnes
                     p = X
                     Cells(1, 2 + p) = Tableau(X)
                     Cells(2 + N, 2 + p).CopyFromRecordset données
                     p = p + 2
                     N = N + 1
              End If
 
    End If
    Next X
    End If
 
    Application.ScreenUpdating = True
 
    'delete de l'objet recordset
    données.Close
    Set données = Nothing
 
End Sub

ci joint la macro de base a toi de la modifier pour tes besoins
pour info :
1)Recuperation de 45 valeurs dans 186 fichiers en moins de 1 minutes
2) il faut les fichiers soient dans le meme repertoire que le fichier de compilation

@+

**SfJ5Rpw8** · 23/10/2005, 15h20

et ta macro à toujours un probléme ?...

:

**stormless** · 23/10/2005, 15h33

salut bbil

oui et maintenant je suis sec je ne vois pas la solution. je lisais les tuto's de J M Rabilloud mais non pas de solution pour l'instant

@+

**SfJ5Rpw8** · 23/10/2005, 15h57

Envoyé par stormless

je suis confronté a un probleme d'importation de données de fichiers excel. Le but etant de recuperer des données contenue dans une plage q10:q56 de chaques fichiers et dans faire une compilation dans un autre jusque là pas de probleme.
Si la plage q10:q56 est pleine pas de probleme mais si la plage n'a que 10 ou 20 valeurs la macro n'importe rien je joins un bout du code vba

bon moi j'ai essayer avec un fichier contenant toute les infos q10 àQ56 et le 2° seulement Q10:Q34 .. cela fonctionne..

**stormless** · 23/10/2005, 16h03

q10:q56 c'est ok mais essai Q20:q56

**SfJ5Rpw8** · 23/10/2005, 16h16

ben chez moi ... donnée de Q20 à Q56 ... un seul fichier .. ça marche ..;

**stormless** · 23/10/2005, 16h22

deja pour commencer merci de te pencher sur mon probleme

donc dans la macro tu es bien en q10:q56 et dans le fichier de données tu as des valeurs a partir de q20 jusqu'a q56 et sa fonctionne ?

**SfJ5Rpw8** · 23/10/2005, 16h49

oui .. j'ai copié ton code tel quel (juste remplacé le nom de la feuille dim$ par feuil1$ ) dans un module excel... et j'ai créer un fichier BD2.xls, dans lequel j'ai mis des donnée dans Q20 à Q56 ( j'ai écrit Z20 à Z56 )

et ça marche..

**stormless** · 23/10/2005, 16h52

Envoyé par bbil

oui .. j'ai copié ton code tel quel (juste remplacé le nom de la feuille dim$ par feuil1$ ) dans un module excel... et j'ai créer un fichier BD2.xls, dans lequel j'ai mis des donnée dans Q20 à Q56 ( j'ai écrit Z20 à Z56 )

et ça marche..

serais tu ok pour que je t'envoie mon fichier de compilation ainsi quelques fichiers sources pour faire un test

**SfJ5Rpw8** · 23/10/2005, 16h55

ben ... moi ici je n'est pas VB6 ... seulement excel ... alors ...

sinon je suis d'accord ... tu as mon adresse mail sur bouton msn ...en bas

**stormless** · 23/10/2005, 16h59

Envoyé par bbil

ben ... moi ici je n'est pas VB6 ... seulement excel ... alors ...

je ne comprends pas ta reponse ?

**SfJ5Rpw8** · 23/10/2005, 17h03

Envoyé par stormless

Envoyé par bbil

ben ... moi ici je n'est pas VB6 ... seulement excel ... alors ...

je ne comprends pas ta reponse ?

ton aplli es sous excel ? , tu parle de compilation et fichier source ..? si oui envoi moi ton fichier excel contenant la macro + 1 fichier donnée causant probléme ...
je regarde et te dis comment ça se pase chez moi .

**stormless** · 23/10/2005, 17h13

passe moi ton adresse E-mail dans la MP

**stormless** · 23/10/2005, 18h49

Pour info

apres divers echange avec bbil ca ne fonctionne pas non plus chez lui
si quelqu'un a une solution merci d'avance

et merci a bbil pour ton aide

Importation de données venant de fichier fermé ( *.xls)

Macros et VBA Excel

Discussions similaires

Partager

Partager