Je rencontre un problème dans une "vieille" application développée voici
maintenant 4 ans (déjà !) et qui fonctionnait jusqu'à il y a peu mais qui ne
fonctionne plus, à cause d'un dysfonctionnement en Automation lorsque
j'essaye de créer une instance de MS Access, à l'aide de GetObject.
Set ACC = GetObject("x:\monrép\monfichier.mdb") <<<< Ici plus rien ne se
passe, "ACC" reste à "Nothing"
Cela a toujours fonctionné jusqu'alors ! Je n'ai aucun message de retour,
rien me permettant d'en trouver la cause.
J'utilisais cette méthode pour générer des fichiers Excel à partir de tables
ou de requêtes à l'aide la ligne suivante. Bien évidemment, comme ACC reste
à Nothing cela ne fonctionne plus !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
david
Salut,
essayes plutôt la création d'objt OLE plutôt que l'automation (qui n'est plus trop supportée par les nouveaux OS windows). Pour ce faire, fait comme ça : Sub exporterRequeteVersExcel(ByVal nomReq As String, ByVal nomFichierXL As String) Dim acc As Object
Set acc = CreateObject("Access.Application") acc.DBEngine.OpenDatabase ("") acc.DoCmd.OutputTo acOutputQuery, nomReq, acFormatXLS, nomFichierXL, False acc.Quit acQuitSaveAll Set acc = Nothing End Sub
A+
Salut,
essayes plutôt la création d'objt OLE plutôt que l'automation (qui
n'est plus trop supportée par les nouveaux OS windows).
Pour ce faire, fait comme ça :
Sub exporterRequeteVersExcel(ByVal nomReq As String, ByVal nomFichierXL
As String)
Dim acc As Object
Set acc = CreateObject("Access.Application")
acc.DBEngine.OpenDatabase ("")
acc.DoCmd.OutputTo acOutputQuery, nomReq, acFormatXLS,
nomFichierXL, False
acc.Quit acQuitSaveAll
Set acc = Nothing
End Sub
essayes plutôt la création d'objt OLE plutôt que l'automation (qui n'est plus trop supportée par les nouveaux OS windows). Pour ce faire, fait comme ça : Sub exporterRequeteVersExcel(ByVal nomReq As String, ByVal nomFichierXL As String) Dim acc As Object
Set acc = CreateObject("Access.Application") acc.DBEngine.OpenDatabase ("") acc.DoCmd.OutputTo acOutputQuery, nomReq, acFormatXLS, nomFichierXL, False acc.Quit acQuitSaveAll Set acc = Nothing End Sub
A+
Gloops
david a écrit, le 08/11/2005 10:57 :
Salut,
Salut
Set acc = CreateObject("Access.Application")
Ah ben mince alors, moi qui croyais que c'était ça, qu'on appelait Automation. Tout faux alors ?
david a écrit, le 08/11/2005 10:57 :
Salut,
Salut
Set acc = CreateObject("Access.Application")
Ah ben mince alors, moi qui croyais que c'était ça, qu'on appelait
Automation. Tout faux alors ?
essayes plutôt la création d'objt OLE plutôt que l'automation (qui n'est plus trop supportée par les nouveaux OS windows). Pour ce faire, fait comme ça : Sub exporterRequeteVersExcel(ByVal nomReq As String, ByVal nomFichierXL As String) Dim acc As Object
Set acc = CreateObject("Access.Application") acc.DBEngine.OpenDatabase ("") acc.DoCmd.OutputTo acOutputQuery, nomReq, acFormatXLS, nomFichierXL, False acc.Quit acQuitSaveAll Set acc = Nothing End Sub
A+
Merci
Me semble avoir déjà essayé mais je vais refaire le test ;-)
"david" <capelle.david@worldonline.fr> a écrit dans le message de news:
1131443845.099317.36510@z14g2000cwz.googlegroups.com...
Salut,
essayes plutôt la création d'objt OLE plutôt que l'automation (qui
n'est plus trop supportée par les nouveaux OS windows).
Pour ce faire, fait comme ça :
Sub exporterRequeteVersExcel(ByVal nomReq As String, ByVal nomFichierXL
As String)
Dim acc As Object
Set acc = CreateObject("Access.Application")
acc.DBEngine.OpenDatabase ("")
acc.DoCmd.OutputTo acOutputQuery, nomReq, acFormatXLS,
nomFichierXL, False
acc.Quit acQuitSaveAll
Set acc = Nothing
End Sub
essayes plutôt la création d'objt OLE plutôt que l'automation (qui n'est plus trop supportée par les nouveaux OS windows). Pour ce faire, fait comme ça : Sub exporterRequeteVersExcel(ByVal nomReq As String, ByVal nomFichierXL As String) Dim acc As Object
Set acc = CreateObject("Access.Application") acc.DBEngine.OpenDatabase ("") acc.DoCmd.OutputTo acOutputQuery, nomReq, acFormatXLS, nomFichierXL, False acc.Quit acQuitSaveAll Set acc = Nothing End Sub
