Pilote USAM introuvable

Le
Brat'ac
Bonjour,

En essayant de récupérer des données dans un classeur non ouvert, j'ai
le message suivant

"Pilote ISAM introuvable"

J'ai essayé plusieurs "réparations" trouvés sur le net sans résultat.

j'ai enregistré msexcl40.dll avec Regsvr32.exe et toujours pareil.

Qui peut m'aider ?

Merci

Windows 10 avec Excel 2007 Pro (12.0.6771.5000)SP3 MSO (12.0.6772.5000)
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
News.aioe.org
Le #26440793
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
Brat'ac
Le #26440940
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
Jacquouille
Le #26440958
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 :

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
Publicité
Poster une réponse
Anonyme