Pilote USAM introuvable

Bonjour,

Es-tu sûr que tu n'as pas une erreur dans la chaîne de connexion?

Un petit exemple :


'------------------------------------------------------
Sub test()

Dim File As String
Dim Con As New ADODB.Connection
Dim Requete As String
Dim NomFeuille As String

'Nom de la feuille où se retrouve les données dans
'le classeur fermé.

NomFeuille = "MichD"

'Chemin & nom du fichier contenant les données à extraire
File = "c:UsersMichDDocumentsMonClasseur.xlsm"

'Chaîne de connextion à la base de données
Con.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & File & ";" & _
"Extended Properties=""Excel 12.0;HDR=NO;"""
'Si la base contient une ligne d'en-tête, change
'le "NO" pour "YES"

'Texte de la requête
Requete = "SELECT * From [" & NomFeuille & "$]"
'Exécution de la requête. Ici, plusieurs paramètres sont possibles.
Rst.Open Requete, Con, adOpenForwardOnly, adLockOptimistic


End Sub
'------------------------------------------------------

MichD

News.aioe.org a formulé la demande :


Bonjour,

Bon finalement j'ai réussi à m'en sortir comme cela.

Merci de l'aide et bonne journée (sous une forte pluie à l'ouest de
Brest :'( )
----------------------------------------------------------------------------------------------------------
Function Lire_Une_Cellule(repertoire As String, fichier As String,
feuille As String, cellule As String)
Application.Volatile
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & repertoire & "" & fichier & _
";Extended Properties=""Excel 12.0;HDR=No;"";"
Set rs = cnn.Execute("SELECT * FROM [" & feuille & "$" & cellule &
":" & cellule & "]")
Lire_Une_Cellule = rs(0)
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Function
--------------------------------------------------------------------------------------------------

Bonjour,

Es-tu sûr que tu n'as pas une erreur dans la chaîne de connexion?

Un petit exemple :


'------------------------------------------------------
Sub test()

Dim File As String
Dim Con As New ADODB.Connection
Dim Requete As String
Dim NomFeuille As String

'Nom de la feuille où se retrouve les données dans
'le classeur fermé.

NomFeuille = "MichD"

'Chemin & nom du fichier contenant les données à extraire
File = "c:UsersMichDDocumentsMonClasseur.xlsm"

'Chaîne de connextion à la base de données
Con.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & File & ";" & _
"Extended Properties=""Excel 12.0;HDR=NO;"""
'Si la base contient une ligne d'en-tête, change
'le "NO" pour "YES"

'Texte de la requête
Requete = "SELECT * From [" & NomFeuille & "$]"
'Exécution de la requête. Ici, plusieurs paramètres sont possibles.
Rst.Open Requete, Con, adOpenForwardOnly, adLockOptimistic


End Sub
'------------------------------------------------------

MichD

C'est quand même mieux quand on a retrouvé le pilote .....
-))

Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Brat'ac" a écrit dans le message de groupe de discussion :
mn.12aa7e1899046bb7.135221@yopmail.com...

News.aioe.org a formulé la demande :


Bonjour,

Bon finalement j'ai réussi à m'en sortir comme cela.

Merci de l'aide et bonne journée (sous une forte pluie à l'ouest de
Brest :'( )
----------------------------------------------------------------------------------------------------------
Function Lire_Une_Cellule(repertoire As String, fichier As String,
feuille As String, cellule As String)
Application.Volatile
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & repertoire & "" & fichier & _
";Extended Properties=""Excel 12.0;HDR=No;"";"
Set rs = cnn.Execute("SELECT * FROM [" & feuille & "$" & cellule &
":" & cellule & "]")
Lire_Une_Cellule = rs(0)
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Function
--------------------------------------------------------------------------------------------------

Bonjour,

Es-tu sûr que tu n'as pas une erreur dans la chaîne de connexion?

Un petit exemple :


'------------------------------------------------------
Sub test()

Dim File As String
Dim Con As New ADODB.Connection
Dim Requete As String
Dim NomFeuille As String

'Nom de la feuille où se retrouve les données dans
'le classeur fermé.

NomFeuille = "MichD"

'Chemin & nom du fichier contenant les données à extraire
File = "c:UsersMichDDocumentsMonClasseur.xlsm"

'Chaîne de connextion à la base de données
Con.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & File & ";" & _
"Extended Properties=""Excel 12.0;HDR=NO;"""
'Si la base contient une ligne d'en-tête, change
'le "NO" pour "YES"

'Texte de la requête
Requete = "SELECT * From [" & NomFeuille & "$]"
'Exécution de la requête. Ici, plusieurs paramètres sont possibles.
Rst.Open Requete, Con, adOpenForwardOnly, adLockOptimistic


End Sub
'------------------------------------------------------

MichD