Posez votre question Signaler

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

DERAZ - Dernière réponse le 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.
Lire la suite 
Réponse
+0
moins plus
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...

@+

derch- 1 mars 2012 à 00:22
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
Répondre
Ajouter un commentaire
Annonces
 
moins plus
Ce document intitulé «  ouvrir un fichier a l'aide bouton vb  » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.