Ouvrir plusieurs fichiers Excel en même avec vb

Signaler
Messages postés
33
Date d'inscription
mardi 5 avril 2011
Statut
Membre
Dernière intervention
24 février 2012
-
Messages postés
33
Date d'inscription
mardi 5 avril 2011
Statut
Membre
Dernière intervention
24 février 2012
-
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

Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
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
Messages postés
33
Date d'inscription
mardi 5 avril 2011
Statut
Membre
Dernière intervention
24 février 2012

Merci pour la réponse, mais comme je suis novice je voudrais avoir plus d'explication si vous pouvez