Discussion :

[JauB]

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

[Megaxel]

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à? )

[ouskel'n'or]

Tu vas fort, Megaxel...

Tiens j'ai un code qui va te rappeler quelque chose, version 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 Sub

Attention (je cite Megaxel)

Oui! Le copier-coller peut passer en une fraction de seconde du statut de "meilleur ami" à celui de "pire ennemi"...

Merci Megaxel !

A+

[Megaxel]

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...

[ouskel'n'or]

Attends, il est 'hachement poli Jaub,

"salut tout le monde, "

et puis

merci d'avance

Je ne pouvais pas le laisser comme ça.

Bref, je te laisse avec lui, à lundi et bon week-end

[Megaxel]

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...

[alexxx69]

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

[pc75]

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é ?

[alexxx69]

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

[pc75]

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.

[alexxx69]

ok, moi j'ai déjà le code pour les graph c pas un souci, mais je veux bien ton code

[pc75]

OK,

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

PS : Str_Nom(i) et Str_Prenom(i) sont des variables tableau