Remplir un fichier Excel à partir de VB6

Question

Salut à tous !!

A partir d'une application en VB6 je voudrais remplir un fichier Excel. Alors j'essaie de procéder comme ceci mais je ne sais pas comment remplir mon fichier.

    Dim DocumentExcel As Excel.Workbook
    Set DocumentExcel = GetObject("C:\Documents and                          Settings\Sedjro\Bureau\FADAMA\Classeur1.xls")
    DocumentExcel.Application.Visible = True
    DocumentExcel.Application.Windows("Classeur1.xls").Visible = True

Je ne sais pas quelle commande utilisée pour remplir mon fichier. Merci de votre aide.

nhervagault · Answer

Public msexcel As New Excel.Application





msexcel.Application.Visible = True

msexcel.Application.Workbooks.Open (App.path & "\modeles.xlt")

msexcel.Worksheets("feulle").Range("D4").value = rsADO!Valeur



 msexcel.Worksheets("feulle").Rows(j + 1).insert Shift 'je ne sais pas a quoi ca sert mais c'est utilile sans doute

msexcel.Worksheets("feulle").Range("A21:I" & j).Borders.LineStyle = xlContinuous

msexcel.Worksheets("feulle").Range("A21:I" & j).Borders.ColorIndex = xlAutomatic



ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell 'je ne sais pas a quoi ca sert mais c'est utilile sans doute



Public Sub saveex(path As String)

msexcel.ActiveWorkbook.SaveAs path



End Sub





Voila quelques fonctions tir&#233; d'un programme que j'avais fait.

Maisd j'ai pas travaill&#233; la partie excel 

Donc je ne connais pas toute les fonctions



Pour aider il y a aussi l'enregistreur de macros qiui est pratique mais 

Qui n'est pas trop optimis&#233; pour faire des boucles et des conditions. Il en connait pas !!!



Voila

Remplir un fichier Excel à partir de VB6

1 réponse

Discussions similaires