Discussion :

[Gueshtoupaï]

Bonjour, je suis tout nouveau et il y a peu je me suis mis a Access pour réaliser mon projet pour BAC+3. J'ai rencontré quelque difficulté mais pour le moin résolvable et la je bute sur un truc TOUT simple. En effet, je n'arrive pas (en langage VBA) a programmer sous Access un bout de code qui puisse changer de feuille sous Excel.

Problème n°1 (le plus urgent ^_^): J'aimerais qu'il puisse passer de la "feuil1" à "feuil2" (j'ai modifié les noms vous vous doutez bien mais comme ca c'est clair). J'ai pourtant exécuté une macro sous excel en enregistrant le code (ce que je fait habituellement quand je bloque) mais la je bloque.



Pouvez vous m'aider ?

Merci d'avance et désolé pour le dérengement.

Cordialement

Gueshtoupaï.

[Jean-Philippe André]

Bonjour,
pourrais-tu nous donner le code que t'a généré le macro recorder stp ? Qu'on puisse t'expliquer ou tout du moins se baser sur ce code

[psykodumarteau]

Bonjour,
voici un code qui ouvre un fichier excel et active la feuil2 depuis access.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande0_Click()
Dim appexcel As Excel.Application
Dim wrkbook As Excel.Workbook
Dim sheet As Excel.Worksheet
 
Set appexcel = CreateObject("Excel.Application")
appexcel.Visible = True
Set wrkbook = appexcel.Workbooks.Open("C:\monfichier.xls")
 
wrkbook.Sheets("Feuil2").Activate
 
End Sub

[Gueshtoupaï]

Voici le code que me génère Excel quand j'ai exécuté sa macro recordé :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 04/06/2009 par p052798
'
 
'
    Sheets("Cumulée").Select
End Sub

Voila, merci (désolé pour le temps de réponse je n'ai pas accès a internet tout le temps)

[Gueshtoupaï]

Finalement, en mixant un peu le tout, j'ai réussi a trouvé ce qui me convenait le mieux, car bien que ta solution en déclarant un "Private" soit fort bien, dans mon programme j'en ai pas tellement besoin.

J'ai donc fait ceci (pour ceux que ca intéresserait) :

Code :

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

Dim worksheet = workbook.worsksheet(2)

(il faut au préalable, bien sur, déclarer un classeur ^_^)

Voila voila, et merci a vous deux ! ! !

Gueshtoupaï