Macros VBA en Visual Basic

Version imprimable

09/05/2017, 11h35
Thenaar

Macros VBA en Visual Basic

Bonjour,

J'ai besoin de traiter des documents excel dont je connais la structure, J'ai compris comment faire des macros simples sous VBA, et j'aimerai pouvoir les "exporter' en visual basic.

J'ai créé une interface avec une base de données MS Access en VB, et j'aimerai faire un lien avec des fichiers Excel.
J'ai regardé sur internet, seulement je trouve uniquement du code VBA, qui n'est pas compatible avec VB, et je n'arrive pas à reproduire les même actions, sur le site de Microsoft les infos ne sont pas claires, et pas suffisantes.

Connaîtriez vous un moyen soit de traiter cette feuille Excel directement en VB soit d'appeler des macros VBA à partir d'un code VB (j'imagine que c'est possible, mais la première solution m'arrangerait beaucoup plus).

Cordialement
09/05/2017, 11h40
Invité

Bonjour,

Citation:

mais la première solution m'arrangerait beaucoup plus

vue que VBA est du Visual Basic Application , en d'autre terme du VB appliqué à Excel, veux tu bien expliciter ta pensée!

et accessoirement nous montrer ce que tu as déjà fait! un fichier joint ne serait pas la bonne solution mais le code qui lui sera lu sens problème!

attention ne confonds pas VB et VB.net!
09/05/2017, 11h47
Thenaar

Bonjour,

Je vais essayer de m'expliquer clairement :

J'ai besoin de manipuler des fichiers Excel dans une application que je développe en Visual Basic.
Si je crée une macro sur mon fichier Excel, j'obtiens un code VBA.

Je ne peux cependant pas utiliser ce code directement dans mon application, je me retrouve sinon avec des erreurs.

Je m'interroge donc sur la façon de mettre cela en place.

Puis-je d'une manière ou d'une autre obtenir l'équivalent des Sub crées avec l'éditeur de Macro, en VB ?

Cordialement
09/05/2017, 11h54
Invité

Citation:

Visual Basic.

quel version VB6; Vb 2008!
vba et vb6 c'est la même chose hormis qu'il faut faire référence Excel!

VB.net (2005...2017) il faut utiliser Excel interop dans les références du projet mais dans ce cas tu n'es pas sur le bon forum!
09/05/2017, 11h57
Pierre Fauconnier

Salut.

Parles-tu de VB6 ou de VB.NET?

En VB (VB6 ou VB.NET), tu vas devoir instancier un objet Excel.Application après référencé ta librairie Excel. A partir de là, tu pourras travailler sur tes objets Excel (feuilles, cellules, ...).

De VBA à VB6, la transposition sera "relativement" aisée, mais tu devras de toute façon retravailler le code.

De VBA à VB.NET, c'est sera moins aisé, mais réalisable sans trop de douleurs quand même... ;)
09/05/2017, 12h11
Invité

2 pièce(s) jointe(s)

VB6:

Pièce jointe 273230

VB.net:

Pièce jointe 273234

Bonjour,

Je suis avec Visual Studio 2013 et j'ai en effet utilisé Microsoft.Office.Interop.Excel
La connexion, fermeture se passe correctement, du moins je n'ai pas de message d'erreur.

Voici mes fonctions :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
Imports Excel = Microsoft.Office.Interop.Excel
 
Public Class ExcelManager
 
 
    Public Const ID_USER As String = "A"
 
    Shared appExcel As Excel.Application
    Shared wbExcel As Excel.Workbook
    Shared wsExcel As Excel.Worksheet
 
    ...
 
    ' Fonction pour ouvrir un fichier dont le chemin d'acces est passé en paramètre
    Public Shared Sub openFile(ByVal fileName As String)
        Try
            appExcel = CreateObject("Excel.Application")
            wbExcel = appExcel.Workbooks.Open(fileName)
            wsExcel = wbExcel.Worksheets(1)
 
        Catch ex As Exception
            Console.WriteLine("EXCEL OPEN : " & ex.Message)
        End Try
    End Sub
 
 
    'Fonction qui permet de fermer l'application 
    Public Shared Sub closeFile()
        Try
 
            wbExcel.Close()
            appExcel.Quit()
 
            wsExcel = Nothing
            wbExcel = Nothing
            appExcel = Nothing
        Catch ex As Exception
            Console.WriteLine("EXCEL CLOSE : " & ex.Message)
        End Try
    End Sub
 
    ' la fonction qui ne fonctionne pas (cela me génère une erreur)
    ' J'ai suivi plusieurs exemples sur internet, mais aucun n'a été probant
    Public Shared Sub changeCell(ByVal column As String, ByVal data As String)
        Try
            Console.WriteLine(wsExcel.UsedRange.Value)
            Try
                Console.WriteLine("Valeur : |" & appExcel.Worksheets("H-LM Airbus - 2016 - V1").range("A5").value & "|")
                '  Console.WriteLine(wsExcel.Cells(column, LINE_1).Value)
            Catch ex As Exception
                Console.WriteLine("worksheet.range.value : " & ex.Message)
            End Try
        Catch ex As Exception
            MessageBox.Show("UsedRange.Value : " & ex.Message)
        End Try
 
 
    End Sub
 
    'Voici ce que je pourrai copier de Excel :
    Sub Macro2()
        '
        ' Macro2 Macro
        '
 
        '
        Range("A25").Select()
        ActiveCell.FormulaR1C1 = "Employee"
    End Sub

J'ai ensuite une classe principale dans laquelle j'appelle mes fonctions :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        ...
        Dim filePath as string = ...
 
        Try
 
            ExcelManager.openFile(filePath)
            ExcelManager.changeCell(Excel.ID_USER, "2065532")
 
            ExcelManager.closeFile()
 
        Catch ex As Exception
            MessageBox.Show("Main : " & ex.Message)
        End Try
    End Sub

@dysorthographie J'ai effectué l'ajout comme tu dis oui, je peux donc faire l'importation correctement

Merci de vos conseils !

09/05/2017, 13h31
Pierre Fauconnier

Citation:

appExcel.Worksheets("H-LM Airbus - 2016 - V1").range("A5").value & "|")

