Discussion :

[tomrou59]

Bonjour tt le monde

J'ai une userform avec un commandButton tt ca dans VISUAL BASIC.
En appuyant sur le dit CommandButton je voudrais ouvrir un fichier Excel sur une certaine feuille...

comment puis je faire cela?...


merci a tous ceux qui repondront et aux autres aussi...


PS :


Private Sub AnyButton1_Click()

Dim XlApp As Excel.Application
Set XlApp = New Excel.Application

'Dim XlApp As Excel.Application
'Dim fichier As Workbook
'Dim maFeuille As Worksheet
'Set contraintes = XlApp.Workbooks.Open("\\LeServeur\monRep\monfich.xls")
'Set maFeuille = XlApp.Sheets("nomFeuille")



XlApp.Visible = True

'XlApp.open "\\LeServeur\monRep\monfich.xls"
nomFeuille.Select

End Sub


je c les borne code... g pa reussi a en mettre pkoi? ché pa!

Ce sont des tests

[elifqaoui]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim XlApp As Excel.Application 
Dim WorkB As New Excel.Workbook
Dim MaFeuille As New Excel.Worksheet
 
 
Set XlApp = New Excel.Application 
 
XlApp.Visible = True 
 
Set WorkB = XlApp.WorkBooks.Open(CheminFichier.xls)
 
Set MaFeuille = WorkB.Sheets(IndexDeMaFeuille) 'tu peux aussi utiliser le nom
MaFeuille.Activate

[scorpia]

http://drq.developpez.com/vb/tutoriels/Excel/

ca pourrait t'aider

[tomrou59]

c'est OK... ca fonctionne

merci a tous