Discussion :

[gueyou]

bonjour,
j'aimerais pouvoir ouvrir un fichier excel dans lequel j'ai modifié des données à partir d'access. J'ai bien référencé la librairie excel. L' erreur "erreur d'exécution 91 : variable objet ou variable de bloc with non definie"
Voici mon code,

Code :

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

1
2
 If Reponse = vbYes Then    ' L'utilisateur a choisi Oui.
    xlApp.Workbooks.Open ("P:\Document\SelectionVisu.xls")

Merci d'avance

[Thepince]

Salut,
et si tu mets :

Code :

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

xlApp.Workbooks.Open "P:\Document\SelectionVisu.xls"

ça fait pareil ?

[gueyou]

ben oui, j'ai essayé de plusieurs manières différentes, ça fait toujours le meme bug... pourtant ce n'est pas le reste du code qui m'a l'air de bugger

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
17
18
Public Function enregistrement()
 
Dim Msg, Style, Titre, Reponse, MyString
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
 
Msg = "Enregistré avec succès. Voulez-vous l'afficher ?"
Style = vbYesNo + vbInformation + vbDefaultButton1
Titre = "Enregistrement"
 
Reponse = MsgBox(Msg, Style, Titre)
 
If Reponse = vbYes Then    ' L'utilisateur a choisi Oui.
    xlApp.Workbooks.Open "P:\Document\SelectionVisu.xls"
Else    ' L'utilisateur a choisi Non.
    MyString = "Non"
End If
End Function

[cafeine]

Hello,

XlApp n'est pas instancié ... regarde les codes de la FAQ pour voir comment on fait.

http://access.developpez.com/faq/?re...r=ouvrir+excel

[gueyou]

Merci ! c'est vrai j'avais oublié ça...