mosquitout
XLDnaute Nouveau
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 :
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.
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 :
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.