Un composant activeX ne peut pas créer l'objet : quesaco?? [Résolu]

Signaler
Messages postés
24
Date d'inscription
mardi 8 mars 2005
Statut
Membre
Dernière intervention
24 mars 2005
-
Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
17 mars 2017
-
Bonjour tout le monde!!!
merci d'avance a tout ceux qui me repondront ou qui me liront.
Via Excel, je genere un doc .csv pour les inserer apres dans un base de données, via access.
et j'ai cet erreur qui apparait pour la ligne en rose :
et j'ai mis des commentaires pour les lecteurs sympas!

'*****************************code accès BD**********

'Nom: fExportCsvAccess (Function)
'But: Exporter un document au format csv dans une base de données
'Inputs: strFile - document csv et son chemin
' strDestinationDB - chemin de destination de la base de données
'Output: True si tout est correct, false autrement
'
Private Function fExportCsvAccess(strFile As String, strDestinationBD As String) As Boolean
Dim obj_Access As Access.Application
Dim Nom_Base_Access As String
Dim Nom_Fichier_Csv As String
Dim DB1 As Database

Nom_Fichier_Csv = "strFile"
Nom_Base_Access = "strDestinationBD"

'creation de la base de données
Set DB1 = CreateDatabase(Nom_Base_Access, dbLangGeneral)

' Création d'un objet Access
Set obj_Access = New Access.Application

' Ouverture de la base Access
obj_Access.OpenCurrentDatabase Nom_Base_Access

' destruction de la table de réception
On Error Resume Next
obj_Access.DoCmd.DeleteObject acTable, "tableDonneeJuste"
On Error GoTo 0

' Importation d'une feuille excel dans access
obj_Access.DoCmd.TransferSpreadsheet acImport, 9, "tableDonneeJuste", Nom_Fichier_Csv, False, "Nom_Fichier_Csv$"
' Fermeture de la base
obj_Access.Quit

' Libération de la mémoire
Set obj_Access = Nothing

fExportCsvAccess = True
ExitHere:
On Error Resume Next
Exit Function
ErrHandler:
fExportCsvAccess = False
Resume ExitHere

End Function

4 réponses

Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
17 mars 2017
4
Re,
Un simple dir devrai te suffire pour vérifier l'existence de ton fichier
If Dir(MoncheminEtNomDeFichier) = "NomDeFichier" Then
....
....
....
End If

Cordialement, Jean-Paul
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 210 internautes nous ont dit merci ce mois-ci

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
67
Salut
Ne te réjouis pas trop vite, je n'ai pas la réponse.
Par contre, je note cette chose bizarre :
Nom_Fichier_Csv = "strFile"
Nom_Base_Access = "strDestinationBD"
Avec ces lignes, Nom_Fichier_Csv contiendra le texte strFile et non pas le contenu de la chaine passée en paramètre. Volontaire ?
Suffit d'enlever les "
Est-ce que ça résoudra ton problème, mystère ...

Vala
Jack
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
17 mars 2017
4
Salut,
Suis d'accord pour les " que tu dois enlever et en plus tu interverti 2 lignes
Tu dois d'abord créer ton application et ensuite ta base

Set obj_Access = New Access.Application
Set DB1 = CreateDatabase(Nom_Base_Access, dbLangGeneral)

Cordialement, Jean-Paul
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé
Messages postés
24
Date d'inscription
mardi 8 mars 2005
Statut
Membre
Dernière intervention
24 mars 2005

Merci beaucoup a tout les deux!
Effectivement je pense que vous avez largement raison!
on va dire que c'etait le soir et que j'etais fatiguée lol
j'ai une autre question, comment verifier l'existence de la base avant de la creer?
y'a t il une fonction qui fait ca?