Question : Enregistrer des parametres dans une feuille excelRésolu

Question

Bonjour!!

Voila j'aurai besoin de vos services:

En fait j'ai un tableau d&#233;clar&#233; de la sorte :

Public Tableau(0 to 255) as long

Une valeur est stock&#233; dans chaque adresse du tableau , par exemple

Tableau(1) = 1
Tableau(2) = 8
Tableau(3) = 0
Tableau(4) = 10
...

Je voudrai enregistrer ces parametres dans un tableau excel , sur 2 colonnes, et en descendant d'une ligne pour chaque adresses. On aurai donc un truc de la forme :

Tableau(1)  |   1                  | 
Tableau(2)  |   8              |
Tableau(3)  |   0                  |
....

Je ne sais pas du tout comment faire pour g&#233;rer un tableau excel , ni comment le d&#233;clarer... Si une &#226;me charitable pouvait me montrer la voie!!

Merci d'avance!!!!!!

jrivet · Accepted Answer

Re,

A ben ca change tout, excuse moi:

Tiens essaie ca pour voir si ca te vas:
Note: Tu doit rajouter a ton projet la reference Microsoft Excel 9.0 Object Library (si c est pas 9.0, tu mets celle que tu as)

Normalement ca t'ouvre un classeur excel et ca te le rempli.
Tu as juste a appeler SaveTab

Private Sub SaveTab()
Dim Ex As New Excel.Application
Dim WB As New Excel.Workbook
Dim WS As Worksheet
Dim i As Integer


Set WB = Ex.Workbooks.Add
Call WB.SaveAs("C:\Test.xls")
Set WS = WB.Sheets(1)


For i = 0 To 255
    WS.Range("A" & i + 1).Value = "Tableau(" & i & ")"
    WS.Range("B" & i + 1).Value = Tableau(i)
Next i


Set WS = Nothing
Set WB = Nothing
Set Ex = Nothing



End Sub

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

jrivet · Answer

Salut,

Je ne sais pas si ca peu t'aider mais:

Dim i as integer
For i = 0 to 255
   ActiveSheet.Range("A" & i).value = "Tableau(" & i & ")"
   ActiveSheet.Range("B" & i).value = Tableau(i)

next i

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_cyriloo · Answer

Salut , merci pour ta r&#233;ponse. 

Comment faut il faire pour cr&#233;er la feuille excel a utiliser? merci

jrivet · Answer

Re,

Bah tu lance excel, 

Tu ajoutes bouton a ta feuille et tu met le code que je t'ai propose apres avoir double clicker sur le bouton
.

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_cyriloo · Answer

Il me fait une erreur "Un objet est requis". Pourtant j'ai bien ouvertr excel

jrivet · Answer

Re,

Ou as tu declarer ton Tableau Public Tableau(0 to 255) as long????

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_cyriloo · Answer

Non non , tout y est pourtant

cs_cyriloo · Answer

y a pas un composant a rajouter?

jrivet · Answer

Re,

JE te demandais :

A quel endroit as tu declarer  "Public Tableau(0 to 255) as long"
Tu travaille bien En VBA Excel ?

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

cs_cyriloo · Answer

A non , je suis en VB6 , et le tableau est d&#233;clar&#233; dans un module

cs_cyriloo · Answer

Salut!

Merci pour ta r&#233;ponse. Je vais tout de suite essayer &#231;a ;)

cs_cyriloo · Answer

C'est bon , &#231;a roule! Merci beaucoup!!

cs_cyriloo · Answer

Derni&#233;re question , Lorsque j'ouvre le .xls apr&#232;s tout &#231;a. Il me dis que le fichier est d&#233;ja ouvert alors que j'ai ferm&#233; l'application. Ce n'est pas un gros probl&#233;me puisque je peux l'ouvrir quand m&#234;me , mais tu ne sais pas comment le fermer dans le code?

Merci

jrivet · Answer

Salut,

Peu etre peu tu essayer d'ameliorer la routine en mettant 

Avant Call WB.SaveAs("C:\Test.xls")

On Error Resume Next
    Call Kill("C:\Test.xls")
On Error GoTo 0

Ensuite Avant: Set WS = Nothing

Rajouter: WB.save
WB.Close

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e