begin process at 2012 02 15 12:25:46
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Visual Basic 6

 > 

Divers

 > 

Débutants

 > 

Access-Excel-VB


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Access-Excel-VB

jeudi 8 juin 2006 à 00:23:27 | Access-Excel-VB

philao

Comment exporter une table Access dans Excel par l'intermédiaire de Visual Basic ?
jeudi 8 juin 2006 à 00:41:45 | Re : Access-Excel-VB

mortalino

Membre Club
En cherchant par le moteur de recherche ! @++ --Mortalino-- Le Mystérieux Chevalier "Provençal, le Gaulois" N'oubliez pas de lire le règlement !
jeudi 8 juin 2006 à 00:42:36 | Re : Access-Excel-VB

mortalino

Membre Club
Et en lisant le règlement www.vbfrance.com/reglement.aspx Merci
jeudi 8 juin 2006 à 00:54:54 | Re : Access-Excel-VB

philao

Désolé je ne comprend pas la réponse
jeudi 8 juin 2006 à 01:01:49 | Re : Access-Excel-VB

mortalino

Membre Club
Généralement, on pose une question dans le forum en dernier recours, ou lorsque l'on a un code, et qu'une syntaxe plante quelque part. Te concernant, tout en haut de cette page, sous les pubs, tu as "Rechercher sur le site" avec une case. Si tu tapes dedans "lire access" tu auras des codes pour lire des données dans des tables Access. Puis, tape "écrire excel" et tu sauras comment faire pour replacer ces données dans un tableur Excel. Concernant le fait que je te dise de lire le réglement, au cas où le lien ne fonctionne pas avec ton navigateur internet : Règles pour poster un nouveau message sur le forum : On fait une recherche sur le site avant de poster une question. On est poli : « bonjour » et « merci » sont des mots appréciés. On utilise un langage correct : pas de langage SMS, et on fait attention à l'orthographe. On demande une explication sur un sujet précis, on ne l'exige pas. On ne pose qu'une question par topic. On pose une question aussi précise que possible. On précise les détails du problème : contexte, langage, message d'erreur ... On pense à donner le bout de code qui pose problème, et préciser le langage utilisé. On ne demande pas un programme tout fait, on ne demande que de l'aide sur un problème concret. On pense à laisser un petit message lorsqu'un problème est résolu et à cliquer sur le bouton « réponse acceptée ». Merci de ton attention et bon courage quand même pour ton prog. @++ --Mortalino-- Le Mystérieux Chevalier "Provençal, le Gaulois" N'oubliez pas de lire le règlement !
jeudi 8 juin 2006 à 01:20:46 | Re : Access-Excel-VB

philao

Bonsoir Mortalino

C'est bien de temps en temps de faire des rappels à l'ordre. Quant à moi, je suis sincèrement navré de ma demande quelque peu cavalière. J'accepte vos remarques et jen prend acte.

Pour revenir à ma demande, j'ai essayé un code qui est publié sur ce même site : Source N° 1097. La difficulté est que le tableau excel ne reçoit que le premier enregistrement de la table, et pas les autres. Je n'ai pas beaucoup d'expérience en la matière, j'apprend tout seul avec des livres et c'est long et fastidieux. De plus on ne trouve pas tout.

Encore toutes mes excuses

 

jeudi 8 juin 2006 à 01:41:33 | Re : Access-Excel-VB

mortalino

Membre Club
Réponse acceptée !
Pas de problème, et en plus, je suis brave, je t'ai fait un bout de code : Dim Rs As Recordset, sql As String, i As Integer Dim Item (1 To X) As String 'remplace X par le nombre d'enregistrement Dim Nb As Integer NomBase = App.Path & "\nom du fichier" 'remplace nom fichier par le nom du fichier Access Nb = 1 Set db = DBEngine.Workspaces(0).OpenDatabase(NomBase) sql = "SELECT NomChamps FROM TableX" 'remplace NomChamps et TableX Set Rs = db.OpenRecordset(sql) Rs.MoveFirst Do While Rs.EOF = False Item (Nb) = Rs!NomChamps 'remplace NomChamps Nb = Nb + 1 Rs.MoveNext Loop Set Rs = Nothing db.Close Dim objExcel As Object, objWorkBook As Object, objFeuille As Object Set objExcel = CreateObject("excel.application") Set objWorkBook = objExcel.WorkBooks.Open ("C:/Nom du chemin/nomfichier.xls") Set objFeuille = objWorkBook.WorkSheets("Nom de la feuille") 'met le bon nom de feuille objExcel.Application.Visible = True For i = 1 To X 'X = le nombre que tu as mis dans "Dim Item (1 To X)" objFeuille.Cells(i, 1).Value = Item (i) Next i Set objExcel = Nothing Set objWorkBooks = Nothing Voilà, je pense que ça te fait un bon début, essaie de l'adapter suivant tes besoins (quelques termes à remplacer, certainement) Pense à cocher, dans les références, "Microsoft DAO 3.6 (ou 3.51)" @++ --Mortalino-- Le Mystérieux Chevalier "Provençal, le Gaulois" N'oubliez pas de lire le règlement !
jeudi 8 juin 2006 à 02:09:09 | Re : Access-Excel-VB

