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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : 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
 
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