OpenFileDialog1.Filter = "fichier Excel (*.xlsx)|*.xlsx| fichier Excel (*.xlsm)|*.xlsm"
OpenFileDialog1.ShowDialog()
Try
dim titre as string
Dim lien As String = OpenFileDialog1.FileName
Dim MyConnection As System.Data.OleDb.OleDbConnection
Dim Dataset As System.Data.DataSet
Dim Mycommand As System.Data.OleDb.OleDbDataAdapter
Dim path As String = lien
titre = lien
MyConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0; Data source=" + path + "; Extended Properties=Excel 12.0;")
Mycommand = New System.Data.OleDb.OleDbDataAdapter(" Select * from [source$]", MyConnection)
Dataset = New System.Data.DataSet
Mycommand.Fill(Dataset)
DataGridView1.DataSource = Dataset.Tables(0)
MyConnection.Close()
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim lien As String = OpenFileDialog1.FileName
...
Dim path As String = lien
...
titre = lien