Discussion :

[xingjing910]

Bonjour Tout le monde :

Je dois utiliser VB pour gérer une base de donnée. C'est que lire des valeurs dans un fichier Excel, après des traitement des données, les écrire dans un autre fichier excel.

Pour lire, j'ai lu un exemple sur ce site, mais je n'ai pas trouvé pour Créer un nouveau fichier Excel. Qui sait/ connait des sites qui explique ça ou bien donner un petit exemple ????

Merci de votre participation et votre temps !

[calagan99]

Bonjour,

pourquoi doit-tu spécifiquement créer un fichier Excel ?
Un fichier CSV lisible dans Excel ne ferait-il pas l'affaire ?

Si oui, le CSV n'est qu'une chaîne de caractères avec un séparateur. Dans le cas d'un fichier Excel, il va falloir te frotter à l'automation d'Excel.

[xingjing910]

Bonjour,

pourquoi doit-tu spécifiquement créer un fichier Excel ?
Un fichier CSV lisible dans Excel ne ferait-il pas l'affaire ?

Si oui, le CSV n'est qu'une chaîne de caractères avec un séparateur. Dans le cas d'un fichier Excel, il va falloir te frotter à l'automation d'Excel.

Ouai, mais c'est le cahier des charges qui a spécifique "Fichier Excel" Merci de ta réponse , hey hey

[shayw]

Salut
dans les réferences net coche microsoft.office.interop.excel
dans le code

ex d'une class

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Imports excel = Microsoft.Office.Interop.Excel
   Public Class ClasseExcel
    Private objexcel As New excel.Application
    Dim xlBook As excel.Workbook
    Dim xlworksheet As excel.Worksheet
    Public Sub New()
        xlBook = objexcel.Workbooks.Add
        xlworksheet = CType(xlBook.ActiveSheet, excel.Worksheet)
    End Sub
 
    Public Sub Writelist(ByVal mylist As List(Of String))
      ' écrit dans la colonne A1 :: A?  mylist
        Dim cellstrcopy As String
        Dim indexcol As Integer
        Dim indexrow As Integer
        Dim myfont As Font
        myfont = New Font("arial", 12, FontStyle.Bold)
        cellstrcopy = String.Empty
        Try
            With xlworksheet
                indexcol = 1
                indexrow = 1
                cellstrcopy = Convert.ToChar(indexcol + 64) & indexrow.ToString
                For Each item In mylist
 
                    .Cells(indexrow, indexcol) = item
 
                    .Range(cellstrcopy).BorderAround()
                    .Range(cellstrcopy).Interior.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.LemonChiffon)
                    .Range(cellstrcopy).Select()
                    .Range(cellstrcopy).HorizontalAlignment = excel.XlVAlign.xlVAlignCenter
                    With .Range(cellstrcopy).Font
                        .Name = "Arial"
                        .Strikethrough = False
                        .Bold = True
                        .Size = 12
                    End With
                    indexrow += 1
                    cellstrcopy = Convert.ToChar(indexcol + 64) & indexrow.ToString
                Next
 
            End With
            objexcel.Visible = True
            objexcel = Nothing
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub
  End Class

dans ta form

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Dim myexcel As New ClasseExcel
        Dim lalist As New List(Of String)
        For iter = 0 To 20
            lalist.Add("toto" & iter.ToString)
        Next
        myexcel.Writelist(lalist)

[xingjing910]

Salut Shayw,

Merci de ta réponse, j'ai une question: Comment on peut fixer un chemin pour placer le fichier qu'on vient de créer, stp ????

merci d'avance

[xingjing910]

Salut Shayw,

Pour le chemin sauvegarder, c'est bon, j'ai essayé ton programme et en fait, il a créé et il faut après qu'on le fasse. Pas de soucis pour ça.

Ton programme est d'écrire une liste de caractères. Et je voudrais écrire sur une cellule spécifique. Je suis en train de changer le code pour adapter mon cahier des charges. Si tu as une idée, pourrais- tu me la communiquer ? Merci d'avance