Discussion :

[benoitdevries]

Bonjour,

en m'inspirant du très bon boisgontierjacques, j'ai adapté son code pour mon usage.
Source : http://boisgontierjacques.free.fr/pa...ado.htm#Import
J'arrive très bien à copier des données depuis un fichier fermé.
Or, je souhaite copier des données depuis plusieurs fichiers fermés (tous identique de par leur structure, mais différent de part leur contenu).
Ma boucle ne copie que les données du premier fichier, alors que la variable "odmfile" change bien à chaque boucle ...

Où est mon erreur ?

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
 
Sub abracadabra()   'tool to consolidate data from several closed files
' Microsoft ActiveX DataObject must be activated
    Dim counter As Integer
    Dim odmfile As String         'string containing the path and the name of a file : c:\toto\file.xlsx
    Dim t_odmFileList As ListObject	'Table containing a list with the path and the name of each files : c:\toto\file1.xlsx
    Dim Source As ADODB.Connection
    Dim Requete As ADODB.Recordset
 
    Set t_odmFileList = Range("t_odmFileList").ListObject
 
    Application.ScreenUpdating = False
 
    For counter = 1 To t_odmFileList.DataBodyRange.Rows.Count
        odmfile = t_odmFileList.DataBodyRange(counter, 2).Value
        Set Source = New ADODB.Connection
        Source.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & odmfile & ";Extended Properties='Excel 12.0 Xml;HDR=YES;IMEX=1'"
        Set Requete = Source.Execute("[Feuil1$A1:L100]")
        [K1].CopyFromRecordset Requete        'copy data in temporary table
        Requete.Close
        Source.Close
        Set Requete = Nothing
        Set Source = Nothing
    Next counter
 
    Application.ScreenUpdating = True
End Sub

[Philippe Tulliez]

Bonjour,
Pourquoi ne poses-tu pas directement la question à l'auteur de la procédure ?

[benoitdevries]

Bonjour,

je me suis inspiré de sa procédure pour la connexion au fichier fermé.
Sa procédure ne propose pas de boucle.
C'est dans la boucle que je rencontre le problème.

De plus, j'évite les messages privés pour faire partager la réflexion, l'analyse et la solution au problème au plus grand nombre.

[Philippe Tulliez]

Bonjour,
Il suffit d'isoler ce code dans une procédure indépendante en prévoyant deux arguments (la source et la cible).
Si tu publiais la version d'origine (sans la boucle), ce serait plus simple pour t'aider.

[Ardus Petus]

Code :

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

        [K1].CopyFromRecordset Requete        'copy data in temporary table

Cela copie les données de TOUS les fichiers au même emplacement de destination.
A la fin de la boucle, on a en K1 les données du dernier fichier traité.
Il faudrait faire évoluer K1 à chaque nouveau fichier.

HTH,
--
AP

[benoitdevries]

Voici le code d'origine :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub RecupTableur2()
  ' Microsoft ActiveX DataObject doit être coché
  Set cnn = New ADODB.Connection
  répertoire = ThisWorkbook.Path
  fichier = "AdoSource.xls"
  cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & répertoire & "\" & fichier & ";Extended Properties='Excel 12.0;HDR=Yes'"
  Set rs = cnn.Execute("[Feuil1$A1:C100]")
  [A2].CopyFromRecordset rs
  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing
End Sub

Voici mon code avec une procédure indépendante

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
 
Sub abracadabra()   'tool to consolidate data from several closed files
    Dim counter As Integer
    Dim odmfile As String	'string containing the path and the name of a file : c:\toto\file.xlsx
    Dim t_odmFileList As ListObject	'Table containing a list with the path and the name of each files : c:\toto\file1.xlsx
    Set t_odmFileList = Range("t_odmFileList").ListObject
 
    Application.ScreenUpdating = False
 
    For counter = 1 To t_odmFileList.DataBodyRange.Rows.Count
        odmfile = t_odmFileList.DataBodyRange(counter, 2).Value
        Call RecupData(odmfile)
    Next counter
 
    Application.ScreenUpdating = True
End Sub
 
Sub RecupData(odmfile As String)
  ' Microsoft ActiveX DataObject doit être coché
  Dim Source As ADODB.Connection
  Dim Requete As ADODB.Recordset
  Set Source = New ADODB.Connection
 
  Source.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & odmfile & ";Extended Properties='Excel 12.0 Xml;HDR=YES;IMEX=1'"
  Set Requete = Source.Execute("[Feuil1$A1:L100]")
  [K1].CopyFromRecordset Requete        'copy data in a temporary table
  Requete.Close
  Source.Close
  Set Requete = Nothing
  Set Source = Nothing
End Sub

[benoitdevries]

Code :

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

        [K1].CopyFromRecordset Requete        'copy data in temporary table

Cela copie les données de TOUS les fichiers au même emplacement de destination.
A la fin de la boucle, on a en K1 les données du dernier fichier traité.
Il faudrait faire évoluer K1 à chaque nouveau fichier.

HTH,
--
AP

Bonjour,

K1 est une cellule qui récupère temporairement la copie avant de la mettre au bon endroit.
Je n'ai donc pas de souci à écraser les données à chaque nouvelle boucle.