Recuperation données classeur fermés sur réseau

**Rag02700** · 07/09/2019, 16h24

Bonjour à tous,

Je viens de créer un petit programme pour récupérer les données de différents classeurs stockés sur le réseau de ma boite.

Voici mon programme :

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

PublicSub Traitement_Classeur()
Le_Classeur = Dir(Mon_Repertoire & "\" & "*.xlsm") 'Identification du classeur
i = F_Conso_Besoins.Cells(Rows.Count, Col_Ref_Bes).End(xlUp).Row +1

DoWhile Len(Le_Classeur) > 0'Tant qu'on a un classeur
Set LA_SOURCE = CreateObject("ADODB.Connection")



'--- Connexion ---
With LA_SOURCE.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
& Mon_Repertoire & "\" & Le_Classeur & ";Extended Properties=""Excel 12.0;HDR=YES;"""
.Open
EndWith


'----- Requete -----Texte_SQL = "SELECT * FROM [" & Nom_F_Besoins & "$" & Ma_Plage_N & "]"
Set Requete = LA_SOURCE.Execute(Texte_SQL)



'--- restitution sur feuille classeur cible
F_Conso_Besoins.Range("A" & i).CopyFromRecordset Requete


i = F_Conso_Besoins.Cells(Rows.Count, Col_Ref_Bes).End(xlUp).Row + 1
Le_Classeur = Dir() 'prochain classeur
Loop
EndSub

Le problème avec ce programme c'est que lorsque je lance le programme et que l'un des classeurs sources est ouvert par un autre utilisateur, il s'ouvre en lecture seule chez moi ...
Alors que je voulais passer par une récupération des données en n'ouvrant pas les classeurs pour gagner du temps ... car in fine je vais avoir 200 classeurs à parcourir ...

Y a t il un moyen de récupérer les données sans ouvrir le classeur source même si ce dernier est ouvert par un autre utilisateur?

Merci à tous.

**Thumb down** · 07/09/2019, 21h03

Bonsoir,
HDR=Yes;IMEX=1;ReadOnly=True

**Rag02700** · 09/09/2019, 10h46

Hello Thumb down,

Je viens de tester mais malheureusement le classeur s'ouvre quand même

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
 
 
Public Sub Traitement_Classeur()
Le_Classeur = Dir(Mon_Repertoire & "\" & "*.xlsm") 'Identification du classeur
i = F_Conso_Besoins.Cells(Rows.Count, Col_Ref_Bes).End(xlUp).Row + 1
Do While Len(Le_Classeur) > 0 'Tant qu'on a un classeur
Set LA_SOURCE = CreateObject("ADODB.Connection")
 
'--- Connexion ---
With LA_SOURCE
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
& Mon_Repertoire & "\" & Le_Classeur & ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=1;ReadOnly=True;"""
.Open
End With
 
'----- Requete -----
Texte_SQL = "SELECT * FROM [" & Nom_F_Besoins & "$" & Ma_Plage_N & "]"
Set Requete = LA_SOURCE.Execute(Texte_SQL)
 
'--- restitution sur feuille classeur cible
F_Conso_Besoins.Range("A" & i).CopyFromRecordset Requete
 
i = F_Conso_Besoins.Cells(Rows.Count, Col_Ref_Bes).End(xlUp).Row + 1
Le_Classeur = Dir() 'prochain classeur
Loop

**Menhir** · 09/09/2019, 11h10

Envoyé par Rag02700

Y a t il un moyen de récupérer les données sans ouvrir le classeur?

Non.

A part en attaquant directement les secteurs disque (ce qui nécessites d'autres outils que VBA), il n'est pas possible de lire les données d'un fichier, quel qu'il soit, sans l'ouvrir d'une façon ou d'une autre.

La méthode utilisant ADODB (faussement intitulé "lire le contenu d'un classeur sans l'ouvrir") ouvre bel et bien le fichier, même si c'est avec une autre méthode que celle d'Excel.
Ce n'est pas pour rien qu'elle commence par un "Open".

**Rag02700** · 09/09/2019, 11h23

Ok Menhir ...

,

Aurais-tu une méthode en vba pour récupérer le + rapidement le contenu de 200 fichiers excel (structure des fichiers identique) ?

Merci.

**Menhir** · 09/09/2019, 11h38

Envoyé par Rag02700

Aurais-tu une méthode en vba pour récupérer le + rapidement le contenu de 200 fichiers excel (structure des fichiers identique) ?

En faire une vraie base de donnée et utiliser une SGDB.

Dans la grande majorité des cas, les utilisations partagées et/ou multifichiers ne sont ni plus ni moins que des bases de données.
Excel est un couteau suisse qui permet de faire beaucoup de choses avec facilité, ce qui incite certains à l'utiliser pour n'importe quoi (traitement de texte, base de données, messagerie, etc.). Mais s'il n'est pas utilisé pour sa vraie finalité (le calcul), il montre rapidement ses limites. Dans ce cas, pour faire un travail propre et fonctionnel, il faut utiliser les outils adéquats.