ADO - Fournisseur non trouvé
Papyx
Messages postés
315
Date d'inscription
Statut
Membre
Dernière intervention
-
Papyx Messages postés 315 Date d'inscription Statut Membre Dernière intervention -
Papyx Messages postés 315 Date d'inscription Statut Membre Dernière intervention -
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é.
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
A voir également:
- Impossible de trouver le fournisseur. il est peut-être mal installé
- Trouver adresse mac - Guide
- Comment trouver le mot de passe wifi sur son téléphone - Guide
- Trouver un film sans le titre - Télécharger - Divers TV & Vidéo
- Ou trouver le presse papier - Guide
- Ou trouver l'adresse ip - Guide
2 réponses
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:
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
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
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