Rechercher/Remplacer dans un fichier excel

Bonjour,

Voila, je voudrais faire un petit programme en VB.net pour rechercher/remplacer tous les ";" contenues dans des fichiers xls par des ",".

On m'a dit qu'il fallait aller regarder le code VB script que générer Excel quand on fait une macro. Alors voila ce que ça me renvoit :

Code:

1
2
3
4
 
Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
           SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
          ReplaceFormat:=False

J'ai donc essayé de l'intégrer à mon programme VB. Mais, il me sort que xlPart et xlByRows sont pas déclarés mais je sais pas comment les déclarer :(:(

Voila mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim XlsApplication As New Excel.Application
        Dim XlsWorkBook As Excel.Workbook
        Dim XlsWorksheet As Excel.Worksheet
 
        XlsWorkBook = XlsApplication.Workbooks.Open("test.xls")
        XlsWorksheet = XlsWorkBook.Worksheets(1)
 
        XlsWorksheet.Cells.Replace(What:=".", Replacement:=",", LookAt:=xlPart, _
           SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
          ReplaceFormat:=False)
 
        XlsWorkBook.Close(False)
        XlsWorksheet = Nothing
        XlsWorkBook = Nothing
        XlsApplication.Quit()
        XlsApplication = Nothing
 
    End Sub
End Class

merci d'avance

Il ne faut pas copier exactement ce que te montre le code VBA, mais l'adapter à ton code VB (qui sont deux langages différents, bien que similaires) :aie:
Ca donne quelque chose plutôt dans ce style :

Code:

XlsWorksheet.Cells.Replace(".", ",", Excel.XlLookAt.xlPart, Excel.XlSearchOrder.xlByColumns, False, False, False)

Merci beaucoup, ça marche. J'ai pas encore trop pigé la technique de conversion vba -> vb .net mais j'pense que ça doit venir avec l'entrainement.