Bonjour,
en vb6 j'arrive a acceder a un fichier excel en l'ouvrant mais je reussis pas a ajouter des feuille non plus a activer une. voila mon code (ce qui est en rouge ne marche pas merci de m'aider

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
Private Sub File1_Click()
Dim xlApp As Excel.Application
Dim xlWkb As Excel.Workbook
Dim selectedfile As String
selectedfile = File1.Path & "\" & File1.FileName
 
Set xlApp = CreateObject("Excel.application")
 
    Set xlWkb = xlApp.Workbooks.Open(selectedfile)  
 
xlApp.Visible = True
Set xlWkb = Nothing
Set xlApp = Nothing

ThisWorkbook.Sheets.Add after:=Sheets(1), Count:=3
Sheets(1).Name = "pentagone"
Sheets(2).Name = "deb deta"
Sheets(3).Name = "deb tot"
Sheets(4).Name = "deb echelo"
End Sub