ADO - Fournisseur non trouvé

Fermé
Papyx Messages postés 315 Date d'inscription dimanche 16 septembre 2007 Statut Membre Dernière intervention 17 septembre 2021 - 17 sept. 2021 à 13:21
Papyx Messages postés 315 Date d'inscription dimanche 16 septembre 2007 Statut Membre Dernière intervention 17 septembre 2021 - 17 sept. 2021 à 19:06
Bonjour,
Voici les instructions pour ma connexion :

Const MonFichier = "C:\.........\Annuaire téléphonique.xls"
Set Connexion = CreateObject("ADODB.Connection")
With Connexion
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Extended Properties").Value = "Excel 8.0"
.Open MonFichier
......
.Close
End With

cela fonctionne très bien en VBA,
mais en VBS, le fournisseur n'est pas trouvé.

Configuration: Windows / Chrome 93.0.4577.82

2 réponses

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
17 sept. 2021 à 18:51
Bonjour,

j'ai trouvé cela qui est différent comme approche. Mais si ça peut faire l'affaire:

https://vb.developpez.com/faq/vbs?page=Applications-Externes#Comment-piloter-Excel-pour-creer-un-classeur-xls

ce qui donne dans ton cas:

'https://vb.developpez.com/faq/vbs?page=Applications-Externes#Comment-piloter-Excel-pour-creer-un-classeur-xls
Dim xlapp, classeur, feuille 
Set xlapp = CreateObject("Excel.Application") 
xlapp.Visible = True 
Set classeur = xlapp.Workbooks.Open("C:\Users\LePivert\Documents\essai.xlsx")
Set feuille = xlapp.ActiveSheet 
feuille.Range("A1") = "Rajout du texte en cellule A1" 
Classeur.Saveas "C:\Users\LePivert\Documents\essai.xlsx" 
classeur.Close True 'quitte en sauvant 
xlApp.quit 
Set classeur = Nothing 
Set xlapp = Nothing



0
Papyx Messages postés 315 Date d'inscription dimanche 16 septembre 2007 Statut Membre Dernière intervention 17 septembre 2021 11
17 sept. 2021 à 19:06
0