Discussion :

[Elhyra]

Bonjour,

Aujourd'hui, j'ai réalisé une macro Excel qui permet de vérifier un fichier entier à l'aide de conditions. J'ai essayé de faire exécuter ma macro depuis vb.net. Cependant, dans mon code ci-dessous j’exécute la macro seulement sur un fichier ciblé. (C:\User\Desktop\Nomdufichier)

J'aimerais savoir si il est possible d’exécuter la macro directement sur le fichier excel ouvert sur notre PC ou bien d'ajouter une ligne de code spécifiant dans l'interface le chemin d’accès du fichier excel pour le vérifier celui-ci.

Si cela est possible j'aimerais avoir un exemple afin de m'appuyer dessus. En vous remerciant.

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
17
18
19
20
21
22
23
24
 
 
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Excel
 
Public Class Form1
 
    Private Property objExcel As Object
 
    Private Property objWorkbook As Object
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        'Ouverture du fichier excel
        objExcel = CreateObject("Excel.Application")
        objWorkbook = objExcel.Workbooks.Open("C:\Users\Julien\Desktop\macro\macro1.xlsm")
        objExcel.Visible = True
 
        'lancement de la macro dans le fichier excel ouvert
        objExcel.run("Feuil1.macro")
 
 
    End Sub
End Class

[Phil Rob]

Je ne comprends pâs ta question vu que tu donnes la solution :

objExcel.run("Feuil1.macro")

Perso, je mettrais seulement le nom de la macro :

objExcel.run("MaMacro")

Il y a peut-être quelque chose qui ne va pas avec ton WorkBook.
Voici mon exemple type qui fonctionne :

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
17
18
19
20
Imports Excel = Microsoft.Office.Interop.Excel
 
Public Class FBase
 
    Dim XLSAPP As Excel.Application = Nothing
 
    'La feuille Excel n'est pas ouverte
    Private Sub BExcel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BExcel.Click
        XLSAPP = New Excel.Application
        XLSAPP.Visible = True
        XLSAPP.Workbooks.Open("D:\Tmp\ProbExcel\Test.xls")  'ouvir le fichier XLS
 
        ' Il est possible de programmer en VB ce qu'on ferait en Macro
        XLSAPP.Range("C4").Select()                 'sélectionner une cellule
        XLSAPP.ActiveCell.FormulaR1C1 = "127"   'y placer la valeur 127
 
        'Il est aussi possible de lancer une macro du fichier XLS
        XLSAPP.Run("MaMacro") 'exécuter la macro MaMacro
        'XLSAPP.Run("UneMacro", "Coucou")  ' appel de la macro en lui ,passant les arguments ....
' .......................