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