Copier des données de classeurs Excel fermés vers un classeur ouvert

**gwen-al** · 10/03/2008, 16h23

Bonjour,

Je débute sous VBA Excel et je rencontre quelques difficultés ...

Je cherche à faire une macro qui me permette d'aller chercher dans un classeur fermé une plage de données pour la copier dans le classeur à partir duquel j'exécute ma macro.
Pour ce faire, j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub copieTCL_BD(nomFichier As String, i As Integer)
    'Classeur fermé
    Windows(nomFicher).Activate
    Application.CutCopyMode = False
    Sheets("BD" ).Range("C2:EP2" ).Copy
    'Classeur ouvert
    Windows("TBD_ConsolidationTotale.xls" ).Activate
    Sheets("BD" ).Range("D" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
End Sub

Mais cela ne fonctionne pas

Le Windows().Activate ne fonctionne pas :
faut-il que mon fichier soit ouvert?
Faut-il obligatoirement reprendre le nom du fichier complet (avec nom du chemin)?
Le nomFichier ressemble à "TBD_TLC_Prenom-Nom_DateJour.xls"

Merci par avance de votre aide

**kiki29** · 10/03/2008, 16h48

Jour Bon, consulter http://silkyroad.developpez.com/VBA/ClasseursFermes/

**gwen-al** · 10/03/2008, 18h15

Merci pour le lien!
J'ai essayé d'avancer toute seule

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
 
'Ouverture du fichier fermé
    Dim connex As ADODB.Connection
    Dim Fichier As String
    Dim feuille As String
    Dim cellule As String
    'Le chemin du fichier à ouvrir
    Fichier = ThisWorkbook.Path & "\" & nomFichier
    'La feuille
     feuille = "BD$"
    'La plage de données à récupérer
    cellule = "C2:EP2"
    Set connex = New ADODB.Connection
    'Connexion
    With connex
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open
    End With
    'Definition de la requête
 
    req_SQL = " Select * From [" & feuille & cellule & "]"
    MsgBox req_SQL
    Set Rst = New ADODB.Recordset
    Set Rst = connex.Execute(req_SQL)
    ' Ecriture du résultat dans BD
    Range("D" & noLigne).CopyFromRecordset Rst
    'Fermeture Connexion
    connex.Close
    Set connex = Nothing

Mais cela ne fonctionne pas encore
Si j'ai bien compris l'instruction

Code :

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

Range("D" & noLigne).CopyFromRecordset Rst

Devrait me permettre d'enregistrer ma plage de données prise dans le classeur excel fermé dans le classeur ou j'éxecute ma macro, n'est ce pas?

Et cela ne fonctionne pas...

**Gilou1958** · 10/03/2008, 19h02

Ben, je suis pas un grand spécialiste mais cela me parait bien compliqué... Mais je n'ai peut-être pas compris ce que tu voulais...

Sinon, j'utiliserai plutôt "GetObject" et "Set" qui permettent de récupérer les données sans ouvrir le fichier.

**Qwazerty** · 10/03/2008, 19h32

SAlut
A mon avis si tu débutes tu devrais plutôt rajouter dans ta macro quelque ligne pour ouvrir se fameux fichier prendre les données dont tu as besoin et le refermer, ça sera 1000 fois plus simple que de t'embêter avec du sql.
De plus fait une recherche dans le forum et tu trouvera exactement la même question que tu poses aujourd'hui.
Pour le critères de recherche (recherche -> avancé) tu tapes "Classeur fermé" tu sélectionnes bien Excel VBA et tu vas trouver ton bonheur je pense.
A++
Qwaz

**kiki29** · 10/03/2008, 20h19

Soir Bon,j'ai retrouvé cela qui trainait dans un coin de mon PC,c'est bien sur à adapter à ton contexte

**gwen-al** · 11/03/2008, 08h35

Bonjour à tous

Et merci pour vos réponses, j'utilises du SQL, car c'est ce que j'ai trouvé dans la note de SilkyRoad...

Merci de vos indications, je vais avancer et je reviens vers vous dès que cela fonctionne (ou peut-être avant...)

**gwen-al** · 11/03/2008, 09h24

Alors une erreur tout bête que je ne comprends pas très bien....
Et qui m'arrive régulièrement

Code :

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

1
2
3
4
 
Sub copieTCL_BD(nomFichier As String, i As Integer)
    Dim tableau As Variant
    lireDonnees(nomFichier, tableau)

Alors la dernière ligne me renvoit le message d'erreur
"Erreur de compilation: Attendu:="

Pourquoi? j'ai du mal à comprendre...

**AlainTech** · 11/03/2008, 09h42

Enlève les parenthèses:

Code :

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

lireDonnees nomFichier, tableau

**gwen-al** · 11/03/2008, 10h44

Tout simplement...

Merci!

Bon comme je suis très novice en VB, quel site me conseillerez vous pour apprendre les bases du VB, car je suis un peu perdue sur la syntaxe...

**gwen-al** · 11/03/2008, 10h54

Dans le code que m'a donné kiki29, j'ai beaucoup de difficultés à comprendre cette partie

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
 
ShDatas.Cells.Clear
    NumeroLigne = 1: r = 1
 
    If NbFichiers = 0 Then Exit Sub
 
    For i = 1 To UBound(TabFichiers)
        NomFichier = Dossier & "\" & TabFichiers(i)
        LireDonnéesADO NomFichier, NomFeuille, Plage, Tableau
        With ShDatas
            .Range("A" & r, .Cells(r + UBound(Tableau, 1) - 1, UBound(Tableau, 2))).Value = Tableau
            r = .Range("A65536").End(xlUp).Row + 1
        End With
        NumeroLigne = NumeroLigne + 1
        Application.StatusBar = i & " / " & UBound(TabFichiers)
    Next
 
    With ShDatas
        .Activate
        .Columns.AutoFit
        .Range("A1").Select
    End With

Je ne comprends pas ce que sont les ShDatas
Ni ce que signifie l'expression With...

**kiki29** · 11/03/2008, 11h30

Jour Bon
http://bidou.developpez.com/article/VBA/
http://bidou.developpez.com/tutoriels/ExcelVBA/

**kiki29** · 11/03/2008, 12h08

re, une ultime version

**gwen-al** · 11/03/2008, 12h22

Kiki29

Serait-ce possible de mettre des commentaires sur cette partie, car là je suis vraiment perdue....

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
 
ShDatas.Cells.Clear
    NumeroLigne = 1: r = 1
 
    If NbFichiers = 0 Then Exit Sub
 
    For i = 1 To UBound(TabFichiers)
        NomFichier = Dossier & "\" & TabFichiers(i)
        LireDonnéesADO NomFichier, NomFeuille, Plage, Tableau
        With ShDatas
            .Range("A" & r, .Cells(r + UBound(Tableau, 1) - 1, UBound(Tableau, 2))).Value = Tableau
            r = .Range("A65536").End(xlUp).Row + 1
        End With
        NumeroLigne = NumeroLigne + 1
        Application.StatusBar = i & " / " & UBound(TabFichiers)
    Next
 
    With ShDatas
        .Activate
        .Columns.AutoFit
        .Range("A1").Select
    End With

**kiki29** · 11/03/2008, 12h29

re, je te renvoie aux 2 liens donnés plus haut ainsi qu'à Ado_03.zip

**gwen-al** · 11/03/2008, 15h24

Finalement, j'ai abandonné ton idée kiki29, trop compliquée et que je ne parvenais pas à mettre en oeuvre.
Je suis parvenue à faire ce que je souhaitais en ouvrant directement chacun des fichiers Excel (20 au max).
Ce n'est peut-être pas la solution la plus optimale en terme de développement, mais c'est certainement la plus efficace au vu de mes contraintes de temps.

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
 
 
Sub copieTLC_BD(nomFichier As String, i As Integer)
    'Ouvrir le fichier
    Dim Fichier As String
    Fichier = ThisWorkbook.Path & "\" & nomFichier
    Workbooks.Open Fichier
    'Réaliser la copie
    Windows(nomFichier).Activate
    Application.CutCopyMode = False
    Sheets("BD").Range("B2:EP2").Copy
    Windows("TBD_ConsolidationTotale.xls").Activate
    Sheets("BD").Range("D" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    'Fermer le fichier
    Workbooks(nomFichier).Close False
 
 
 
End Sub

**kiki29** · 11/03/2008, 17h00

Effectivement si ton niveau en VB/VBA est modeste tu as peu de chance d'y parvenir cependant tu n'avais qu'à adapter dans ADO_03.zip les 3 constantes

Code :

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

1
2
3
4
 
Const NomFeuille As String = "Feuil1"
Const Plage As String = "C6:G26"
Const FichierRch As String = "Classeur*.xls"

à ton contexte, par contre en terme de performances ta solution n'est pas optimale,surtout si tu as, je l'espère,un Anti Virus qui teste tes fichiers Excel avant ouverture

Encadre ta procédure par

Code :

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

1
2
3
4
 
Application.ScreenUpdating=False
....
Application.ScreenUpdating=True

Copier des données de classeurs Excel fermés vers un classeur ouvert

Macros et VBA Excel

Discussions similaires

Partager

Partager