Discussion :

[Luigi13]

Bonjour à tous,
Je fais une petite interface graphique sous vb avec des boutons censés m'ouvrir un classeur Excel et une feuille précise.
J'ai donc tapper ceci pour un bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Command1_Click(Index As Integer) 
 
Dim appExcel As Excel.Application 
Dim wbExcel As Excel.Workbook 
Dim wsExcel As Excel.Worksheet 
 
Set appExcel = New Excel.Application 
Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\GTLX7024\Desktop\TDBB\liaison\TDB_liaison.xls") 
Set wsExcel = wbExcel.Worksheets(1) 
 
End Sub

Lors de la compilation et l'execution , quand j'appui sur le boutonclick 1, un message d'erreur apparait (Erreur 70 permission refusée). Au débogage il me surligne cette ligne : Set appExcel = CreateObject("Excel.Application")
J'ai pourtant bien rajouter la référence vers excel dans projet. Pouvez vous m'aider ? Ou est le pb ? Merci bcp!

[Pascal Lob]

Bonjour,

Est ce que tu as ajouté la référence à Excel ?

Dans mon esprit c'est soit

Référence à Excel ajoutée dans le projet et tu utilise
- Dim Excel_app As Excel.Application 'application Excel
Avec
- Set Excel_app = New Excel.Application

Ou alors pas de ref à Excel et
- Set Excel_app = CreateObject("Excel.Sheet")

mais pas les deux...

[Luigi13]

Bonjour oui j'ai bien rajouter la référence et j'utilise ta première solution et toujours le meme pb d'erreur 70

[Pascal Lob]

Dans ton premier message tu dis qu'il te surligne la ligne set ....Createobject.
Qui n'est pas dans les ligne d'exemple de ton code.
T'as pas une ancienne ligne qui traine ?