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

Question

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&#233;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&#232;s BD********** 

'Nom:      fExportCsvAccess (Function) 
'But:   Exporter un document au format csv dans une base de donn&#233;es 
'Inputs:      strFile - document csv et son chemin 
'             strDestinationDB - chemin de destination de la base de donn&#233;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&#233;es 
Set DB1 = CreateDatabase(Nom_Base_Access, dbLangGeneral) 

' Cr&#233;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&#233;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&#233;ration de la m&#233;moire 
Set obj_Access = Nothing 

 fExportCsvAccess = True 
ExitHere: 
  On Error Resume Next 
  Exit Function 
ErrHandler: 
  fExportCsvAccess = False 
  Resume ExitHere 

End Function

valtrase · Accepted Answer

Re,
Un simple dir devrai te suffire pour v&#233;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&#233;

cs_Jack · Answer

Salut
Ne te r&#233;jouis pas trop vite, je n'ai pas la r&#233;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&#233;e en param&#232;tre. Volontaire ?
Suffit d'enlever les "
Est-ce que &#231;a r&#233;soudra ton probl&#232;me, myst&#232;re ...

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

valtrase · Answer

Salut,
Suis d'accord pour les " que tu dois enlever et en plus tu interverti 2 lignes
Tu dois d'abord cr&#233;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&#233;

1gazelle · Answer

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&#233;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?

Un composant activeX ne peut pas créer l'objet : quesaco??

4 réponses

Discussions similaires