Me semble bizarre...

Ne serait-ce pas plutôt

Citation:

wbExcel.Worksheets("H-LM Airbus - 2016 - V1").range("A5").value & "|")
09/05/2017, 13h33
Thenaar

N'ayant que très peu de connaissances la dedans j'ai essayé les deux, mais aucun ne semble me renvoyer la valeur contenue dans cette case.

Cordialement
09/05/2017, 13h36
Invité

1 pièce(s) jointe(s)
je ne vois pas la méthode dispose! tu vas charger ta mémoire. vérifies dans tes procès mais ton objet Excel devrait rester en mémoire!
Code:

1 2 3 4 5 6 wbExcel.Close() appExcel.Quit() appExcel.Dispose() wsExcel = Nothing wbExcel = Nothing appExcel = Nothing
appExcel = CreateObject("Excel.Application") ici tiu écris du vba ce nest pas du VB.net!

si tu décoche la librairie Visual Basic ton programme va t'explosé au visage!

Pièce jointe 273286
09/05/2017, 13h43
Thenaar
Citation:
Envoyé par dysorthographie

je ne vois pas la méthode dispose! tu vas charger ta mémoire. vérifies dans tes procès mais ton objet Excel devrait rester en mémoire!

Code:

1 2 3 4 5 6 wbExcel.Close() appExcel.Quit() appExcel.Dispose() wsExcel = Nothing wbExcel = Nothing appExcel = Nothing
En effet avec le dispose, le retour à l'air d'être correct, j'arrive bel et bien à lire dans le fichier Excel, et cela en passant par appExcel ou bien wbExcel.

Merci !

Je reviens vers vous si d'autres problèmes se soulèvent, mais à priori cela à l'air de fonctionner.
09/05/2017, 13h45
Pierre Fauconnier

En fait, appExcel.Worksheets(....) renvoie la collection des feuilles du classeur courant. wbExcel.Worksheets(...) spécifie explicitement le classeur dont tu gères la collection des feuilles.
09/05/2017, 13h45
Invité
remplace ton creatobject par

Code:

appExcel = new Excel.Application

les instruction comme trim(txt) n'existe pas en Vb.net
Code:

1 2 Dim txt as string=" toto " dim Toto as string = txt.trim() 'ça c'est du VB.net!
09/05/2017, 13h55
Thenaar
Citation:

Envoyé par dysorthographie

remplace ton creatobject par

Code:

appExcel = new Excel.Application

Cela fonctionne !

Est-ce grave d'utiliser du code VBA ? Cela pourrait ne pas marcher en fonction du terminal sur lequel je l'exécute par exemple ?
Citation:
Envoyé par dysorthographie

les instruction comme trim(txt) n'existe pas en Vb.net

Code:

1 2 3 Dim txt as string=" toto " dim Toto as string = txt.trim() 'ça c'est du VB.net!
Je comprends, c'est plutôt du orienté objet c'est cela ?
09/05/2017, 14h01
Invité

si on utilise du VB.net c'est parce que c'est plus perforent que vba!

Je ne te demande pas d'être puriste mais apprendre un langage correctement dès le début t’éviteras de te faire jeter si d’aventure je devais interviewer pour un éventuel recrutement!
09/05/2017, 14h06
Thenaar

Bien sûr, je comprends.

Tant qu'à faire, autant bien s'y prendre.

Merci pour ces explications :D