ADO - Fournisseur non trouvé

Question

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

cs_Le Pivert · Answer

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

Papyx · Answer

Je connais ce principe, mais je préfère utiliser ADO pour la raison qui suit :

https://support.microsoft.com/fr-fr/topic/excelado-montre-comment-utiliser-ado-pour-lire-et-%C3%A9crire-des-donn%C3%A9es-dans-des-classeurs-excel-bfb26f12-ba6a-91be-7fd4-4aadf1ff1afa

ADO - Fournisseur non trouvé

2 réponses

Discussions similaires

Newsletters