VBA Récupérer des valeurs d'un fichier Excel fermé

Version imprimable

07/01/2021, 11h40
ThonySp

VBA Récupérer des valeurs d'un fichier Excel fermé

Bonjour,

J'ai un projet de créer un fichier Excel (on l'appellera "FichierAlpha.xlsx") qui a pour objectif de récupèrer des informations provenant des autres fichiers (qui seront appelés "fichierA.xlsx", "fichierB.xlsx", ...).

Mais ce que je souhaite c'est que le macro puisse récupérer des valeurs, à des positions précises, sans ouvrir les fichiers concernés.

Existe-il une solution ?

Je vous remercie d'avance !

Après quelques recherches sur le forum, j'ai pu trouver quelques pistes :
https://silkyroad.developpez.com/VBA/ClasseursFermes/

Qui m'a fait conduire à ce code

Code:

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
Option Explicit
 
Sub RequeteClasseurFerme()
    Dim Cn As ADODB.Connection
    Dim Fichier As String
    Dim NomFeuille As String, texte_SQL As String
    Dim Rst As ADODB.Recordset
 
    'Définit le classeur fermé servant de base de données
    Fichier = "C:\adresse\FichierA.xlsx"
    'Nom de la feuille dans le classeur fermé
    NomFeuille = "Encours"
 
    Set Cn = New ADODB.Connection
 
    '--- Connection ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open
    End With
    '-----------------
 
    'Définit la requête.
    '/!\ Attention à ne pas oublier le symbole $ après le nom de la feuille.
    texte_SQL = "SELECT * FROM [" & NomFeuille & "$]"
 
    Set Rst = New ADODB.Recordset
    Set Rst = Cn.Execute(texte_SQL)
 
    'Ecrit le résultat de la requête dans la cellule A2
    Range("A2").CopyFromRecordset Rst
 
    '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing
 
End Sub

Par contre ça fonctionne QUE si le "FichierA.xlsx" est ouvert :calim2:

Une idée ?

C'est bon j'ai trouvé pourquoi ça coinçait : c'est le format Excel : .xlsx car le code précédent devrait fonctionner pour des .xls

Voici le code pour ceux qui sont intéressés :

Code:

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
Option Explicit
 
Sub RequeteClasseurFerme()
    Dim Cn As ADODB.Connection
    Dim Fichier As String
    Dim NomFeuille As String, texte_SQL As String
    Dim Rst As ADODB.Recordset
 
    'Définit le classeur fermé servant de base de données
    Fichier = "C:\adresse\FichierA.xlsx"
    'Nom de la feuille dans le classeur fermé
    NomFeuille = "Encours"
 
    Set Cn = New ADODB.Connection
 
    '--- Connection ---
    With Cn
        .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
    '-----------------
    'Définit la requête.
 
    '/!\ Attention à ne pas oublier le symbole $ après le nom de la feuille.
    texte_SQL = "SELECT * FROM [" & NomFeuille & "$]"
 
    Set Rst = New ADODB.Recordset
    Set Rst = Cn.Execute(texte_SQL)
 
    'Ecrit le résultat de la requête dans la cellule A2
    Range("A2").CopyFromRecordset Rst
 
    '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing
 
End Sub

Maintenant il me reste à savoir comment compiler les données des fichiers "A", "B", ... sans écraser l'un et l'autre

07/01/2021, 15h53
Igloobel

Bonjour à tous,

Bien souvent quand on cherche à lire le contenu de fichier fermé c'est parce que l'on ne veut pas bloqué le fichier qui peut être ouvert par d'autres personnes (voir un programme)

depuis quelques temps je cherchais à ouvrir mes fichiers en lecture seules d'office par biais d'une icone. l'avantage c'est que le fichier n'est pas bloqué, toute autre personne peut l'ouvrir pour faire des modifs.

et j'ai trouvé pour Excel 365
"C:\Program Files (x86)\Microsoft Office\root\Office16\EXCEL.EXE" /r "\\OFR...………........2020.xlsb"

Combiné avec l'instruction Shell on peut ouvrir en lecture seule le fichier Excel par le biais d'une macro

donc voici une autre piste de travail pour récupérer des données

A+