philao

Un grand merci pour votre gentillesse. Je vais essayer ce code et l'adapter si besoin.
En fait j'ai conçu une application avec VB6, et j'utilise une base de données Access pour stocker des informations (Je fais ça pour une association d'insertion de jeunes en détresse). On voudrait pouvoir utiliser les données que nous avons stockés dans notre application en les exportant vers Excel (que l'un d'entre nous connait bien). Donc le but est de lancer à partir de notre application l'exportation de ces données vers excel. Tous les codes que je trouve ne marchent pas car je pense qu'ils sont écrit pour Access (pour un transfert Access>Excel). Nous c'est différent nous voulons le faire à l'aide de notre application qui tourne avec VB6.
Encore merci et bon vent
jeudi 8 juin 2006 à 02:10:58 | Re : Access-Excel-VB

mortalino

Membre Club
De rien et bon courage pour l'association, c'est beaucoup de boulot. @++ --Mortalino-- Le Mystérieux Chevalier "Provençal, le Gaulois" N'oubliez pas de lire le règlement !
jeudi 8 juin 2006 à 19:59:59 | Re : Access-Excel-VB

philao

Bonjour Motalino

J'ai essayé le code il fonctionne, mais la table Excel n'affiche qu'une seule colonne.
En effet, je n'arrive pas à entrer dans le code le nom des champs ici :
Do While Rs.EOF = False
    Item (Nb) = Rs!NomChamps  'remplace NomChamps
Il n'accepte qu'un seul champ. J'ai essayé plusieurs combinaisons mais aucune ne marche.
Au total, ma table contient 15 champs je suis donc loin du compte !
Je suis désolé de vous embêter, mais si vous pouviez encore m'aider
Merci par avance

1 2

Cette discussion est classée dans : access, vb, excel


Répondre à ce message

Sujets en rapport avec ce message

Excel et Access [ par Christophe ] Salut à tous,A partir de mon projet VB j'ai deux questions: Excel1)Je voudrai iconifier Excel à son ouverture, j'ai écrisExcel.Application help please access +VB [ par kyp ] + excel mm...bonjour je suis +/-debutant en prog,et je dois realiser un prog en VB ki accede a une base de données access,pour utiliser ces données ds VBA utilisable sous VB ??? [ par weload ] J'aimerais importer un doc excel dans ma BD access.L'assistant d'importation d'access, de fichier excel vers access, me donne le code suivant : DoCmd. c est vraiment urgent comment lier un fichier excel a access sous vb [ par ria94 ] je voudrai absolument savoir svp dans le cadre de mon stage le commande pour lier un fichier excel a access sous vbmerci a tous Lier un fichier excel a access sous vb [ par ria94 ] Salut a tous j ai probleme je suis debutant et je voudrais savoir comment peut on sous vb lier un fihier excel a access afin de transformer le fichier Script VB ou VBA qui permet de faire le lien avec Access et Excel [ par marae ] Bonjour,Je suis actuellement en train de faire une BDD client pour gérer la facturation des clients.L'utilisateur télécharge une fois par semaine une Ouvrir excel d'une macro access en VB [ par nquesa ] Bonjour,j'aimerai ouvrir, enregistrer et fermer en cacher un fichier existant excel (version 2000) depuis une macro access en VB.Merci d'avance pour v importation données excel vers access sous vb [ par rahmoun111 ] Bonjour J'ai un projet de base de données dont j'ai integré un module de l'exportation et de l'importation de données soit à partir d'excel ou vers ex Recordset VB ACCESS vers Feuille Excel [ par zncpo ] comment recuperer dans excel la valeur d'un recordset d'access ?dans le code vb d'access, j'aimerai ouvrir un fichier excel et lui coller chaque valeu Excel, Access et VB [ par acjf ] Bonjour,J'ai développé un formulaire dans Excel. J'ai créé un bouton de sortie. L'évènement Click de ce bouton ferme le fichier Excel. J'aimerai ensui


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 4,212 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales