Accueil > Forum > > > > Access-Excel-VB
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
|
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
|
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
|
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
|
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
|
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
|
|
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
Livres en rapport
|
Derniers Blogs
GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|