Salut jany.merle,
Friday, December 27, 2002, 4:17:08 PM, vous �criviez :
jm> en visual basic dans access, j'aimerai ouvrir la feuille de calcul d'un
jm> classeur excel qui en contient plusieurs
jm> Call Shell("EXCEL.EXE C:\fichiers\mon_classeur.xls", 1)
jm> je sais qu'il ouvre celui sur lequel il �tait au dernier enregistrement mais
jm> je voudrais automatiser et mettre des feuilles differentes en VB
jm> "EXCEL.EXE C:\fichiers\mon_classeur.xls/ma feuille3" n'est pas bon !!!
jm> ;o(((
jm> merci de votre aide
jm> A+
jm> J@ny
Voila, j'ai trouv� un bout de code VBA sur le net.
J'ai ajout� la ligne pour la s�lection de la feuille.
J'ai plac� un rem (en toute lettre) devant les lignes non n�cessaires
dans ton cas (mais c'est toujours int�ressant donc je les laisse)
Tout �a remplace ton "Call Shell..."
Public Sub Commande0_Click()
Dim MonClasseur As Object
Set MonClasseur = CreateObject("Excel.application")
On Error GoTo Probleme
'Fichier � ouvrir Avec Objet Excel !
MonClasseur.Workbooks.Open FileName:="c:\Classeur1.xls"
' Par d�faut la valeur est � False
MonClasseur.Application.Visible = True
' On s�lectionne la Feuille voulue
MonClasseur.Application.Worksheets("feuil2").Activate
'Lance la Macro1 du Classeur.
Rem MonClasseur.Run "Classeur1.xls!Macro1"
'Reprendre la valeur de A1 dans la variable
Rem ValeurA1 = MonClasseur.Sheets("Feuil2").Range("A1").Value
'Ferme Excel
Rem MonClasseur.Quit
Rem MsgBox ValeurA1
Probleme:
'En cas de Probl�me fermer l'objet.
Set MonClasseur = Nothing
End Sub
Cette fois, j'ai essay� :-)
------------
Bien � vous,
Electron
--
Decouvrez pourquoi votre prochain PC sera un Mac: http://www.apple.com/be
Le Mac fonctionne, tout simplement. Il ne plante pas. Et il est beau!
CyberCafe 2.0 <http://www.cybercafe.tv> Chaque Mardi 19h15 sur La 2!
Desabonnement par email : <mailto:[EMAIL PROTECTED]>
