salut tout le monde,
je veux à partir de mon application VB, qui exploite une base de données sur SQL SERVER, de créer un fichier EXCEL qui contiendra les données d'une requête.
est ce que quelqu'un peut m'aider dans ce sens?
merci d'avance![]()
salut tout le monde,
je veux à partir de mon application VB, qui exploite une base de données sur SQL SERVER, de créer un fichier EXCEL qui contiendra les données d'une requête.
est ce que quelqu'un peut m'aider dans ce sens?
merci d'avance![]()
Bonjour!
Facile: visite les tutoriels de ce site, et tu trouveras le code que tu cherches, déjà tout écrit, et surtout commenté et expliqué.
Mais commence par cette recherche personnelle.
(Message à tous ceux qui ont répondu au sondage d'Ouskel'n'or: J'ai été bon, là?)
Tu vas fort, Megaxel...![]()
Tiens j'ai un code qui va te rappeler quelque chose, version Megaxel...
Attention (je cite Megaxel)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Sub VB_OuvrirExcel() 'Version Megaxel 'Déclaration des variables Dim appExcel As Excel.Application 'Application Excel Dim wbExcel As Excel.Workbook 'Classeur Excel Dim wsExcel As Excel.Worksheet 'Feuille Excel 'Ouverture de l'application Set appExcel = CreateObject("Excel.Application") 'Ajout d'un classeur car à l'ouverture d'Excel il n'y a aucun classeur d'ouvert appExcel.Workbooks.Add 'Ceci n'est nécessaire que si vous n'ouvrez pas un fichier existant 'Récupération du classeur par défaut Set wbExcel = appExcel.ActiveWorkbook 'Récupération de la feuille par défaut Set wsExcel = wbExcel.ActiveSheet 'ou ... Version 2 'Théocourant Set appExcel = CreateObject("Excel.Application") Set WExl = Application.Workbooks.Open _ (Filename:="LeFichier.xls", UpdateLinks:=False, AddToMRU:=False, Editable:=True) WExl.Sheets("Feuil1").Cells(1, 1).Value = "Ma donnée..." WExl.Close True, "./Rep/LeFichier.xls" End SubMerci Megaxel !Oui! Le copier-coller peut passer en une fraction de seconde du statut de "meilleur ami" à celui de "pire ennemi"...
A+
Ha ben bravo... Moi qui voulais devenir super rigoureux et strict, tu me ramènes aux temps anciens (à peu près... hier) où je répondais à tous les posts que je comprenaient, même si la question était posée en style SMS, pleine de fôte d'hortograffes, sans "bonjour", ni "s'il vous plait"...
![]()
C'était l'bon temps...
![]()
Attends, il est 'hachement poli Jaub,et puis"salut tout le monde, "Je ne pouvais pas le laisser comme ça.merci d'avance![]()
Bref, je te laisse avec lui, à lundi et bon week-end![]()
Ben oui, il est poli, et c'est pour ça que le "Megaxel Nouveau" (qui est arrivé un peu après le 3è jeudi de novembre, pas comme le Beaujolais...) a répondu.
Mais comme la question est traitée dans les tutoriels, Mega-New-Xel l'a invité à s'y rendre.
![]()
Bon week-end, Ousk' !
Et moi, j'ai les crocs...
comment on fait si on développe ce prog sur un PC qui a office2003 avec OWC11 pour qu'il marche sur un PC qui a office 2000 avec OWC9 ?
je n'arrive pas à trouver de solutions
Bonjour,
Si tu as juste besoin de mettre des données dans une feuille Excel sans faire de mise en forme, il existe une méthode qui permet de le faire en s'affanchissanr d'Excel.
Dis-moi si tu es intéressé ?
c clair que je suis intéressé car dans mon prog, en fait l'utilisateur va rentrer deux valeurs, ces valeurs vont dans un fichier .xls et à partir de ce fichier j'affiche un graph (chartspace) sur mon form et un résumé de ces valeurs, et mon blem c que le PC ou sera installé mon prog a excel 2000 avec les OWC9 et que mon PC ou je développe a excel2003 avec OWC11, donc problème, mon programme ne se lance pas et me dis que OWC11 n'est pas installé. Si y'à une manière plus simple je suis preneur
Re,
Ce qu je te propose, c'est uniquement un bout de code qui remplit une feuille Excel. Mais en aucun cas, ça te permettra de piloter pour afficher un graphique. Le résultat est une feuille Excel brute sans les menus ni les commandes d'excel.
ok, moi j'ai déjà le code pour les graph c pas un souci, mais je veux bien ton code
OK,
PS : Str_Nom(i) et Str_Prenom(i) sont des variables tableau
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Chemin = App.Path & "\MonFichier.XLS" Set fso = CreateObject("Scripting.FileSystemObject") Set a = fso.CreateTextFile(Chemin, True) ' Titres des colonnes ' chr (34) remplace les guillements à la suite de l'instruction a.writeLine "ID;PWXL;N;E" ' Début du codage excel a.writeLine "C;Y1;X1;K" & Chr(34) & ("Nom") & Chr(34) a.writeLine "C;Y1;X2;K" & Chr(34) & ("Prénom") & Chr(34) Ligne = 2 i = 1 Do While Not conn.EOF a.writeLine "C;Y" & Ligne & ";X1;K" & Chr(34) & (Str_Nom(i)) & Chr(34) a.writeLine "C;Y" & Ligne & ";X2;K" & Chr(34) & (Str_Prenom(i)) & Chr(34) Ligne = Ligne + 1 i = i + 1 Loop a.writeLine "E" ' Fin du codage excel a.Close
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager