Quelles sont les "command line" disponibles avec Excel?

Le
RobertF
Je voudrais exporter 2 requêtes ACCESS sur Feuille1 et Feuille2
respectivement dans un seul fichier EXCEL. Comment faire?
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #20788221
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

StockedSub.ActiveConnection = cnt
StockedSub.CommandText = NomDeMaSub

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" discussion :
Je voudrais exporter 2 requêtes ACCESS sur Feuille1 et Feuille2
respectivement dans un seul fichier EXCEL. Comment faire?
Publicité
Poster une réponse
Anonyme