Discussion :

[Jayjay54]

Bonjour à tous,

Je tiens à préciser avant tout que je suis plus que débutant sur le logiciel Visual Studio.

J'utilise une version express de celui-ci dans un environnement professionnel.

Ma question est la suivante :

Comment puis-je faire afin de compléter un fichier excel en fonction de valeurs contenues dans un DateTimePicker et une TextBox?
Je voudrais que ce tableau soit complété ligne après ligne et dans 2 colonnes différentes suite au Click sur un bouton.

Merci pour votre aide précieuse..

Bien à vous,

Jay

[Jayjay54]

Bonjour à tous,

Voilà j'essaye depuis quelque temps mais je n'arrive pas à archiver de cellule en cellule.
Je sais maintenant écrire le contenu de ma TextBox et de mon DateTimepicker dans un fichier CSV mais à chaque fois il réécrit sur ce qui était existant.

J'ai besoin d'aide

Voici mon code

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
Public Class Form1
 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim intFic As Integer
        Dim myText As String
 
 
        intFic = FreeFile()
        FileOpen(intFic, "C:\TEMP\TESTFILE.CSV", OpenMode.Output)
 
        myText = TextBox1.Text
        Print(intFic, DateTimePicker1.Text + " ; " + myText)
 
 
 
        FileClose(intFic)
    End Sub
 
End Class

Merci beaucoup.

[Jayjay54]

Bonjour à tous,

J'ai trouvé une solution qui fonctionne plutôt bien.

Pour les intéressés, voici le code.

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
Imports Excel = Microsoft.Office.Interop.Excel
 
Public Class Form1
    Dim APP As New Excel.Application
    Dim worksheet As Excel.Worksheet
    Dim workbook As Excel.Workbook
    Dim i As Integer
 
 
    'fermer application
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Application.Exit()
    End Sub
    'valider les modifications
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        workbook = APP.Workbooks.Open("Lefichier.xlsx")
        worksheet = workbook.Worksheets("Feuille1")
        i = worksheet.Cells(2, 10).Value
        worksheet.Cells(i, 1).Value = DateTimePicker1.Value
        worksheet.Cells(i, 2).Value = descriptionmodif.Text
        worksheet.Cells(i, 3).Value = responsablemodif.Text
        worksheet.Cells(i, 4).Value = endroitmodif.Text()
        worksheet.Cells(2, 10).Value = i + 1
        workbook.Save()
        workbook.Close()
    End Sub
    'effacer tout
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        descriptionmodif.Clear()
        responsablemodif.Clear()
        endroitmodif.Clear()
    End Sub
End Class