Rafraichissement zone de texte dans formulaire

Bonjour à tous :
Avec Access2002 et Excel2002
J'utilise via un bouton click une fonction qui capture le chemin d'accés à
un fichier Excel2002
je fait ainsi apparaitre le chemin du fichier sélectionné dans une zone de
texte (Texte_ouvrir) et la valeur de la cellule A1 dans une autre
(Texte_celluleA1).
Mon probléme est que lorsque je fait la manip plusieurs fois de suite(sans
fermer le formulaire) , il n'y a que la zone (Texte_ouvrir) qui
s'actualise ??
Alors que la zone(Texte_celluleA1) ne change plus
Je ne comprend pas bien pourquoi ??
Il me manque une instruction??
Merci d'avance



Ci-joint le code en question

Option Compare Database
Option Explicit
Dim appli As Excel.Application
Dim class As Excel.Workbook
Dim feuil As Excel.Worksheet
Dim chemin_fichier_excel As String

Public Sub Commande_ouvr_Click()
Set appli = CreateObject("Excel.Application")
'appli.Visible = True

chemin_fichier_excel = OuvrirUnFichier(Me.Hwnd, "Parcourir", 1, "Fichier
Excel", "xls")

Set class = appli.Workbooks.Open(chemin_fichier_excel)
Set feuil = class.ActiveSheet
Texte_ouvrir = chemin_fichier_excel

Texte_celluleA1 = Cells(1, 1).Value

class.Close
appli.Quit
Set class = Nothing
Set appli = Nothing
End Sub

Bonjour à tous :
Avec Access2002 et Excel2002
J'utilise via un bouton click une fonction qui capture le chemin d'accés à
un fichier Excel2002
je fait ainsi apparaitre le chemin du fichier sélectionné dans une zone de
texte (Texte_ouvrir) et la valeur de la cellule A1 dans une autre
(Texte_celluleA1).
Mon probléme est que lorsque je fait la manip plusieurs fois de suite(sans
fermer le formulaire) , il n'y a que la zone (Texte_ouvrir) qui s'actualise
??
Alors que la zone(Texte_celluleA1) ne change plus
Je ne comprend pas bien pourquoi ??
Il me manque une instruction??
Merci d'avance



Ci-joint le code en question

Option Compare Database
Option Explicit
Dim appli As Excel.Application
Dim class As Excel.Workbook
Dim feuil As Excel.Worksheet
Dim chemin_fichier_excel As String

Public Sub Commande_ouvr_Click()
Set appli = CreateObject("Excel.Application")
'appli.Visible = True

chemin_fichier_excel = OuvrirUnFichier(Me.Hwnd, "Parcourir", 1, "Fichier
Excel", "xls")

Set class = appli.Workbooks.Open(chemin_fichier_excel)
Set feuil = class.ActiveSheet
Texte_ouvrir = chemin_fichier_excel

Texte_celluleA1 = Cells(1, 1).Value

class.Close
appli.Quit
Set class = Nothing
Set appli = Nothing
End Sub

bonjour
essaie
Texte_celluleA1 = Feuil.Cells(1, 1).Value
ou
Texte_celluleA1 = Feuil.Range("A1")


--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"jduval" <jduval@laon.inra.fr> a écrit dans le message de
news:OEIro4LJFHA.3188@TK2MSFTNGP09.phx.gbl...

Bonjour à tous :
Avec Access2002 et Excel2002
J'utilise via un bouton click une fonction qui capture le chemin d'accés
à
un fichier Excel2002
je fait ainsi apparaitre le chemin du fichier sélectionné dans une zone
de
texte (Texte_ouvrir) et la valeur de la cellule A1 dans une autre
(Texte_celluleA1).
Mon probléme est que lorsque je fait la manip plusieurs fois de
suite(sans
fermer le formulaire) , il n'y a que la zone (Texte_ouvrir) qui
s'actualise
??
Alors que la zone(Texte_celluleA1) ne change plus
Je ne comprend pas bien pourquoi ??
Il me manque une instruction??
Merci d'avance



Ci-joint le code en question

Option Compare Database
Option Explicit
Dim appli As Excel.Application
Dim class As Excel.Workbook
Dim feuil As Excel.Worksheet
Dim chemin_fichier_excel As String

Public Sub Commande_ouvr_Click()
Set appli = CreateObject("Excel.Application")
'appli.Visible = True

chemin_fichier_excel = OuvrirUnFichier(Me.Hwnd, "Parcourir", 1, "Fichier
Excel", "xls")

Set class = appli.Workbooks.Open(chemin_fichier_excel)
Set feuil = class.ActiveSheet
Texte_ouvrir = chemin_fichier_excel

Texte_celluleA1 = Cells(1, 1).Value

class.Close
appli.Quit
Set class = Nothing
Set appli = Nothing
End Sub