Discussion :

[mirumoto]

Bonjour,

J'ai développé une application Access en lien avec un fichier Excel.

le fonctionnement est le suivant :

1) j'ouvre la base access et je lance le programme

2) Le prog en question ouvre un fichier excel et exporte des données

3) je les retraite via un autre programme dans Excel

dans Excel j'ai une macro sur événement workbook open.

Donc si j'ouvre le fichier excel sans avoir lancer le prog Access il me relance le programme complet.

Ce que je voudrais faire c'est mettre une condition au début du programme du type "si fichier access ouvert alors continuer le programme sinon sortez"

j'ai pensé à un truc du style :

Code :

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

1
2
3
4
5
6
 
 
Set Monaccess = CreateObject("access.application")
if Monaccess.Workbooks.Opendatabase filename:="Chemin" = true then
.................
End If

je sais c'est n'importe quoi je ne sais même pas si access.application existe.

On peut peut être utiliser la fonction opendatabase mais je ne sais pas comment indiquer la condition true ou false!

Merci d'avance pour vos réponses.

[tirex28]

Bonjour,

Le plus simple pour eviter le lancement de WorkBook_Open c'est de ne pas écrire de procédure WorkBook_Open...

Tu deplace donc ton code dans une procédure classique dans un module standard et tu l'appelle depuis Access avec une instruction type

Code :

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

1
2
3
 
MonExcel.Application.Run "NomFichierExcel!NomMacroLanceParAccess", _
 Argument1, Argument2

MonExcel étant le nom de la variable créé dans Access via GetObject ou CreateObject.

En procédant ainsi tu peux si necéssaire passer des paramètres (optionnels ou non) à ta macro afin d'effectuer un traitement différent selon qu'elle soit lancé par Access ou directement par l'utilisateur depuis Excel.

Enfin si tu veux eviter que cette macro soit visible par Alt+F8, tu peux la déclarer Private ou ajouter Option Private Module en tete du module qui la contient.

Cordialement,

Tirex28/

[mirumoto]

Merci pour ta réponse c'est parfait je n'y avais pas pensé!