word -> excel

[jhofman]

Bonjour


j'utilise du code vba qui analyse (sous word) des document et les exporte au final vers EXCEL

tout ce pass ebien sauf quand le cellule a écrire commence par un signe négatif "-".... et si j'intercal un espace ou une qotte en début de cellule alors rien ne va plus !!

voici le code qui transforme un tableau word en doc excel...

Function exportEXCEL()
Dim xlobj As Excel.Application
Dim Texte As String
Dim Classeur As Excel.Workbook
Set xlobj = CreateObject("Excel.Application")
xlobj.Visible = True
Set Classeur = xlobj.Workbooks.Add
For i = 1 To 100
 For j = 1 To 3
Classeur.Sheets(1).Cells(i, j).Value = Selection.Tables(1).Cell(i, j)

Next j
Next i
Classeur.SaveAs "C:\TEMP\PA.xls"
End Function

ainsi

Classeur.Sheets(1).Cells(i, j).Value = Selection.Tables(1).Cell(i, j)

est ok
mais

Classeur.Sheets(1).Cells(i, j).Value = " " & Selection.Tables(1).Cell(i, j)

est KO
Merci de votre aide

 

[Pyrof]

Re : word -> excel

Bonjour

essais
Classeur.Sheets(1).Cells(i, j).Value = Cstr(Selection.Tables(1).Cell(i, j))

ou
Classeur.Sheets(1).Cells(i, j).Value = "'" & Selection.Tables(1).Cell(i, j)

 

[jhofman]

Re : word -> excel

merci Pyrof


j'y suis arrivé en scindant les 2 instructions
Pyrof, avec ta seconde proposition cela ne marchait pas :-(( (je ne sais pourquoi)

Function exportEXCEL()
Dim a As Variant
Dim xlobj As Excel.Application
Dim Texte As String
Dim Classeur As Excel.Workbook
Set xlobj = CreateObject("Excel.Application")
xlobj.Visible = True
Set Classeur = xlobj.Workbooks.Add
For i = 1 To nbfichier + 1
     For j = 1 To 5
            a = Selection.Tables(1).Cell(i, j)
            a = " " & Left(a, Len(a) - 2)
            Classeur.Sheets(1).Cells(i, j).Value = a
    Next j
Next i
Classeur.SaveAs "C:\TEMP\PA" & Format(Date, "YYYYMMDD") & ".xls"
End Function