Ecrire plusieurs fois dans un fichier excel particulier

bonjour,

J'aimerais à partir de Catia lancer un fichier Excel en particulier (et non pas un classeur nouveau à chaque fois) pour pouvoir écrire dedans des données provenant de Catia.
J'arrive pour l'instant à ouvrir un nouveau classeur (merci à Guss pour son code),mais pas dans celui que je souhaite...
Voici mon code :

Code:

Language="VBSCRIPT"

Sub CATMain()
   
Call macro1   
   
End Sub

Sub macro1()

'---- initialisation excel
    Dim Excel As Object
    On Error Resume Next
    Set Excel = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
        Set Excel = CreateObject("Excel.Application")
    End If
    On Error GoTo 0
    'On ouvre Excel sans l'afficher avec False
   Excel.Visible = True
    
    
'---- création de la feuille excel
    Dim wbks, wbk
    Excel.Workbooks.Add
    Set wbks = Excel.ActiveWorkbook
    Set wbk = wbks.Sheets(1)
   wbks.Sheets(1).Range("A1").Value = 989
   
End Sub


Comment fait-on pour ouvrir un excel particulier qui se trouve sur le bureau par exemple au lieu d'en ajouter un à chaque appel de la macro ?
Quelqu'un pourrait il m'indiquer l'astuce ?
Merci !

Bonjour,
j'ai finalement trouvé :

Code:

Sub Ouvrir_Excel_1()

'---- initialisation excel
    Dim Excel As Object
    On Error Resume Next
    Set Excel = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
        Set Excel = CreateObject("Excel.Application")
    End If
    On Error GoTo 0
    'On ouvre Excel sans l'afficher avec False
   Excel.Visible = False
   
   
'---- création de la feuille excel
    'Dim wbks, wbk
   Excel.Workbooks.Open ("c:\documents and settings\bb\Desktop\bb.xlsm")
   Set wbks = Excel.ActiveWorkbook
   Set wbk = wbks.Sheets(1)
End Sub


Merci encore au code de Guss, il ne me restait qu'à mettre la bonne méthode

de rien

Je ne passe pas souvent en ce moment, je n'ai pas pu répondre assez rapidement, mais je vois que tu as su te débrouiller tout seul