Discussion :

[chammi]

salut,

j'ai un probleme les gats pour afficher la feuille Excel sous VB
je vous donne le code et svp si qlqun peut m'indiquer c'est quoi le pb
merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Load()
 Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
 ' déclaration d'une variable objet de type classeur Excel
 
 
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("D:\PFE 1\test.xls")
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
wsExcel.visible=true

[Balises "Code" ajoutées par AlainTech]
[Pensez-y vous-même à l'avenir. Merci.]

[SfJ5Rpw8]

c'est l'application excel qui faut rendre visible :

Code :

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

appExcel.Visible = True