Afficher un classeur déjà ouvert

[mosquitout]

Bonjour,
Voici mon intérrogation:
J'ai un fichier excel ouvert, je connais son nom et son emplacement. Je voudrai en vb, afficher ce classeur mais auparavent remplir qlq cellules.
J'ai donc besoin de specifier la feuille active.

J'arrive à faire cela quant j'ouvre le classeur mais n'y arrive pas à partir d'un classeur déjà ouvert

Voici mon code :

If IsFileOpen(App.Path & "\Toto.xls") = False Then 
        Set appExcel = CreateObject("Excel.Application")
        Set wbExcel = appExcel.Workbooks.Open(App.Path & "\Toto.xls")
        Set Feuille = wbExcel.Worksheets(1)
        appExcel.Visible = True  
Else
        Set wbExcel = Workbooks("Toto.xls").Activate
        Set Feuille = wbExcel.Worksheets(1)
End If

Feuille.Cells(5, 8) = SNom

Voila, la fonction Isfileopen test si le fichier est déjà ouvert. Si oui, pas de probleme. Mais si non, c'est là que ca coince .......
J'ai besoin de définir "feuille" avec donc le fichier qui doit déjà être ouvert, pour remplir ma cellule.

 

[Kobaya]

Re : Afficher un classeur déjà ouvert

salut mosquitout,

j'ai modifié un peu ton code :

If IsFileOpen(App.Path & "\Toto.xls") = False Then 
        Set appExcel = CreateObject("Excel.Application")
        Set wbExcel = appExcel.Workbooks.Open(App.Path & "\Toto.xls")
        Set Feuille = wbExcel.Worksheets(1)
        appExcel.Visible = True  
Else
        ' modification sur cette ligne :
        ' si le fichier n'est pas ouvert, il faut l'ouvrir 
        ' pour pouvoir l'activer !
        Set wbExcel = Workbooks.Open("Toto.xls")
        Set Feuille = wbExcel.Worksheets(1)
End If

Feuille.Cells(5, 8) = SNom