Discussion :

[Kalvin_20]

Bonjour à tous

Je voudrais savoir si c'est possible de lancer un classeur excel au simple clique sur un bouton dans un formulaire sous Access, et lancer au démarrage la deuzieme feuille de mon classeur excel ???

et si oui comment on peut le faire


Merci à vous d'avance

[Kalvin_20]

uppppp

[Jean-Philippe André]

Salut,
tout le monde n'est pas au boulot aussi tôt que toi
Un peu de lecture :
http://access.developpez.com/faq/?page=Excel#PilotExcel

[Oleff]

Bonjour,

C'est possible, regarde dans la FAQ, automation excel, tu devrais trouver ton bonheur.

[Kalvin_20]

Merci les amis je me met de suite

ps : jp j'ai pas le choix je commence a 7h pour finir à 16h

[Kalvin_20]

Si j'ai bien lu

c'est le code la qui permet d'ouvrir un classeur excel

Code :

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

1
2
3
4
 
   Dim MonExcel As Excel.Application, wb As Excel.Workbook
   Set MonExcel = New Excel.Application
   Set wb = MonExcel.Workbooks.Open(Filename:="m:\PublicLCommun\SUIVI DE PRODUCTION\Stage Yassine\page à attacher à la base de données.xls", Password:="azerty")

seulement voila je viens de le tester mais il fais rien

c'est moi qui est sur la mauvaise voie ou c'est pas le bon code ????

Merci

[marchand_de_sable]

Salut.

D'après ton code, ta fenêtre Excel n'est pas "visible".
Pour y remédier :

Code :

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

1
2
3
4
Dim MonExcel As Excel.Application, wb As Excel.Workbook
   Set MonExcel = New Excel.Application
   MonExcel.Visible = 1
   Set wb = MonExcel.Workbooks.Open(Filename:="m:\PublicLCommun\SUIVI DE PRODUCTION\Stage Yassine\page à attacher à la base de données.xls", Password:="azerty")

[Kalvin_20]

Voici mon code final alors

Code :

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

1
2
3
4
5
6
7
8
9
 Dim MonExcel As Excel.Application, wb As Excel.Workbook
   Dim oWdh As Worksheet
   Set MonExcel = New Excel.Application
   'Lancer Excel
   MonExcel.Visible = True
   'Manipuler une cellule
   Set wb = MonExcel.Workbooks.Open(Filename:="m:\PublicLCommun\SUIVI DE PRODUCTION\Stage Yassine\page à attacher à la base de données.xls", Password:="bohboh14")
   Set oWdh = wb.Worksheets("Récap rebut pièce") 'la il doit m'ouvrir la page récap rebut pièce au démarrage
   oWdh.Cells(6, 7) = "1350T"

Tout est nickel seulement voila il m'ouvre pas la bonne page au démarrage est ce que vous avez une idée d'ou vient mon probleme

MERCI

[Jean-Philippe André]

essaie avec

Code :

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

oWdh.Activate

[Kalvin_20]

Merci JP