Discussion :

[Uranne-jimmy]

Bonjour,
Encore et toujours mes problèmes ^^ cette fois ci je n'arrive pas à executer une macro.

Circonstance : je l'éxecute depuis vb.net, avec quelques arguments composés de variable string et de variable workbook.
J'ouvre le fichier qui reçoit le traitement, je lance la macro, je ferme, le tout dans un boucle pour tout une série de fichier (d'où l'intérêt de l'automatisation)
La macro est normalement précédé d'un formulaire, mais je l'ai modifié en faisant en sorte que le formulaire recueille uniquement les arguments avant d’exécuter la procédure.
La macro est donc dans le code du form, dans un fichier xlam.

Voici mon code vb :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 Dim appExcel As New excel.Application
        appExcel = CType(CreateObject("Excel.Application"), excel.Application)
        Dim doc As excel.Workbook
        For Each xls In Chemins
            doc = appExcel.Workbooks.Open(xls)
            appExcel.Run("Importation", TextBox2.Text, TextBox1.Text, "X", doc, Label5.Text)
            doc.Close()
        Next
        appExcel.Quit()

Encore une fois en phase de test, je sais qu'il y a des choses à modifier pour les bonnes pratiques ^^

et voici la partie intéressante de la macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton2_Click()
    Dim cycle As String
    Dim bactérie As String
    Dim recherché As String
    cycle = TextBox1.Text
    bactérie = TextBox2.Text
    recherché = "X"
    Call Importation(cycle, bactérie, recherché, excel, fichier)
    Unload UserForm2
End Sub
 
[...]
 
Sub Importation(cycle As String, bactérie As String, recherché As String, excel As Workbook, fichier As String)
   [...]
End Sub

A l'éxecution, on m'annonce la macro impossible à exécuter.

[Uranne-jimmy]

Evolution : j'ai un peu tatonné, profité du msdn qui finalement ne sert pas cette fois (surtout qu'il est down à l'heure où j'écris ce message).

Voilà ce qui devrait marcher :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

appExcel.Run("Macro TLM!Modules.Module1.Importation", TextBox2.Text, TextBox2.Text, "X", doc, Label5.Text)

erreur : ne trouve pas le doc c:/.../document/Macro TLM.xls

Ou à la limite :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

appExcel.Run("C:\...\Macro TLM!Modules.Module1.Importation", TextBox2.Text, TextBox2.Text, "X", doc, Label5.Text)

erreur : "Impossible d'exécuter la macro 'C:\...\AddIns\Macro TLM.xlam!Modules.Module1.Importation'. Il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées."

Mais ça marche pas !!!
En faisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each a As excel.AddIn In appExcel.AddIns
                MsgBox(a.name) ou a.fullname ou a.installed.tostring
            Next

Je vois que name renvoie "Macro TLM", que fullname renvoie bien "C:\...\Macro TLM.xlam" et que installed is true.

Mais l'erreur persiste.


Au lieu de Modules.module1, j'avais aussi testé Module1. directement, sans succès non plus.

[Jean-Philippe André]

Salut,
attention, si tu as des noms de feuilles avec des espaces, tu dois encadrer ceux-ci par des apostrophes pour qu'il soit correctement interprété
exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

='test a'!B5

Attention aussi à la portée de la macro, qui doit être public

[Uranne-jimmy]

Bonjour,

Déjà il ne s'agit pas réellement de feuille mais de classeur, dans ce cas, pour être plus précis un classeur xlam, donc juste un ensemble de macro.
Et j'ai tenté, sans que ça ne fasse effet j'air retenter toutes les solutions déjà faites avec les ' mais ça ne change pas les erreurs que ça me renvoie.

[Uranne-jimmy]

Je retire ce que j'ai dis, je n'avais pas testé une solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'C:\Users\Kevin\AppData\Roaming\Microsoft\AddIns\Macro TLM.xlam'!Module1.Importation

A la place de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'C:\Users\Kevin\AppData\Roaming\Microsoft\AddIns\Macro TLM.xlam'!Modules.Module1.Importation

Et ça marche, la macro s'exécute.