Discussion :

[Thenaar]

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

[Invité]

Bonjour,

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!

[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

[Invité]

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!

[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...

[Invité]

VB6:



VB.net:

[Thenaar]

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 :

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
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 :

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
 
    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 !

[Pierre Fauconnier]

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

Me semble bizarre...

Ne serait-ce pas plutôt

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

[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

[Invité]

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 :

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

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!

[Thenaar]

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 :

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

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.

[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.

[Invité]

remplace ton creatobject par

Code :

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

  appExcel = new  Excel.Application

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

Code :

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

1
2
Dim txt as string="      toto    "
dim Toto as string = txt.trim() 'ça c'est du VB.net!

[Thenaar]

remplace ton creatobject par

Code :

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

  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 ?

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

Code :

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

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 ?

[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!

[Thenaar]

Bien sûr, je comprends.

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

Merci pour ces explications