Discussion :

[adilissimo]

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

[adilissimo]

je l'ai trouvé peut être la reponse pourra servir qlq1.
en fait il faut ajouter une sorte de bibliotheque pr que Vb reconnaisse les classeurs,feuilles... en excel
en vb ==> projet==> references==> Microsoft excel 11.0 object library

[sovo]

Alors n'oubli pas le tag [RESOLU]

[zazaraignée]

+1

Il y a un bouton, en bas entre et .

Et il ressemble étrangement à .

[Vld44]

je ne comprends pas comment ton application a pu marcher "avant" sans ça.