nesroune
Messages postés5Date d'inscriptionmercredi 9 juillet 2008StatutMembreDernière intervention24 juillet 2008
-
10 juil. 2008 à 12:16
nesroune
Messages postés5Date d'inscriptionmercredi 9 juillet 2008StatutMembreDernière intervention24 juillet 2008
-
11 juil. 2008 à 08:53
je veux extraire de donnees d'une base dans access et les mettre dans excel
en effet je suis parvenue exporter toute une table mais ce que je veux c d'extraire quelque colonne d'une table donnée
nesroune
Messages postés5Date d'inscriptionmercredi 9 juillet 2008StatutMembreDernière intervention24 juillet 2008 10 juil. 2008 à 13:26
merci d'avoir répondu
le voila le code mais je vous explique que je veux qu'on accede directement a une table de la base pour pouvoir selectionner la colonne que je désire la transmettre a Excel.
Private Sub CommandButton1_Click()
On Error GoTo Err_Commande1_Click
Dim Champ1 As String
Dim MonFichier As String
'Attribue un nom à votre champ, le champ est A1
Champ1 = [A1]
'Défini le nom de votre fichier Excel
MonFichier = "Classeur1.xls"
'Ouvre l'application Excel
Set MonXL = CreateObject("Excel.Application") 'Ceci initialise la variable et charge Excel en arrière plan
MonXL.Visible = True 'Rend Excel visible...
MonXL.UserControl = True
'Ouvre MonFichier (accede a la base mais non pas a la table)
MonXL.Workbooks.Open Filename:="C:\\nesrine\\temp.mde"
'Copie les valeurs
MonXL.Range("type").Value = Champ1 'Envoie le contenu du ou des textboxes dans la ou les cellules
Molenn
Messages postés797Date d'inscriptionmardi 7 juin 2005StatutMembreDernière intervention23 février 20117 10 juil. 2008 à 14:26
Pas besoin de tout ça à mon avis.
Tu ne veux extraire que certaines colonnes de ta table ? Crée une requête qui ne contient que les champs qui t'intéressent.
Ensuite, tu utilises la commande :
docmd.TransferSpreadsheet
mais en export cette fois, et tu paramètres le fichier Excel de destination et la page.
L'aide est un peu ardue à lire et comprendre je l'avoue, mais une fois compris et maîtrisé, tu exportes tes données en 2-3 lignes de code.
lillith212
Messages postés1229Date d'inscriptionvendredi 16 novembre 2007StatutMembreDernière intervention16 juin 2009 10 juil. 2008 à 14:40
Salut,
Molenn, le soucis je pense c'est que notre "ami" a de 1 utilisé les assistants pour obtenir ce code et 2 a du faire un copier coller d'un code existant donc à mon avis tu devrais expliquer plus clairement.
S.L.B.
<hr />
Vous n’avez pas trouvé la réponse que vous recherchez ?
Molenn
Messages postés797Date d'inscriptionmardi 7 juin 2005StatutMembreDernière intervention23 février 20117 10 juil. 2008 à 16:15
Je préfèrai éviter parce que, si on ne cherche pas, on apprend pas .. Et comme ce truc là n'est pas forcément intuitif, si on ne cherche pas, et bien, la fois où on veut s'en resservir, on galère
Toutefois, je viens de me rendre compte d'une petite contrainte qui finalemetn ne va peut-être pas arranger (quoique ça puisse se traiter après dans le code, il suffit de le savoir).
Allez, soyons fou :
J'ai une base ACCESS quelconque contenant une table.
Je crée une requête sélection que j'appelle "Requête" qui contient les champs qui m'intéressent.
Je veux que le contenu de "Requête" soit extrait dans le fichier Excel "Toto.xls" situé dans le répertoire "C:"
Là arrive ma limitation : à l'export, on ne peut pas choisir où seront collées les données, la commande crée obligatoirement un onglet dans le fichier Excel cible, ayant pour nom le nom de la table/requête. Mais c'est pas très grave, suffit de le savoir et de gérer après en fonction des besoins.
Dans mon formulaire, dans le code d'un bouton ou ailleurs dans n'importe quelle procédure, il suffit de mettre le code :
Et voilà, ma requête est dans mon fichier Excel en une seule ligne (le type de feuille Excel "acSpreadsheetTypeExcel9" peut être à modifier si tu utilises une version antérieure à Office 2000 je crois, prendre 8 ou 7).
nesroune
Messages postés5Date d'inscriptionmercredi 9 juillet 2008StatutMembreDernière intervention24 juillet 2008 11 juil. 2008 à 08:53
merci bien Molenn
c vrai que c mon premier contact avec Access et VB donc g pas de choix multiples que internet, et heureusement que vous etes la :)
merci encore une fois