Bonjour à toutes et à tous,
Je viens vers vous parce que j'ai un problème pour lier les données d'une combobox dans un userform VB avec le nom des onglets d'un classeur Excel.
Je joins le code que j'ai réalisé, je ne comprends pas comment faire pour arriver à mes fins.
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 Imports Microsoft.Office.Interop Public Class Form5 Private Sub Form5_Load(sender As Object, e As EventArgs) Handles Me.Load Dim app As Excel.Application Dim oBook As Excel.Workbook Dim oSheet As Excel.Worksheet Dim nFeuilles As Integer app = New Excel.Application app.Workbooks.Open("C:\Users\user\Documents\Classeur1.xlsx") oBook = app.ActiveWorkbook oSheet = oBook.Worksheets nFeuilles = oBook.Sheets.Count For i As Integer = 0 To nFeuilles - 1 Me.ComboBox1.Items.Add(oBook.Sheets(i).name) Next End Sub End Class
Quelqu'un aurait-il la gentillesse de m'aider?
Merci!!
Titom
Partager