Discussion :

[ptitsoleil87]

Bonjour à tous,
je m'excuse si je me trompe de forum, je ne suis pas sur de mon coup, access, vb...?
J'aimerai qd je ferme une application access, alors que j'ai une application excel ouverte, lancer la procédure WorkBook_Open() de mon application excel.
Est ce possible et si oui comment?
D'avance, merci de votre compréhension et de votre aide à tous.

[leroissejp]

Bonsoir,
Si ton classeur est déjà ouvert, la procédure WorkBook_Open n'aura pas d'éffet, lance ta macro d'une autre façon, par exemple à la fin de ta procédure de fermeture d'Access, tu fais Call nom de ta macro

jpleroisse

[SilkyRoad]

bonjour ptitsoleil87 , bonjour jpleroisse

tu peux tester

Code :

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

Application.Run "ClasseurTest.xls!ThisWorkbook.Workbook_Open"

bon week end
michel

[ptitsoleil87]

Bonjour à tous les 2,
Le problème est que ni l'un, ni l'autre ne fonctionne.
Il ne me reconnait pas la procédure, ni la macro...
Si vous avez une autre idée, elle est la bienvenue!
Merci à tous.

[SilkyRoad]

rebonjour

chez moi cela fonctionne tres bien ( Excel2002 & Access2002)

bien sur il ne s'agissait que d'un exemple et il faut que tu l'adaptes à ton projet

Code :

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

1
2
3
4
Dim xApp As Object
On Error Resume Next
Set xApp = GetObject(, "Excel.Application")
xApp.Run "ClasseurTest.xls!ThisWorkbook.Workbook_Open"

quel est ton message d'erreur ?


bon week end
michel

[ptitsoleil87]

je pense avoir compris d'ou viens l'erreur. C'est qu'en fait, ds mon workbook open, je demande a ouvrir la bd. or là, elle est deja ouverte...
L'erreur:

erreur d'exe 3734
Erreur définie par l'application ou par l'objet

Mais comment puis je faire?
Merci Michel!

[SfJ5Rpw8]

pourrai-tu nous dire pourquoi as tu besoin de "re" lancer le WorkBook_open ..
si tu as accés au code de ton classeur ... tu dois pouvoir modifier les actions effectuées dans le WorkBook_open , pour placer dans une autre porcédure ... les actions communes à l'ouverture de ton classeur , et a la fermeture d'accés...

[ptitsoleil87]

En fait, sur ma feuille excel j'ai une liste de personnes, qui correspond aux personnes enregistrées ds la bd.
Mais j'aimerai qd l'utilisateur va saisir une nouvelle personne ds la bd, que ca mette la liste à jour. Pour cela, il me suffit dc de relancer le workbook open, non?
Merci!

[SfJ5Rpw8]

comment tu as placé ta liste de contact dans le classeur ..? un query Refresh.. ( le ! dans barre de menu ..) ne suffit pas ?

[ptitsoleil87]

La liste est établie par le parcours de la bd.
Je ne connais pas le query refresh. je file me renseigner...

[ptitsoleil87]

Pour savoir si ma bd est déjà ouverte, est ce que c de cette manière qu'il faut que je procède ou alors suis je completement à coté de la plaque?

Code :

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

1
2
3
4
5
 
If nombase.Connect = False Then
'connexion à la bd 
Set nombase = DBEngine.OpenDatabase("G:\CLSH\Bdclsh.mdb")
End If

Enfin de tte maniere, je me doute qu'il y a 1 erreur etant donné que ca ne marche pas...
Merci à tous de votre compréhension!

[leroissejp]

Bonjour,
Je crois qu'il serait plus simple de donner ton code complet, d'importation Access, de manière à pouvoir en créer un similaire et faire un essai.

jpleroisse