bonjour,

je risque de me répéter, mais franchement, j'y arrive pas!

voilà, j'ai un document excel (mondoc.xls) déjà ouvert par l'utilisateur, et je souhaite y faire des modif dans certaines feuilles

je pensais faire:

Dim docexcel As Excel.Application
docexcel = GetObject("mondoc.xls", )

mais non, çà marche pas

ma question donc, comment faire pour travailler sur un doc excel déjà ouvert depuis vb2005

merci beaucoup

ai-je posé une question idiote , ou difficile ?

Non, c'est juste que certainement personne n'a encore la réponse à ton problème.


---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #

ok, merci pour l'info, car je pensais que ct simple.

Salut Vercomax,

sans garanti, (je ne fais pas de DotNet), tu pourrais peut-être essayer ceci :


    Dim xlApp As Excel.Application, xlBook As Object
    Dim sPathAndFileName As String

sPathAndFileName = "C:\Chemin complet\nom fichier.xls"

On Error Resume Next
        
xlBook = GetObject(sPathAndFileName, "Excel.Aplication")
If Err.Number <> 0 Then
    Err.Clear
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
    Set xlBook = xlApp.Workbooks.Open(sPathAndFileName)
Else
    Set xlApp = GetObject(, "Excel.Application")
End If

On Error GoTo 0
~ Mortalino ~ Colorisation automatique


En espérant que cela fonctionne 
@++

---

merci pour ta réponse Mortalino, aucune erreur pour le code que tu me donnes, seul ombre, et de taille: çà ouvre en fait autant de fois que je lances ces lignes de code, et donc çà ne tient pas compte du fait que "C:\Chemin complet\nom fichier.xls" soit déjà ouvert.
je tourne en rond
bah, je finirai bien par trouver, mais çà dure
merci encore.

Je t'ai inséré une variable Static, je pense que ça devrait faire l'affaire  :


    Dim xlApp As Excel.Application, xlBook As Object
    Dim sPathAndFileName As String
    Static OpenFile As Boolean  'ICI

sPathAndFileName = "C:\Chemin complet\nom fichier.xls"

If Not OpenFile Then  'ICI
    On Error Resume Next
        
    xlBook = GetObject(sPathAndFileName, "Excel.Aplication")
    If Err.Number <> 0 Then
        Err.Clear
        Set xlApp = CreateObject("Excel.Application")
        xlApp.Visible = True
        Set xlBook = xlApp.Workbooks.Open(sPathAndFileName)
    Else
        Set xlApp = GetObject(, "Excel.Application")
    End If

    On Error GoTo 0: OpenFile = True  'ICI
End If  'et le End If pour finir
~ Mortalino ~ Colorisation automatique

@++

---

idem, je l'ai lancé 2 fois, il ouvre 2 fois le fichier. j'ai fait un cop-col (sauf nom du fichier), pas d'erreur compilation, mais il ouvre 2 fois la feuille.

je pensais ptet rechercher dans un paramètres à fournir lors du :

xlBook = docexcel.Workbooks.Open(sPathAndFileName)

encore merci

j'ai maté le débogage, et il rentre systématiquement dans le err.Number<>0 et donc crée une nouvelle instance