Ouvrir un fichier a l'aide bouton vb [Résolu/Fermé]

DERAZ - 28 févr. 2012 à 19:39 - Dernière réponse :  derch
- 1 mars 2012 à 00:22
Bonjour,
j'ai un travail sur un fichier excel ,je veux l'ouvrir a laide d'un bouton en vb6 .je cherche un code mais j'ai pas trouver.

Afficher la suite 

2 réponses

Lord Zero 453 Messages postés lundi 18 octobre 2010Date d'inscription 9 octobre 2015 Dernière intervention - Modifié par Lord Zero le 29/02/2012 à 09:51
0
Utile
1
Private Sub Command1_Click() 
'Déclaration des variables 
 Dim appExcel As Excel.Application 'Application Excel 
 Dim wbExcel As Excel.Workbook 'Classeur Excel 
 Dim wsExcel As Excel.Worksheet 'Feuille Excel 
  
'Ouverture de l'application 
 Set appExcel = CreateObject("Excel.Application") 
 'Ouverture d'un fichier Excel 
 Set wbExcel = appExcel.Workbooks.Open("chemin+fichier.xls") 
'wsExcel correspond à la première feuille du fichier 
 Set wsExcel = wbExcel.Worksheets(1) 
 appExcel.Visible = True 

End Sub


Ne pas oublier de cocher la librairie excel dans Projet/Références/Microsoft Excel...

@+

Développeur VB6, VBS, VBA, VB.NET, C#, HTML, PHP, JAVASCRIPT, SQL.
merci bcp ,mais le petit problème c'est que en excel 2007 il faut ajouter un x
par exemple/open("D:\monprojet\classeur1.xlsx")
monprojet c'est lefichier ou se trouve classeur1

JE VOUS PROPOSE UN AUTRE CODE QUE JE VOIX UN PEUT PLUS COURT
(General)
Dim xlTmp As Excel.Application
Private Sub Command1_Click()

Set xlTmp = Excel.Application
xlTmp.Workbooks.Open ("d:\nom du fichier contenant le classeur\Classeur1.xlsx")
xlTmp.Visible = True
End Sub