Bonjour,
Voici se que j'essaye de faire : j'ouvre un document excel et je le rempli avec une appli vb. avant de l'ouvrir je test s'il n'est pas déjà ouvert. Si c'est le cas, je me positionne alors dessus et le rempli. C'est dans ce cas que je ne connais pas la syntaxe !!!!
Voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
If IsFileOpen(App.Path & "ModeleExcel.xls") = False Then 
        Set appExcel = CreateObject("Excel.Application")
        Set wbExcel = appExcel.Workbooks.Open(App.Path & "ModeleExcel.xls")
        Set Feuille = wbExcel.Worksheets(1)
Else
        Set Feuille = Excel.Application.Workbooks(App.Path & "ModeleDevis.xls").Worksheets(1)
End If
'ici je remplis ma feuille puis l'affiche
appExcel.Visible = True
Si la feuille n'est pas déjà ouverte ca marche mais j'ai un pb dans le second cas. La syntaxe doit pas être très juste heu......
il faut pourtant que j'initialise ma 'Feuille' pour la remplir ! alors comment l'initialiser ? et puis je dois aussi initialiser 'appExcel' pour ensuite l'afficher.

Merci de vos suggestions