J'ai monté une macro VBA (sous excel) qui me permet de créer des requetes Access afin de traiter des fichier dont j'ai besoin. Là, au moment de crier victoire, je m'aperçois qu'il me manque une étape décisive : exporter les données générées par mes requêtes vers un fichier Excel.
J'ai donc tenté avec le code ci-après mais il ne fonctionne pas, j'ai le message d'erreur : Propriété non trouvé
Sub export_spreadsheets()
If Mois_req = "" Then
Mois_req = InputBox("Entrer la date fin de mois à utiliser au format [MM/AAAA]")
Mois_req = Replace(Mois_req, "/", "-")
End If
Dim objACCESS As Object 'Mon Objet ACCESS
Set objACCESS = CreateObject("Access.Application")
objACCESS.OpencurrentDatabase ("D:\Tests\TEST.accdb")
objACCESS.Application.Visible = True
'Ouvre la requête avant de l'exporter
objACCESS.DoCmd.OpenQuery "Requete_em3", acViewNormal, acEdit
objACCESS.DoCmd.OutputTo acOutputQuery, "Requete_em3", "ExcelWorkbook(*.xlsx)", ThisWorkbook.Path & "\Requete_em3_" & Mois_req & ".xlsx", False
objACCESS.DoCmd.OpenQuery "Requete_in_em3", acViewNormal, acEdit
objACCESS.DoCmd.OutputTo acOutputQuery, "Requete_in_em3", "ExcelWorkbook(*.xlsx)", ThisWorkbook.Path & "\Requete_in_em3_" & Mois_req & ".xlsx", False
objACCESS.Quit
Set objACCESS = Nothing
End Sub
Je pensais au départ que c'est parce qu'il ne reconnaissait pas le nom de mes requêtes mais cela me semble bizarre dans la mesure où il arrive à les ouvrir (avec le DoCmd.OpenQuery). J'ai aussi tenté de ne pas remplir le chemin réseau afin que Access me propose de le définir manuellement mais cela donne le même résultat.
Le plus étrange, c'est que quand j'exécute la ligne de code suivante (ligne 22) dans Access directement :
DoCmd.OutputTo acOutputQuery, "Requete_in_em3", "ExcelWorkbook(*.xlsx)", Repertoire & "\Requete_in_em3_" & Mois_req & ".xlsx", False
' "Thisworkbook.path" remplacé par la variable "Repertoire" afin d'exécuter correctement le code dans Access
J'obtiens bien le résultat escompté. Access comprend bien qu'il faut qu'il me fasse l'extraction dans le répertoire spécifié mais impossible en passant par VB Excel.
peut-être en fait, qu'Excel ne connaisse pas le symbole acOutputQuery en fait; essaie de le remplacer par la valeur 1
(si tu tapes dans la fenêtre Exécution de VBA ? acOutputquery est-ce que ça te renvoie une valeur ou la même erreur ?)
Exporter données Access vers fichier Excel VBA
× Après avoir cliqué sur "Répondre" vous serez invité à vous connecter pour que votre message soit publié.
× Attention, ce sujet est très ancien. Le déterrer n'est pas forcément approprié. Nous te conseillons de créer un nouveau sujet pour poser ta question.
Going Further. Code in Progress..
Going Further. Code in Progress..
Going Further. Code in Progress..