Discussion :

[godmich]

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

[Skalp]

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)
Ca donne quelque chose plutôt dans ce style :

Code :

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

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

[godmich]

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.