VB6 et VBA Excel!Résolu

Question

Bonjour et merci d'avance a tous ceux ki me repondront!

Je voudrai piloter un fichier Excel a partir de VB afin d'automatiser l'execution d'une mise a jour de mon fichier excel.
Le code de ma mise a jour se trouve un module VBA Excel et ce code de ce module est appel&#233; par un bouton lors de son evenement CommandButton1_Click().
J'arrive a ouvrir mon fichier Excel depuis VB mais je n'arrive pas a lancer cette procedure evenmentielle
Qq'un pourrait-il m'aider??
Merci!

cs_majstor · Accepted Answer

Rectification... voici la source http://www.vbfrance.com/code.aspx?ID=31964

cs_majstor · Answer

Salut ! Essaye avec &#231;a 



Dim MyObjExcel 
As 
New 
Object


MyObjExcel = CreateObject("excel.application")



'si excel deja ouvert, alors on ouvre dans la m&#234;me instance



If Err.Number <> 0 
Then


MyObjExcel = GetObject(, "excel.Application")


Err.Clear()



End 
If



'fin excel deja ouvert


MyObjExcel.Workbooks.Add (VB6.GetPath & "\imcmdoc.xlt")     'Charge le modele excel (il faut mettre l'emplacement exacte du fichier)


MyObjExcel.application.run ("Net_Open")  ' Te permet de lancer la macro situ&#233; dans ton modele excel



''MyObjExcel.Workbooks.Open(MonDoc)


MyObjExcel.Visible = 
True


MyObjExcel = 
Nothing

kevinscherrens · Answer

Merci beaucoup c nikel pour l'appel des macros

Est-ce que par hazar du saurais comment enregistrer un fichier .xls au format .csv (s&#233;par&#233; par des ";")?

mon code est le suivant : 

Set ApExcel = CreateObject("excel.application")
With ApExcel
            .Visible = True
            .workbooks.Open FileName
            .application.run ("DebutMaj")
            .displayalerts = False
            FileName = App.Path & "\NomDuFichier.csv"
            .ActiveSheet.SaveAs FileName:=FileName , FileFormat:=xlCSVWindows
            .ActiveWorkbook.Close
            .quit
End With
Set AppExcel = Nothing

Le param&#232;tre FileFormat n'a pa l'air de fonctionner sous VB

Merci!!

cs_majstor · Answer

Tu ne peux pas utiliser la methode saveas pour activesheet, VB ne comprends pas cela. ce qu'il te faut c'est sauver le classeur entier (activeworkbook) si &#231;a ne te va pas fait simplement une macro dans excel qui permet d'enregistrer et appel cette macros soit a la fermeture du fichier soit par un bouton soit a la suite de ta macro DEBUTMAJ

Bonne continuation

Set ApExcel =  CreateObject("excel.application")
With ApExcel
            .Visible = True
            .workbooks.Open FileName.workbooks.Open FileName
            .Application.run ("DebutMaj")
            .displayalerts = False
             FileName = App.Path & "\NomDuFichier.csv"
             .ActiveWorkbook.SaveAs FileName, xlCSVWindows 
            .ActiveWorkbook.Close
            .quit
End With
Set AppExcel  = Nothing


End Sub

kevinscherrens · Answer

J'ai essayer aussi avec l'enregistrement de l'ActiveWorkBook
Et j'obtient un probleme bcp plus 'vicieux' 
=>si j'utilise la methode SaveAs a partir de VB, mon programme par en erreur et ne maffiche pas de message sp&#233;cifique
=>si j'utilise la methode SaveAs a partir d'une macro Excel, l'application Excel plante et me donne le message suivant : "erreur d'execution '1004' La methode 'SaveAs' de l'objet '_WorkBook' a &#233;chou&#233;"
Par contre si j'execute ma macro d'enregistrement par le debogeur de VBA , l'instruction passe mais a la fermeture du fichier ,excel m'affiche 2 messages d'avertissement concernant l'enregistrement des fichier .xls en .csv(s&#233;par&#233; par des point-virgule)

Si tu a la reponse a ce probleme, t vraiment un BOSS!!
Merci

cs_majstor · Answer

Je viens de tester avec VB6 tout ce que je t'ai dit et tout fonctionne. Je vais mettre cette "source" en t&#233;l&#233;chargement tu pourras la r&#233;cuperer et voir ce qui ne vas pas chez toi. Pour moi tout fonctionne sans probl&#232;me.

kevinscherrens · Answer

Merci pour tout c nikel!!

@ +!

VB6 et VBA Excel!

7 réponses

Discussions similaires