Ecrire plusieurs fois dans un fichier excel particulier

Voir le sujet précédent Voir le sujet suivant Aller en bas

Ecrire plusieurs fois dans un fichier excel particulier

Message par bamboou9 le Ven 18 Avr 2014 - 20:33

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 !

bamboou9
actif
actif

Messages : 31
Date d'inscription : 29/03/2014
Localisation : reims

Revenir en haut Aller en bas

Re: Ecrire plusieurs fois dans un fichier excel particulier

Message par bamboou9 le Lun 21 Avr 2014 - 6:13

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

bamboou9
actif
actif

Messages : 31
Date d'inscription : 29/03/2014
Localisation : reims

Revenir en haut Aller en bas

Re: Ecrire plusieurs fois dans un fichier excel particulier

Message par Guss_ le Jeu 24 Avr 2014 - 23:54

de rien Wink

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 Smile

Guss_
Fédérateur
Fédérateur

Messages : 498
Date d'inscription : 08/01/2010

Revenir en haut Aller en bas

Re: Ecrire plusieurs fois dans un fichier excel particulier

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum