Connection ADODB fichier Zip
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:
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:
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:
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! :ccool:
