Discussion :

[rafafa87]

bonjour,
je réalise un petit programme qui me permet de communiquer entre excel et access et inversement.
j'ai mis en place une procédure me permettant d'ouvrir un formulaire access depuis excel mais depuis peu access s'ouvre et se ferme tout de suite alors que je veux laisser access ouvert.
voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub ouvform()
 
    Dim oAccessApp As New Access.Application
    Set oAccessApp = CreateObject("Access.Application")
 
        With oAccessApp
 
            .Visible = True
            .OpenCurrentDatabase ("D:\gestionpp.mdb")
            .DoCmd.OpenForm "Ouverture", acNormal, , , , acDialog = False
 
        End With
 
    Set oAccessApp = Nothing
 
End Sub

pouvez vous m'aider svp
ps: access et excel 2007

[helas]

Bonjour,
L'application est détruite à la sortie de la procedure
Soit le traitement se fait dans la procedure, soient les variables sont déclarées au niveau Module

[rafafa87]

que dois je faire alors pour qu'elle ne soit pas détruite à la sortie de la procédure?
si j'enlève set ...=nothing ça ne marche pas
j'ai essayer de rajouter option explicite, ça ne marche pas non plus

[Pierre Fauconnier]

Salut.

Il faut déclarer l'application tout en haut d'un module standard, et la déclarer "global" (avant la première procédure ou fonction)

Il faut bien entendu enlever la ligne qui la passe à "nothing"

Code :

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

Global oAccessApp As New Access.Application

Un peu de lecture sur les variables serait probablement utile.

[rafafa87]

merci ça marche