Discussion :

[Malco1503]

Bonjour,
Je souhaiterai extraire des données excel dans un fichier ouvert à partir d'un fichier Excel fermé.
Je n'ai jamais fait ça avec VBA.
J'ai 2 question :
- Est-ce efficace de faire ce travail sur une base de données lourde (en terme de mémoire et de temps de travail) ?
- Pouvez vous m'aider pour pouvoir faire ce travail svp ?
Exemple :
J'ai une table "A" dans mon fichier excel ouvert "Fichier1", et mon objectif est de copier les colonne "C" et "D" de la table "B" du fichier fermé "Fichier2" qui se trouve dans "C:\dossierB" .

Merci pour votre aide !

[Daniel.C]

Bonjour,

Tu as une documentation générale ici :

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

Si tu veux une aide suppémentaire, indique le type du classeur fermé (.xls, .xlsx)
et si le tableau du classeur possède des entêtes.

[Malco1503]

Merci Daniel pour ta reponse,
Le fichier fermé est typé .xls et le tableau possede bien des entetes.
Merci d'avance

Tout en sachant que dans ce fichier fermé il y a plusieurs feuilles, mais je veux copier la table qui se situe par exemple dans la feuille "Sheet5" et la coller dans la feuille nommée "Output" du fichier Excel ouvert.
Merci

[Daniel.C]

Voici un exemple. Il faut que tu modifies le nom du fichier, celui de la feuille ainsi que la destination. Les endroits à modifier sont indiqués. Dans la fenêtre VBE, tu dois cocher la référence :
Microsoft ActiveX Data Objects x.x Library.
La macro est tirée de la page indiquée plus haut.

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
Sub Lire_Classeur_Ferme()
'Réf. 111018.xlsm
 
'Références à sélectionner :
'référence Microsoft ActiveX Data Objects x.x Library
 
Dim cn As ADODB.Connection
Dim Fichier As String
Dim NomFeuille As String, texte_SQL As String
'Définit le classeur fermé servant de base de données
Fichier = "C:\Users\Daniel\Documents\Donnees\Daniel\Excel\ADO\ClasseurFerme.xls" '*** à modifier
Set cn = New ADODB.Connection
'--- Connexion ---
With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & Fichier & _
        ";Extended Properties=Excel 8.0;"
    .Open
'texte_SQL = "SELECT * FROM [" & NomFeuille & " ]"
NomFeuille = "MaNouvelleFeuille" '*** à modifier
texte_SQL = "SELECT * FROM [" & NomFeuille & "$]"
Set rst = New ADODB.Recordset
Set rst = .Execute(texte_SQL)
'Ecrit le résultat de la requête dans la cellule A2
Sheets("Feuil3").Range("A2").CopyFromRecordset rst '*** à modifier
End With
'--- Fermeture connexion ---
cn.Close
Set cn = Nothing
End Sub