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
michdenis
Bonjour,
En supposant que ta requête existe déjà dans l'application le fichier de ta base de données "Access", tu pourrais utiliser quelque chose comme :
Tu dois ajouter dans la fenêtre de l'éditeur de code de ton classeur Excel, la référence suivante : Barre des menus / Outils / Références / et tu coches : "Microsoft Activex Data 2.8 Objects Library"
à adapter, ce n'est qu'un exemple :
'--------------------------------------------- Sub Le_test()
Dim cnt As New ADODB.Connection Dim rst As New ADODB.Recordset Dim Rg As Range Dim StockedSub As New ADODB.Command Dim Base_Data As String Dim NomDeMaSub As String
'Location et Nom de la base de données Base_Data = "C:Comptoir.mdb"
'Nom de la requête existante dans Access NomDeMaSub = "Factures"
' Ouvrir la connection avec la base de donnée cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Base_Data
Set rst = StockedSub.Execute With Worksheets("Feuil1") .Range("A1").CopyFromRecordset rst End With MsgBox "Fait"
rst.Close: cnt.Close Set cnt = Nothing: Set rst = Nothing End Sub '---------------------------------------------
"RobertF" a écrit dans le message de groupe de discussion : Je voudrais exporter 2 requêtes ACCESS sur Feuille1 et Feuille2 respectivement dans un seul fichier EXCEL. Comment faire?
Bonjour,
En supposant que ta requête existe déjà dans l'application le
fichier de ta base de données "Access", tu pourrais utiliser
quelque chose comme :
Tu dois ajouter dans la fenêtre de l'éditeur de code de ton
classeur Excel, la référence suivante :
Barre des menus / Outils / Références / et tu coches :
"Microsoft Activex Data 2.8 Objects Library"
à adapter, ce n'est qu'un exemple :
'---------------------------------------------
Sub Le_test()
Dim cnt As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim Rg As Range
Dim StockedSub As New ADODB.Command
Dim Base_Data As String
Dim NomDeMaSub As String
'Location et Nom de la base de données
Base_Data = "C:Comptoir.mdb"
'Nom de la requête existante dans Access
NomDeMaSub = "Factures"
' Ouvrir la connection avec la base de donnée
cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Base_Data
Set rst = StockedSub.Execute
With Worksheets("Feuil1")
.Range("A1").CopyFromRecordset rst
End With
MsgBox "Fait"
rst.Close: cnt.Close
Set cnt = Nothing: Set rst = Nothing
End Sub
'---------------------------------------------
"RobertF" <RobertF@discussions.microsoft.com> a écrit dans le message de groupe de
discussion : 5B4B9F3E-7D97-4E04-BD20-BF7E56C19D27@microsoft.com...
Je voudrais exporter 2 requêtes ACCESS sur Feuille1 et Feuille2
respectivement dans un seul fichier EXCEL. Comment faire?
En supposant que ta requête existe déjà dans l'application le fichier de ta base de données "Access", tu pourrais utiliser quelque chose comme :
Tu dois ajouter dans la fenêtre de l'éditeur de code de ton classeur Excel, la référence suivante : Barre des menus / Outils / Références / et tu coches : "Microsoft Activex Data 2.8 Objects Library"
à adapter, ce n'est qu'un exemple :
'--------------------------------------------- Sub Le_test()
Dim cnt As New ADODB.Connection Dim rst As New ADODB.Recordset Dim Rg As Range Dim StockedSub As New ADODB.Command Dim Base_Data As String Dim NomDeMaSub As String
'Location et Nom de la base de données Base_Data = "C:Comptoir.mdb"
'Nom de la requête existante dans Access NomDeMaSub = "Factures"
' Ouvrir la connection avec la base de donnée cnt.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Base_Data
Set rst = StockedSub.Execute With Worksheets("Feuil1") .Range("A1").CopyFromRecordset rst End With MsgBox "Fait"
rst.Close: cnt.Close Set cnt = Nothing: Set rst = Nothing End Sub '---------------------------------------------
"RobertF" a écrit dans le message de groupe de discussion : Je voudrais exporter 2 requêtes ACCESS sur Feuille1 et Feuille2 respectivement dans un seul fichier EXCEL. Comment faire?
