Discussion :

[révèr]

Bonjour le forum,

Je me suis inspiré du code de "lecture spécifique d'une cellule" sur ce tutoriel https://silkyroad.developpez.com/VBA...sFermes/#LIV-A


J'ai une erreur "La Table externe n'est pas dans le format attendu" qui se situe sur la ligne ci-dessous... Je dois avouer que, malgré mes recherches, je ne comprends rien... J'ai essayé en farfouillant, mais je suis largué sur ce sujet-là. J'ai bel et bien activé la référence Microsoft ActiveX Data Objects 6.1 Library - Il y a plusieurs X.X Library, et je ne sais pas du tout laquelle je dois choisir, alors j'ai pris la dernière...

Code :

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

Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & " Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"

J'avais auparavant essayé avec le collage du contenu de la feuille et cela avait fonctionné, avec la cellule ça ne fonctionne pas.

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
33
34
Private Sub CommandButton1_Click()
    Dim Source As ADODB.Connection
    Dim Rst As ADODB.Recordset
    Dim ADOCommand As ADODB.Command
    Dim Fichier As String, Cellule As String, Feuille As String
 
    Cellule = "A1:A1"
 
    Feuille = "2019$"
 
    Fichier = "Z:\PBR_LOG\ARIBA_2019\TestVBA\TOTAL\TOTALNord-Est.xlsx"
 
    Set Source = New ADODB.Connection
    Source.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & " Data Source=" & Fichier & ";Extended Properties=""Excel 8.0;HDR=No;"";"
 
    Set ADOCommand = New ADODB.Command
    With ADOCommand
        .ActiveConnection = Source
        .CommandText = "SELECT * FROM [" & Feuille & Cellule & "]"
    End With
 
    Set Rst = New ADODB.Recordset
    Rst.Open ADOCommand, adOpenKeyset, adLockOptimistic
 
    Set Rst = Source.Execute("[" & Feuille & Cellule & "]")
 
    ThisWorkbook.Sheets(4).Range("H1").CopyFromRecordset Rst
 
    Rst.Close
    Source.Close
    Set Source = Nothing
    Set Rst = Nothing
    Set ADOCommand = Nothing
End Sub

Merci pour votre aide !

[révèr]

Solution trouvée après une recherche encore plus approfondie.

Je suis passé de Microsoft.Jet.OLEDB.4.0 à Microsoft.ACE.OLEDB.12.0 ainsi que de Excel 8.0 à Excel 12.0 et cela fonctionne parfaitement !

Navré du dérangement, j'étais vraiment perdu et ne pensait plus trouver la solution par mes propres moyens.

Bon après-midi à vous

[mfoxy]

Bonjour révèr,

Un chouette tuto sur Dvp au sujet des commandes Sql sur Excel, avec des fonctions génériques vraiment bien foutue.
De surcroit avec les tables structurées

https://laurent-ott.developpez.com/t...a-tome-5/#LVII

[révèr]

Merci foxy ! Je potasse ça demain, la journée est terminée et mon cerveau est entrain de me lâcher