Ouvrir plusieurs fichiers Excel en même avec vb

ossama261988 Messages postés 33 Date d'inscription mardi 5 avril 2011 Statut Membre Dernière intervention 24 février 2012 - 14 févr. 2012 à 20:33
ossama261988 Messages postés 33 Date d'inscription mardi 5 avril 2011 Statut Membre Dernière intervention 24 février 2012 - 15 févr. 2012 à 23:09
Bonjour,

Je viens de réaliser mon programme en ouvrant un fichier Excel sélectionner depuis openfiledialog1 mais je n'arrive pas à sélectionner plusieurs fichier Excel en même temps.

Pouvez vous m'aider ?

Voilà le code :

Imports Microsoft
Public Class Form1


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
OpenFileDialog1.Multiselect = True
End Sub

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
TextBox1.Text = OpenFileDialog1.FileName
Text = TextBox1.Text
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim appexcel As Microsoft.Office.Interop.Excel.Application
Dim wbexcel As Microsoft.Office.Interop.Excel.Workbook
Dim osheet As Microsoft.Office.Interop.Excel.Worksheet
appexcel = CreateObject("excel.application")
appexcel.Visible = True
wbexcel = appexcel.Workbooks.Open(Text)
osheet = wbexcel.Worksheets.Item(1)
osheet.Cells(1, 22) = Date.Today
wbexcel.Save()
appexcel.Application.Workbooks.Close()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub

End Class

2 réponses

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
15 févr. 2012 à 05:29
premier reflex à avoir: lire la doc !


cette ligne de l'exemple :
For Each file In OpenFileDialog1.FileNames

y est claire...


Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
ossama261988 Messages postés 33 Date d'inscription mardi 5 avril 2011 Statut Membre Dernière intervention 24 février 2012
15 févr. 2012 à 23:09
Merci pour la réponse, mais comme je suis novice je voudrais avoir plus d'explication si vous pouvez
Rejoignez-nous