mettre une formule excel dans une cellule [Résolu]

[spoyet]

Bonjour;

Après plusieurs tentatives j'ai réussi à mettre ma formule dans la cellule d’un fichier.
Par contre elle est modifiée et donc ne marche pas.
Voici le

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
Sub Arborescence()
'Déclaration des variables
    Dim objXl As New Excel.Application
    Dim Dossier As String
    Dim fformule As String
    Dim cmpt As Integer '# variable ajouté
    Dim i As Long
    Dim plage As String
 
'……
'…..
'Récupère le numéro de la dernière ligne vide dans la colonne A.
    i = Range("A65536").End(xlUp).Row + 1
 
        plage = "d3:d" & i
        fformule = "=SUBTOTAL(9," & plage & ")"
        Cells(1, 6).FormulaR1C1 = fformule

Pouvez-vous me donner un coup de main.
D’avance merci

[DarkVader]

Bonjour,
A quoi bon déclarer objXl si tu ne l'utilises pas ?

[spoyet]

Bonjour;

objXl est utilisé dans une autre partie du programme

[spoyet]

Bonjour;

je pense que le problème n'est pas sur le bon forum, je le mets sur VBA excel