vb et macro excel

Question

est-il possible à partir d'un programme visual basic ouvrir un fichier excel et lancer une macro appartenant à ce fichier?

Watergate · Answer

2 solutions:
Ci dessous un exemple. essai.xls contient une macro qui se nomme Macro1
Private Sub Form_Load()
On Error Resume Next
Dim Objexc As Object
Dim I As Integer
Set Objexc = CreateObject("Excel.Application")
Objexc.Visible = True
Workbooks.Open ("C:Infoessai.xls")
Application.Run "essai.xls!Macro1"
End Sub

Bonne Cheance

laurent207 · Answer

salut, est-t-il possible d'envoyer des paramétres à cette macro ?

laurent207

cs_Watergate · Answer

Bonjour,

Quels genres de paramètres veux-tu envoyer à cette macro.

Christophe dit Watergate

laurent207 · Answer

des paramétres de type string et integer

laurent207

cs_Watergate · Answer

Cela donne quelque chose du genre:

Private Sub Form_Load()
On Error Resume Next
Dim Objexc As Object
Dim I As Integer
Set Objexc = CreateObject("Excel.Application")
Objexc.Visible = True
Workbooks.Open ("c:\Infoessai.xls")
Application.Run ("Infoessai.xls!Macro1", arg1, arg2)
End Sub

Je t'ai fait une copie de l'aide Microsoft:

Cette méthode exécute une macro ou appelle une fonction. Elle peut être utilisée pour exécuter une macro écrite en Visual Basic ou dans le langage de macro de Microsoft Excel ou pour exécuter une fonction dans une DLL ou une XLL.

expression.Run(Macro, Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30)

expression   Obligatoire. Expression qui renvoie un objet Application.

Macro  Argument de type Variant facultatif. Macro à exécuter. Il peut s'agir d'une chaîne de caractères contenant le nom de la macro, d'un objet Range indiquant l'endroit où se trouve la fonction ou encore d'un identificateur de Registre pour une fonction DLL (XLL) inscrite dans le Registre. En cas d'utilisation d'une chaîne de caractères, celle-ci sera évaluée dans le contexte de la feuille active.

Arg1-Arg30  Argument de type Variant facultatif. Arguments à transmettre à la fonction

Bonne chance

Christophe dit Watergate

laurent207 · Answer

Merci, j'essayerai ça demain, je te dirai si j'y suis arrivé.

laurent207
 8-)

laurent207 · Answer

une question pourquoi tu as déclaré i ?

laurent207

cs_Watergate · Answer

Pour rien.
J'ai piqué un bout de code dans un de mes prog, et il y avait une déclaration que j'ai oublié de zappé.

Water

laurent207 · Answer

ça me met la ligne en rouge
Public Appli As Object
Set Appli = CreateObject("Excel.application")
Appli.Visible = True
Appli.Workbooks.Open FileName:=App.Path & "\Stats.xls"
Appli.Workbooks.Open FileName:=App.Path & "\Graphiques.xls"
Appli.Run ("Gaphiques.xls!Graphs", NomDGA)

il n'y a pas un moyen pour coller le code dela macro dans vb6 pour y mettre les paramétres ? J'ai essayé mais il plante au moment de changer l'adresse des données source. Il me fait erreur 1004 "Impossible de définir la propriété Values de la classe Series". VB6 plante sur la ligne :

ActiveChart.SeriesCollection(1).Values = "=[Stats.xls]" & NomDGA & "!R74" & Lettre(iDir) & "3:R75" & Lettre(iDir) & "3"

Tu sais d'où ça vient ?

laurent207

maitrekanter59 · Answer

je recherchais justement qqch dans ce genre là, merci pour ton aide Watergate!

On ne peut rien faire à l'affaire, quand on est con, on est con!
- George Brassens -

Rrominet · Answer

Merci pour cette aide qui m'a bien d&#233;pann&#233; :-)

cs_raver2046 · Answer

alors moi j'ai un soucis ma macro excel n'appel pas de sous proc&#233;dures, function inclues dans la sub de d&#233;part pouquoi?

Rrominet · Answer

raver2046 : Uh ?

cs_raver2046 · Answer

j'ai vir&#233; eurotool.xla et sa marche va savoir.

Raver2046 & hypnowarez.org rulezz

Vb et macro excel

14 réponses

Discussions similaires