mon application marchait avant mé aujourd'hui
en fait il m'affiche le message d'erreur suivant : "type defini par l'utilisateur non defini" et elle pointe sur la ligne en rouge. merci de m'aider si vous avez une idee

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
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)  'chemin du fichier
xlApp.Visible = True
xlWkb.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"
Sheets(2).Activate
Cells(1, 1) = 1
End Sub