Bonjour,

Je souhaite mettre une variable dans une formule Excel via une macro en VB.
Voici un bout du code et la ligne que j'utilise :

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
Private Sub EcritureData(ByVal sFile As String)
    
Dim x As Long
Dim Data As String
Dim NumFichier As Integer
Dim cellule As Integer

x = 1
   
NumFichier = FreeFile
Open sFile For Input As #NumFichier
Do While Not EOF(NumFichier)
    Line Input #NumFichier, Data
    If x = 1 Then
        Cells(x, 5) = Data
    ElseIf x = 2 Then
        Range("A2").Formula = "=GAUCHE("+Cstr(Data)+";CHERCHE(" ";"+Cstr(Data)+"))" // LA LIGNE EN QUESTION
        
    End If
    x = x + 1
Loop
Close #NumFichier
End Sub
J'ai toujours cette erreur : "Erreur de Syntaxe". Je pense que cela provient du fait que j'utilise la fonction CHERCHE car je l'utilise pour trouver un espace dans ma chaine de caractère qui se présente comme tel : 115 "xxx.xxx.xxx.xxx". Comme vous l'aurez compris j'aimerais directement extraire de ma chaine le "115". En espérant vous avoir apporter assez d'info.

Sticks_678