Bonsoir,

Je souhaiterais re-importer des données modifiées de mon DGV dans mon fichier Excel. Par contre j'arrive bien à importer mes données d'excel dans mon DGV mais je n'arrive pas à faire l'inverse.

Quelqu'un pourrait-il m'aider? En l'attente d'une réponse de votre part je vous en remercie

voici mon code pour importer de mon Excel au DGV.

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
 
Dim Feuille As String, Cellule As String
 
        ' Déclaration du dataset 
        Dim data As DataSet
        data = New DataSet
        Feuille = "Feuil1$"
        Cellule = "A1:D90"
 
        ' Déclaration et utilisation d'un Objet OLeDBConnection 
        ' Initialisation de la chaine de paramètres pour la connexion au fichier Excel
        Using Connexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Sylvain\Desktop\VB.NET IM\Base_de_contacts.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1""")
 
            ' Ouverture de la connexion
            Connexion.Open()
 
            'Déclaration d'un Objet DataAdapter 
 
            ' La requête sélectionne les cellules "A1:D90" de la Feuil1
            Using requete As OleDbDataAdapter = New OleDbDataAdapter("select * from [" & Feuille & Cellule & "]", Connexion)
 
                ' Avec l'aide de la propriété Fill du DataAdapter => chargement du Dataset
                requete.Fill(data)
 
                ' On affiche les données sur le DataGridView1 
                DataGridView1.DataSource = data.Tables(0)
            End Using
            ' Le End Using libère les ressources 
        End Using
 
    End Sub