Discussion :

[Kestion100]

Bonjour, je cherche à remonter des valeurs de champs Word dans Excel mais une fois ces valeurs dans mes cellules, Excel m'indique Nombre stocké au format texte, j'essaie d'appliquer le code suivant mais rien n'y fait:

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
For i = 1 To 127
                Select Case i
 
 Case 1 To 3
    Cells(ligne, i) = FichierWord.ActiveDocument.FormFields(i).Result
 Case 7 To 130
 Cells(ligne, i - 3) = FichierWord.ActiveDocument.FormFields(i).Result
 
 
    If IsNumeric(Cells(ligne, i).Value) Or Cells(ligne, i).Value = "" Then
    MsgBox "NUM"
    Cells(ligne, i).Value = Cells(ligne, i).Value              
                Else
 MsgBox "NOT"
 
 Cells(ligne, i).Value = CDbl(Cells(ligne, i).Value)                   
              End If
 
                End Select
 
 
  Next i

J'ai mis des MsgBox pour vérifier dans quels cas je me trouvais or, le mêmes cellules sont ici considérées comme étant numérique et la MsgBox "NUM" s'affiche.


Si quelqu'un peut me donner un petit coup de main, MERCI

[Ben_L]

Bonjour,

Sans me prononcer sur le fond, il serait déjà bon d'améliorer un peu votre 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
For i = 1 To 3
    Cells(ligne, i).Value = FichierWord.ActiveDocument.FormFields(i).Result
    If IsNumeric(Cells(ligne, i).Value) Or Cells(ligne, i).Value = "" Then
        MsgBox "NUM"
    Else
        MsgBox "NOT"
    End If
Next i
For i = 4 To 124
    Cells(ligne, i) = FichierWord.ActiveDocument.FormFields(i + 3).Result
    If IsNumeric(Cells(ligne, i).Value) Or Cells(ligne, i).Value = "" Then
        MsgBox "NUM"
    Else
        MsgBox "NOT"
    End If
Next i

Au moins comme ça, vous testez effectivement les lignes que vous venez de modifier...

Les tests et les MsgBox pourront être supprimés après la phase de débug.

Cordialement

[Kestion100]

RESOLU:

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
For i = 1 To 130
                Select Case i
 Case 1 To 3
    Cells(ligne, i) = FichierWord.ActiveDocument.FormFields(i).Result
 
 Case 4 To 7
 
 Cells(ligne, i) = FichierWord.ActiveDocument.FormFields(i + 3).Result
 
 Case 8 To 127
 Cells(ligne, i) = FichierWord.ActiveDocument.FormFields(i + 3).Result
 If Cells(ligne, i).Value <> 0 Then
 Cells(ligne, i).Value = CDbl(Cells(ligne, i).Value)
 
 
 Cells(ligne, i).Value = Cells(ligne, i).Value
              End If
 
 
 
 
                End Select
 
 
  Next i