Discussion :

[arnaudTHE]

Bonjour à tous,

Voici ma problématique : j'importe des données de classeurs fermés et cela fonctionne sans problème.
Seulement, parfois mes classeurs fermés sont en fait "zippés".
Est-il possible d'accéder aux données d'un classeur fermé "zippé" avec une connection ADODB?

Ci-dessous mon code de récupération des données de classeurs fermés "non zippés". Il y a trois macros différentes, afin de pouvoir relancer des importations de données d'autres feuilles en fonction de conditions.
Certaines de mes variables sont définies en public au début de mon module.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub ConnetionClasseurFerme()
 
SynthesisBoo = False
Set Cn = New ADODB.Connection
'Connetion
With Cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & Fichier & _
        ";Extended Properties='Excel 8.0;HDR=NO;IMEX=1'"
    .Open
End With
 
End Sub

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
 
Public Sub RequeteClasseurFerme()
Dim Rst As ADODB.Recordset
Dim texte_SQL As String
 
'Définit la requête
texte_SQL = "SELECT * FROM [" & NomFeuille & "$]"
Set Rst = New ADODB.Recordset
Set Rst = Cn.Execute(texte_SQL)
 
'Création de la feuille Data2
    Sheets.Add
    ActiveSheet.Name = "Data2"
    ActiveSheet.Range("A1").CopyFromRecordset Rst
 
End Sub

Code :

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

1
2
3
4
5
6
7
 
Public Sub FermetureClasseurFerme()
'--- Fermeture connexion ---
Cn.Close
Set Cn = Nothing
 
End Sub

Je serais reconnaissant à toute personne pouvant m'aider sur ce problème!

[Invité]

Bonjour Arnaud,

Si ton fichier est zippé, tu peux toujours utiliser cette fonction de dézippage

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
32
Sub DezipFichier()
  UnzipAll "D:\Users\BrunoM45\Documents\Mes Docs EXCEL\Fichier.zip", "D:\Users\BrunoM45\Documents\Mes Docs EXCEL\"
End Sub
 
Function UnzipAll(ZipFile As String, Optional sDest As String = "") As String
  On Error GoTo Error_UnzipAll
 
  Dim oshell As Object
  Dim oSrcFolder As Object
  Dim oDestFolder As Object
  Dim Itm As Object
 
  Set oshell = CreateObject("Shell.Application")
  Set oSrcFolder = oshell.Namespace(CVar(ZipFile))
  Set oDestFolder = oshell.Namespace(CVar(sDest))
 
  For Each Itm In oSrcFolder.items
    oDestFolder.CopyHere Itm
  Next Itm
  UnzipAll = "OK"
 
Exit_UnzipAll:
  Set Itm = Nothing
  Set oSrcFolder = Nothing
  Set oDestFolder = Nothing
  Set oshell = Nothing
  Exit Function
 
Error_UnzipAll:
  UnzipAll = Err.Number & " – " & Err.Description
  Resume Exit_UnzipAll
End Function

A+

[arnaudTHE]

Merci BrunoM45, je vais tester ta proposition.
Dès que j'en sais un peu plus, je vous tiens au courant!