[VBA-E] Lancer workbook open

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.

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

bonjour ptitsoleil87 , bonjour jpleroisse

tu peux tester

Code:

---

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

---

bon week end
michel

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.

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:

---

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

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:

Citation:

---

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

---

Mais comment puis je faire?
Merci Michel!

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...

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!

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

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

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:

---

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!

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