merci a tous d'avoir cherche... et trouve !
et, cerise sur le gateau : positionnement sur la feuille =>genial ! merci,
merci !
Bon reveillon et meilleurs voeux a tous
A+
J@ny
Ce vendredi 27 d�cembre 2002 20:42, Electron �crivait :
> 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]>
